|
|
| Тема |
 моля прегледайте този код ! |
|
| Автор |
propertis (непознат
) |
|
| Публикувано | 09.10.09 01:09 |
|
|
|
Private Sub CommandButton1_Click()
Dim Row As Long
Row = 2
Do Until Worksheets("ÊÑÃÏÍ").Range("A" & Row) = ""
Row = Row + 1
Loop
Worksheets("ÊÑÃÏÍ").Range("A" & Row) = ComboBox3.Text
Worksheets("ÊÑÃÏÍ").Range("B" & Row) = TextBox2.Text
Worksheets("ÊÑÃÏÍ").Range("C" & Row) = ComboBox1.Text
Worksheets("ÊÑÃÏÍ").Range("D" & Row) = ComboBox2.Text
TextBox8.Value = TextBox3.Value
Worksheets("ÊÑÃÏÍ").Range("A" & Row + 1) = ComboBox8.Text
Worksheets("ÊÑÃÏÍ").Range("B" & Row + 1) = TextBox5.Text
Worksheets("ÊÑÃÏÍ").Range("C" & Row + 1) = ComboBox9.Text
Worksheets("ÊÑÃÏÍ").Range("D" & Row + 1) = ComboBox5.Text
ActiveCell.Value = TextBox3.Value
Select Case Me.OptionButton1.Value
Case True
Worksheets("ÊÑÃÏÍ").Range("E" & Row) = "Da"
Case False
Worksheets("ÊÑÃÏÍ").Range("E" & Row) = "Ne"
MsgBox "Çàïèñúò å èçâúðøåí !", vbOKOnly
End Select
End
Select Case Me.OptionButton2.Value
Case True
Worksheets("ÊÑÃÏÍ").Range("E" & Row + 1) = "Da"
Case False
Worksheets("ÊÑÃÏÍ").Range("E" & Row + 1) = "Ne"
End Select
End
End Sub
как ако във textbox2 въведа числото 2 то кода по-долу да стане факт?
аз го пробах с commandbutton и всичко е ок ,но на мен ще ми е интересно как то ще стане ако в гореспоменатия текстобокс2 въведа числото 2.Благодаря
Това е кода:
UserForm4.Height = 214.5
Label4.Visible = True
Label5.Visible = True
ComboBox5.Visible = True
ComboBox9.Visible = True
ComboBox8.Visible = True
Frame3.Visible = True
Frame4.Visible = True
OptionButton2.Visible = True
TextBox5.Visible = True
End Sub
| |
| |
| 
|
|
