请高手看看，我这个条件选择代码怎样修改

7016427

Private Sub CommandButton1_Click()
Dim ycs As String, jb As String
ycs = MsgBox(Chr(10) & "您核对，是否正确？" & Chr(10) & "─────────", vbYesNo + 32, "")
   If ycs = vbYes Then
     Sheet1.Cells(201, 1).Value = 1
Unload Me '关闭窗体
   Else
   Sheet1.Cells(201, 1).Value = ""
   Unload Me '关闭窗体
jb = MsgBox(Chr(10) & "您核对，是ASD错误吗？" & Chr(10) & "─────────", vbYesNo + 32, "")
   If jb = vbYes Then
   Sheet3.Activate
   Else
  Sheet1.Activate
End If
End If
End Sub
补充说明：当第一次选择否时，再弹出选择。

李甲

ELSEIF


///////////////////////////

7016427

李甲 发表于 2018-10-11 20:31
ELSEIF

你好！请问我那个代码怎么改？因为多一个条件我不知道怎么改了。

李甲

第一个ELSE改成ELSEIF

7016427

李甲 发表于 2018-10-11 20:56
第一个ELSE改成ELSEIF

Private Sub CommandButton1_Click()
Dim ycs As String, jb As String
ycs = MsgBox(Chr(10) & "您核对，是否正确？" & Chr(10) & "─────────", vbYesNo + 32, "")
   If ycs = vbYes Then
     Sheet1.Cells(201, 1).Value = 1
Unload Me '关闭窗体
   Else
   Sheet1.Cells(201, 1).Value = ""
   Unload Me '关闭窗体
jb = MsgBox(Chr(10) & "您核对，是ASD错误吗？" & Chr(10) & "─────────", vbYesNo + 32, "")
   ElseIf jb = vbYes Then
   Sheet3.Activate
   Else
  Sheet1.Activate
End If
End If
End Sub老师，执行还是不行！