摘要: 此技巧的关键是知道改系统控件的ID号。 代码如下: Sub 提取当前电脑已安装字体名称() '定义子程序名称 Dim fontlist As Object '定义字体列表为对象 s = Timer '开始计时:秒 Dim i As Long, arr '定义变量I为整数 '选择A列 Columns( 阅读全文
posted @ 2022-11-21 11:48 仇朝权 阅读(224) 评论(0) 推荐(0) 编辑