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

欲擒故纵

多谢了,拿回去学习先.

yuanzhuping

谢谢楼主的奉献!

mkz022

谢谢

toopoor

人才呀

apaul

谢谢了

hhzjxss

谢谢共享！

hhzjxss

QUOTE:

以下是引用zw1028在2006-5-27 13:27:33的发言：

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

如下代码可使工作簿打开后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

谢谢，我试了，可以运行！

xtbz

谢谢，很实用。有启发

gxzhiyu

好东东，对我等菜鸟非常有用，谢谢！
恭祝大家元霄节愉快!合家幸福!身体健康!万事如意!猪年大顺!

qjl3220586

不错，非常感谢[em02]