- 博客(4)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 快速获取系统字体列表
Windows中的字体都安装在Windows\Fonts目录中，为了保证显示效果经常需要使用特殊字体，在代码中如何确认系统已经安装某种字体呢？其实利用Excel中工具条可以很容易的获取系统字体列表。Sub GetListOfInstalledFonts() Dim ctlFontList As CommandBarControl Dim cmbBar As CommandB...
2018-04-30 00:34:16
6871
原创 如何快速判断数组中是否包含某个值
多维数组是经常用到的数据结构，判断数组中是否包含某个元素的常规办法就是变量整个数组，逐个对比。自定义函数如下：Function ItemInArrayLoop(aData, vEle) As Boolean ItemInArrayLoop = False For i = 1 To ubund(aData, 1) For j = 1 To UBound(aDa...
2018-04-24 00:11:32
29468
2
原创 API实现快速转换简体字与繁体字
繁体字和简体字之间进行转换，是编程中经常遇到的，虽然有很多在线工具可以实现转换，但是代码中如何能快速实现呢？其实利用API可以快速实现繁体字与简体字直接的转换，函数代码如下。Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, _ByVal dwMap...
2018-04-15 09:29:50
5327
原创 快速批量删除工作表
前言删除工作表是VBA代码开发过程中经常用到的操作，一行代码就可以完成，这有啥可讲的呢！？代码一执行，是否就看到下面这个令人烦的窗口跳出来了。 此时，你就不得不点击【删除】按钮确认才可以删除工作表，如果要批量删除多个工作表，那么就需要不停的点击按钮，VBA代码实现自动化操作的目的就无法实现。解决方案Excel为了避免用户的误操作，每次删除工作表都会给出提示信息，用户确认后才会...
2018-04-05 10:58:17
10311
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人