Загрузка данных


Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub OptionButton1_Click()
ListBox1.RowSource = "процессор!A1:A3"
End Sub

Private Sub OptionButton2_Click()
ListBox1.RowSource = "винчестер!A1:A3"
End Sub

Private Sub OptionButton3_Click()
ListBox1.RowSource = "монитор!A1:A3"
End Sub


Private Sub вызов_формы()
UserForm1.Show
End Sub


Private Sub OptionButton4_Click()
ListBox1.RowSource = "видеокарта!A1:A3"
End Sub

Private Sub OptionButton5_Click()
ListBox1.RowSource = "материнскаяплата!A1:A3"
End Sub

Private Sub UserForm_Click()

End Sub