alex_bn_lee

摘要： 来源：http://blog.csdn.net/alexbnlee/article/details/69242071 → 实现标准的“打开”对话框，并获取用户文件名，而不必真正打开任何文件。获取文件的FullName表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect)FileFilter：过滤文件Title：标题MultiSelect：可以多选Sub Stop1() Dim fileInformation As String Dim fi As Workbook fileInfor... 阅读全文

摘要： 来源：http://blog.csdn.net/alexbnlee/article/details/6923787→用户自定义数据类型需要使用Type语句Type lianxiren name As String sex As String age As Integer phone As String address As String department As StringEnd TypeSub AddressList() Dim record As lianxiren record.name = "Alex" record.sex =... 阅读全文

摘要： 来源：http://blog.csdn.net/alexbnlee/article/details/6917800数组：定义数组： Dim arr(30 To 50) As Single 定义数组，从30到50，定义为浮点型~ arr(30) = 34.3产生随机数，但是随机数要不同（1到20之间产生10个不同的随机数） Sub sdlkfjl() For i = 1 To 10 Cells(1, i) = Int(1 + Rnd() * 19) '给个随机数 For j = 1 To i - 1 ... 阅读全文

摘要： 来源：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暂停 阅读全文