如果那么,VBA多动作(if if then inc)

时间:2018-04-04 09:53:24

标签: vba excel-vba action excel

所以,我有一个代码,在这种情况下只给我在单元格中的第一个动作。 我不能让我的第二个动作起作用。

代码:

Private Sub CommandButton4_Click()
Dim i As Integer

If Me.Control1.Text = "" And Me.Control2.Text = "" And Me.Control3.Text = "" Then
MsgBox "Please select a name in the list"

Else

i = Me.lstMyData.ListIndex
Me.lstMyData.Selected(i) = True

     If Me.CheckBox1.Value = True Then Worksheets("Database").Cells(i + 1, "I").Value = "TRUE"

     Worksheets("Database").Cells(i + 1, "J").Value = Me.TextBox1.Text

End If

知道为什么我的第二个动作不起作用?如果我切换动作,我仍然遇到同样的问题。第一个总是有效,第二个从不。

0 个答案:

没有答案