|
本帖最后由 7016427 于 2019-5-24 14:01 编辑
Private Sub CommandButton1_Click()
With Sheets("票库")
.Visible = -1
Dim i%
For i = 2 To 94
If .Range("a" & i) = ComboBox2 And .Range("b" & i) = ComboBox1 Then
.Range("x" & i).Value = TextBox1.Value ' 这句没有起作用
End If
Next
.Visible = 2
End With
Unload Me
End Sub
-------------------------------------Private Sub UserForm_Initialize()
ComboBox1.AddItem "电子软纸票"
ComboBox1.AddItem "人工磁卡票"
ComboBox1.AddItem "自动磁卡票"
ComboBox2.AddItem "30001"
ComboBox2.AddItem "00001"
ComboBox2.AddItem "00003"
ComboBox2.AddItem "00004"
End Sub
|
|