CheckBox-ы
Добавлено: 31 окт 2005, 13:52
Как на форме поставить несколько CheckBox-ов
CheckBox-ов две а TextBox один нужно просто, если в TextBox-е фирменный продукт то в яйчейке рядом с яйчейкой где вводится значение TextBox-а вписывалась буква "Ф" в противном случае нефирменная "Н" даже я подумал можно и с OptionButton-ом сделать но обьязательно чтобы их было две и более
CheckBox-ов две а TextBox один нужно просто, если в TextBox-е фирменный продукт то в яйчейке рядом с яйчейкой где вводится значение TextBox-а вписывалась буква "Ф" в противном случае нефирменная "Н" даже я подумал можно и с OptionButton-ом сделать но обьязательно чтобы их было две и более
Код: Выделить всё
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
ActiveSheet.Range("A1") = "F"
ElseIf OptionButton2.Value = True Then
ActiveSheet.Range("A1") = "N"
End If
ActiveSheet.Range("B1") = TextBox1.Text
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
OptionButton1.Caption = "Firma"
OptionButton2.Caption = "Otechestvennyj"
End Sub