仇朝权的学习笔记

摘要： 此技巧的关键是知道改系统控件的ID号。 代码如下： Sub 提取当前电脑已安装字体名称() '定义子程序名称 Dim fontlist As Object '定义字体列表为对象 s = Timer '开始计时：秒 Dim i As Long, arr '定义变量I为整数 '选择A列 Columns( 阅读全文

摘要： 今天和朋友无意中聊起，他提到，format函数可以做运算。 一测试，果然可以。 而且支持四则运算，但不支持函数等。 Sub Test() MsgBox Format(1+1+2,"0.00") end sub 阅读全文

摘要： 打造Excel Ribbon 菜单，2007版本适合最新的2021Excel。 本质是XML文件，注意，写错一个字符，Excel都不会显示您所写的菜单。还是借助工具写比较方便，参见：《RibbonX：自定义Office 2007功能区》学习心得 具体代码如下： <?xml version="1.0" 阅读全文

摘要： 最近困扰我的页脚和页眉，找到一点资料：页眉和页脚的格式设置和 VBA 代码 | Microsoft Learn 但是没有完全解决VBA代码对已经存在的页眉和页脚改写。就是无法改写，包括微软帮助，网上搜索，都只能是人工选定所有工作表，然后设置为无。 以下特殊格式和 Visual Basic for A 阅读全文

摘要： VBA窗体在某些时候需要置顶，方便此窗口在其他打开的程序或者Excel页面上展示。一般来说实际的运用场景是，本窗体输入需要在其他页面上查看数据，此时，窗体需要置顶。 在VBE窗体模块相应的窗体中输入下面的代码即可实现。 窗体置顶全部代码 #If VBA7 And Win64 Then Private 阅读全文