VBA
VBA设置文档格式
```VBA Sub FormatDocument() ' 设置整个文档的字体、大小、颜色 ActiveDocument.Select: Selection.ClearFormatting '文档格式清除 ActiveDocument.Content.Font.Name = "宋体" ActiveD ......
vba的小代码
看到一个单子，要求给定一个区间范围，随机生成一串数字，这些数字之和为指定值。后来花两个小时做出来了，这里记录一下。 #### 思路： 首先生成指定范围内的数字，然后将所有数字之和相加，判断其与指定值之间的关系（找出其与指定数之间的差值）。 1. 如果比指定值大，那么就将生成的随机数减小。从第一个随机 ......
vba小知识
这个笔记是在看了[VBA全套教程视频](https://www.bilibili.com/video/BV1ax4y1V7qi?p=3&vd_source=ff4304a91b911e33b37ad5d12302379f)后写的。[*Microsoft excle*](https://learn.m ......
关于VBA的TextStream StdOut相关程序的学习——源代码（刘永富博士的ExcelVBA编程开发）
Sub test3() '标准输出-查找相关目录下所有的GIF格式文件。 Dim TS1 As IWshRuntimeLibrary.TextStream Dim TS2 As IWshRuntimeLibrary.TextStream Set WShell = New IWshRuntimeLib ......
执行VBA出现3706错误的解决方案
现在自用电脑只安装wps，没有安装office了，执行vba居然报3706错误，代码调试好了没改动，那么只有一种可能就是数据库连接有问题了。 出现这个提示，安装AccessDatabaseEngine.exe，即可Access 2010 数据库引擎：https://download.csdn.net ......
solidworks vba 导出数据到文本文件
This macro exports all the information into the output text file in the following format: ```vb Option Explicit Const currentDir As String = "D:\" ' D ......
vba 设置单元格格式
1.设置边框 录制一个宏——excel选定区域设置所有框线，我们会发现录制出来的代码是每条线分别设置的 VB没有一个简单的一句命令来给选中的区域加外边框，有一个另外的方法BorderAround让你在单元格区域添加边框和设置颜色，线型和新边框的粗细。 下面的语句是VBA中给选中的单元格设置外围粗边框 ......
执行VBA的C#底层引擎编写
VBA执行分几种： using System; using Excel = Microsoft.Office.Interop.Excel; using System.IO; using System.Diagnostics; using Microsoft.Vbe.Interop; using Mi ......
solidworks vba 打开文档
在一个solidworks程序中，其中没有打开任何文件，执行下面宏，将会打开一个零件图： ```vb Option Explicit Dim swApp As SldWorks.SldWorks Sub main() Set swApp = Application.SldWorks Dim File ......
vba 定时器
vba代码中，可以设置定时器。如下例子执行宏 auto_open后，可触发定时器。 Sub auto_open() MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！" Call runtimer '打开文档时自动运行 End Sub ......
vba 提高Excel中VBA的运行效率
一、尽量使用VBA原有的属性、方法和Worksheet函数 二、尽量减少使用对象引用 每一个 Excel 对象的属性、方法的调用都需要通过 OLE 接口的一个或多个调用，这些 OLE调用都是需要时间的，减少使用对象引用能加快VBA代码的运行 使用With……End With语句，尽量减少对象引用 三 ......
VBA中的FreeFile
在VBA中，FreeFile函数用于获取一个可用的文件编号。它返回一个可用于打开文件的整数值。每个打开的文件都需要一个唯一的文件编号，FreeFile函数可以帮助我们获取未被使用的文件编号。 在上述代码中，mp3File = FreeFile这行代码将获取一个可用的文件编号，并将其分配给变量mp3F ......
VBA实现 倒计时
实现效果： 控件展示倒计时读秒，修改tt的值即 倒计时时间。点击控件开始/暂停倒计时读秒。双击控件 重置读秒时间。 模块1: Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As L ......
【VBA】如何在Word表格里插入特殊符号
Word里有插入特殊符号的功能，如下图。 通过编程语言实现在Word表格插入特殊符号操作，可以参考下面VBA代码。 ActiveDocument.Tables(1).Range.Cells(2).Select Selection.MoveEnd Unit:=wdCharacter, Count:=- ......
VBA-选择标题的内容
简单说明 这个是模仿但是不是wod自带的功能：选择标题和内容 这个功能能方便的快速选择这个标题下面的所有内容。 要选定是因为我要对这个标题下面的子标题进行排序，但是排序的话，不能有父标题，也就是说，选择的内容中的最高标题要是同级别（有父标题就排序父标题去了，但是父标题又只有一个，排序个der啊）。 ......
Excel 使用VBA 自定义函数
启用Excel开发工具 打开Excel 的VBA (ALT+F11) 新键VBA工程模块 写入自定义函数 Function HexIPAddr(strIPAddr As String, isAsc As Boolean) As String Dim arry, bit0 As String, bit ......
VBA代码知识
1 /* 如何禁止掉 excel 取消隐藏工作表的功能 */ 2 Worksheets("测试用例").Visible = xlSheetHidden 和 Worksheets("测试用例").Visible = xlSheetVeryHidden 都是将名为 "测试用例" 的工作表隐藏起来，但它们 ......
vba中快速删除多行
Sub zz() ar = Range("A1").CurrentRegion m = 1 For i = 2 To UBound(ar) If ar(i, 1) <> "B" Then m = m + 1 For j = 1 To 2 ar(m, j) = ar(i, j) Next End If ......
VBA学习笔记
2023-04-24 （1）Option Explicit：在模块最开始加这句代码，如果程序中有未声明的变量，程序不会运行，且计算机会自动提醒你声明变量。 在VBE编辑界面，通过 工具 --》选项 --》编辑器 --》勾选“要求变量声明”，则每个模块都会在第一句自动写下 “Option Explic ......
vba-字典放到两列中
将 字典d 放到 A:B 列: [a1].Resize(d.Count) = Application.Transpose(d.keys) [b1].Resize(d.Count) = Application.Transpose(d.items) d.keys 是一个数组， d.items是一个数组 ......
VBA学习笔记901_代码留存
只是为了记录一些跑过的代码，尽量加上注释，但有些非常简单，只是为了以后快速熟悉代码结构 条件选择 `最基本 If 逻辑表达式 Then ' 如果逻辑表达式为真，则执行这里的语句 End if `加强版 If 逻辑表达式 Then ' 如果逻辑表达式为真，则执行这里的语句 Else ' 否则（即逻辑表 ......
vba调用MD5函数进行加密
vba调用MD5进行加密 ...以下代码来着网络...这里搬运为了便捷使用查找，无其他用途 MD5函数源码，需将下面源码复制到Excel的模块中，调用MD5函数即可进行加密，第一个参数为加密的文本，第二参数为加密类型，如：32,16. Private Const BITS_TO_A_BYTE = 8 ......
记一次excel vba 爬虫实战
基于办公与互联网隔离，自带的office软件没有带本地帮助工具，因此在写vba程序时比较不方便(后来发现07有自带，心中吐血，瞎折腾些什么）。所以想到通过爬虫在官方摘录下来作为参考。 所使工具: python3.7,requests、selenium库 前端方面：使用了jquery、jstree 设 ......
VBA 高级筛选
VBA 高级筛选 http://www.geren-jianli.com/n19719c34.aspx http://m.vccoo.com/v/4aej07_2 AdvancedFilter 函数介绍 ......
Excel VBA教务考试成绩管理——考场编排系统下载及使用说明
考场编排系统使用说明书 考场编排系统下载地址：百度网盘 目录 考场编排系统使用说明书... 1 一、考场编排系统的优势... 2 优势1：从根本上杜绝考生串通舞弊现象。... 2 优势2：操作简单。... 2 优势3：有较高的智能性。... 2 优势4：限制条件少，通用性强。... 2 优势5：具有 ......
VBA语法总结
为了控制Excel，学了些VBA，总结下语法，下文分为五部分： 一、代码组织 二、常用数据类型 三、运算符 四、控制流 五、常用内置函数 一、代码组织 1.能写代码的地方有{模块，类模块}。 2.代码中可以写的成员有{变量和常量，过程和函数}。对成员的访问修饰符有{public，private} 3 ......
VBA概述之在Office产品中创建自己的应用程序
VBA概述 VBA（Visual Basic For Application）是VB语言在Office产品中的应用，它基于Visual Basic For Windows发展而来，Visual Basic For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设 ......
VBA一例：如何保持文本框焦点
缘起 在Excel的VBA编程中，设计一个用于录入的用户窗体，该窗体包含1个文本框和2个按钮，文本框用于扫描枪的录入。 要求扫描枪可以连续录入，即每扫描完一个条码，文本框自动清空，文本框继续获得焦点。 我们知道扫描枪录入实际上等同于往文本框录入一段字符串并回车， 那么刚才的要求理论上可以在文本框的K ......