摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6913565参考：http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspxTextBox事件→ KeyPress事件的语法如下：KeyANSI只是个参数，所以可以改成任何喜欢的名字，每键入一个值的时候，都会触发KeyANSI，通过设置，可以实现限制默写值的键入。→ KeyDown事件 按下触发→ KeyUp事件 松手触发CommandButton事件→ MouseMove事件→ MouseDown事件 按下事件，左右键
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6912319Application.Version 显示Excel的版本号Application.UserName 显示当前用户的用户名Application.StatusBar = "状态栏" 状态栏显示内容Application.StatusBar = False 状态栏不显示内容Application.Wait Now() + TimeValue("00:00:01") DoEvents暂停
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6911204Workbooks(1).NameWorkbooks(1).FullName 工作簿地址加名字Workbooks(1).Path 工作簿地址Workbooks(1).Close SaveChanges:=False 关闭工作簿，并且不保存Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件Workbooks(1).Save 工作簿保存ThisWorkbook.SaveAs Filename:=T
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6910151工作表引用Worksheets(3).Select 这里面的3是Index，就是一个下面的顺序Worksheets("Sheet3").Select 这里面的Sheet3是NameSheet3.Select 这里面的Sheet3是CodeName数组For Each Rng in Range("A1:J10")For Each Sht in WorksheetsFor Each Book in Workbooks添加工作表Worksheets
阅读全文
摘要：来源：http://blog.csdn.net/alexbnlee/article/details/6909689Rows.Count 显示所有行的数目Columns.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1:B4"
阅读全文
摘要：来源：http://www.gisall.com/?uid-153242-action-viewspace-itemid-5903 Rows.Count 显示所有行的数目Column.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1:
阅读全文
摘要：来源：http://mcdelfino.blog.51cto.com/2058744/691131 Dim Runtime As Date Sub RunTimer() Runtime = Now() + TimeValue("00:00:01") Application.OnTime Runtime, "my_Procedure" End Sub Sub my_Procedure() Static count As Integer count = count + 1 ...
阅读全文
摘要：来源：http://mcdelfino.blog.51cto.com/2058744/691026Dim Runtime As Date '定义时间变量 Sub RunTimer() Runtime = Now() + TimeValue("00:00:02") '时间显示为增加1秒 Application.OnTime Runtime, "my_Procedure" '在这个指定的时间执行下面的过程End Sub Sub my_Procedure() Range("A1") = Format(Time, &q
阅读全文
