vb如何写终止语句

Sub JUEZ()

Dim y As Integer

For y = 2 To Sheets("regostro")Range("I1048576")End(xlUp)Row

    If Sheets("REGOSTRO")Range("I" & y) = Sheets("MOSTRAR")Range("A3") Then

        MsgBox "esta repetir numero nota"

        exit sub

    End If

Next y

If Sheets("mostrar")Range("a3") <> "" And Sheets("mostrar")Range("a5") <> "" Then

       Call IMPRIMIR

Else

       MsgBox "NO PUEDE IMPRIMIR ESCRIBIR BIEN TODO INFORMACIONES"

End If

End Sub

'猜想你是这意图是：循环搜索某列数据，如有符合条件的则退出过程。如没有再判断a3 ,a5是否同时为空并作出相应处理。

在需要的地方加

End

直接退出程序

或者

System （此处填进程返回值）

Stop

都行

当然，最好考虑关闭自己的所有窗口 使用Unload Me'点自己的关闭按钮。

如果你不需要窗体，删掉他新建模块用

Sub Main()

'

End Sub

执行完自动退出。

当然 调ExitProcess也是个办法，但是你真的希望连着VB的编辑器一起退出吗？

如果你不需要VB的编辑器，干脆把你的代码编译成EXE，想用多少遍用多少遍，还快。

以上就是关于vb如何写终止语句全部的内容，包括:vb如何写终止语句、VB 如何结束自身进程、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！