[VBA起步]常用的、带解释的 VBA 短句

阿笨学VBA

等下一期!!!!!!!

YEST8

谢谢！

支持！

顶一下！

zw1028

这段代码有点疑问：（怎么不执行？请解惑！）

如下代码可使工作簿打开后30秒(或闲置30秒)内不输入、不重新选择等,自动关闭工作簿 Private Sub Workbook_Open() '工作簿打开事件
tt '工作簿打开时启动 tt 过程
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '工作表变化事件
tt '工作表中任一单元格有变化时启动 tt 过程
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '工作表选择变化事件
tt '工作表中单元格的选择有变化时启动 tt 过程
End Sub

Sub tt() 'tt 过程
Dim myNow As Date, BL As Integer '定义myNow为日期型;定义BL为长整型
myNow = Now '把当前的时间赋给变量myNow
Do '开始循环语句Do
BL = Second(Now) - Second(myNow) '循环中不断检查变量BL的值
If BL = 30 Then GoTo Cl '当BL=30即跳转到CL
DoEvents '转让控制权,以便sheets可继续操作
Loop Until BL > 30 '当BL>30即跳出循环
Exit Sub
Cl:
Application.EnableEvents = False '避免引起其他事件
ActiveWorkbook.Close True '关闭活动工作簿并保存
Application.EnableEvents = True '可触发其他事件
End Sub

[此贴子已经被作者于2006-5-27 13:29:35编辑过]

yuhongpu

可以运行的,你把每个SUB分开

zh_jiang

谢谢，希望接着来！

ggyy3721

好好好

好好好

gljzyp

期待着下一贴

兰色幻想

不错的贴子，奖励2分。继续努力！

gangone

有收获，谢了！

zhaokun511

很好的学习资料~~~