alex_bn_lee

摘要： 我们可能会经常要将一个文件夹中的所有文件都遍历一遍，然后进行修改，下面就介绍用Dir函数实现遍历*.xlsx文件的方法Dir 函数返回一个 String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]第一个参数即是文件的地址，第一次引用的时候要标注，第二次用的时候就不必指出了，下面举个例子，遍历下面文件夹中的Excel2010文件，然后输出文件的名字~批量遍历某类文件(*.xlsx)Sub OpenAndClose() Dim MyFile As String Dim s As ... 阅读全文

摘要： 来源：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事件 按下事件，左右键 阅读全文