PrintDict "键按升序排列",dict '排序字典并输出排序后的结果 Set dict = SortByValue(dict, xlDescending) PrintDict "键按降序排列",dict End Sub '打印字典元素项 Sub PrintDict(ByVal str As String, _ dict As Object) Debug.Print vbCrLf & str Dim k As Variant '遍历字典元素并打印 For Each k...
Debug.Print Dir("F:\*.xls") ’返回按条件第一个找到的文件名。 Debug.Print Dir("F:\*.txt",vbReadOnly) ’返回第一个只读的txt文件 以下过程可显示C盘根目录下的所有目录. Sub DirC() MyPath = "c:\" MyName = dir(MyPath, vbDirectory) ' 找寻第一项。 Do While MyName <> "" ' 开始...
x = StrConv("ABCDEFG", vbFromUnicode) ' 转换字符串。 For i = 0 To UBound(x) Debug.Print x(i) Next End Sub 下面的例子将句子中每个词语的首字母转换为大写: Sub testConverseString2() Debug.Print StrConv("my book is this book.", vbProperCase) End Sub 程序运行后,在VBE窗口中的立即窗...
Debug.Print "原始值: objDic(1)=" & objDic(1) Call byValTest2(objDic) Debug.Print "外部值: objDic(1)=" & objDic(1) & vbCrLf objDic(1) = 100 Debug.Print "byRefTest" Debug.Print "原始值: objDic(1)=" & objDic(1) Call byRefTest(objDic) Debug.Print "外部值: objDic(1)="...
for i=1 to 10 ...next 还有，在一个对象集合里面：for each a in b ...next 我们看几个例子 1、循环工作表：Sub 循环工作表() Dim ws As Worksheet For Each ws In Sheets i = i + 1 Debug.Print "这是第" & i & "张表，名称为：" & ws.Name NextEnd Sub 2、循...
For i = l To 10 step 1 Debug.Print i Debug.Assert i <8 Next i 当程序执行到3行Debug.Print时,程序向立即窗口输出i的值,而当i大于等于8时,Debug.Assert判断的表达式为False,程序挂起。 [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-R0fCwsvP-1615651551126)(images/VBA基础...
Debug.Print .Address, .Address(False, False), _ .Address(, False),.Address(False) Debug.Print .Address(, , xlR1C1), .Address(False, False, xlR1C1), _ .Address(, False, xlR1C1),.Address(False, , xlR1C1) Debug.Print .Address...
For i = 1 To Application.CustomListCount Application.DeleteCustomList (i) Next Exit Sub ErrorHandler: Debug.Print "自定义序列 " & i & " 删除失败" Resume Next 帮助中提到的是5个不可以删除,经测试在Excel 2010中一共是11个内置的无法删除。
'遍历工作表并在字典中添加数据 For i = 1 To lngLastRow dict.Add wks.Cells(i, 1).Value, _ wks.Cells(i, 1).Value Next i '遍历字典键并打印 Dim k As Variant For Each k In dict.keys Debug.Print k Next k End Sub 运行后的结果如下图4所示。 图4...
Dim fileName As Variant fileName =Dir("D:\excelperfect\") While fileName <> "" '插入对每个文件要执行的操作 '本示例代码打印文件名到立即窗口 Debug.Print fileName '设置fileName指向下一个文件 fileName = Dir Wend End Sub 上面的代码可以很容易地通过使用通配符进行调整。例如: ...