如何让VBA语句在打开事件中只执行一次后?

显示全部楼层 · 2012-1-2 11:45:59

你的意思是第一次打开的时候执行，以后再打开的时候不在执行？如果是这样的话我有一个方法，不过显得比较笨workbook中的代码Private Sub Workbook_Open() Call a
'执行模块1中的过程aEnd Sub模块1中的代码Sub a()x = 1If x = 1 ThenMsgBox "123"
‘x=1就显示对话框，可以换成你要执行的过程End If ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 2, "x=2"’将第二行的“X=1”换成“X=2...

千问 · 2012-1-2 11:45:59

定义一个全局变量，语句执行前先检查一下该变量，为0则执行，为1则不执行，语句执行后就将该变量加1，还可以根据其他条件进行灵活的调整...