日记首页V1.0


	日记首页 \| 列表 \| 添加日记 \| 管理登陆


	标题：vba，停止循环结束程序

vba，停止循环结束程序：End直接在msgbox后面使用end语句，比如 if a= 1 then 　　msgbox “错误退出” 　　end end if <hr>Private Sub CommandButton1_Click()Dim i, j&nbsp;&nbsp; For i = 2 To 30 &nbsp;&nbsp;&nbsp; For j = 2 To 33 If TextBox1.Value = Cells(i, 1) Then &nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If DTPicker1.Value = Cells(1, j) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; Cells(i, j) = TextBox2.Value &nbsp;&nbsp;&nbsp;&nbsp; End &nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox ("ok") End Sub <hr>Private Sub CommandButton1_Click()Dim i, j, k&nbsp;&nbsp; For i = 2 To 30 &nbsp;&nbsp; For k = 2 To 30 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; For j = 2 To 33 &nbsp;&nbsp;&nbsp; If TextBox1.Value = Cells(i, 1) ThenIf TextBox3.Value = Cells(k, 2) Then &nbsp; If i = k Then &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If DTPicker1.Value = Cells(1, j) Then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; Cells(i, j) = TextBox2.Value &nbsp;&nbsp;&nbsp;&nbsp; End &nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox ("ok") End Sub