VBA
转载：PageOffice在线打开office文件通过js调用vba可实现的功能
pageoffice封装的js接口有限，某些比较复杂的设置用到的客户不多，所以没有提供直接的js方法，但是pageoffice提供了Document属性和RunMacro方法，可以调vba或直接运行宏指令实现比较小众的一些需求 Word相关功能 1、给word表格中的单元格赋值 document.g ......
vba-常用代码记录
一些代码优化： 1.Range("B5:C6").Copy Destination:=Range("B8") 2.使用mid$函数而不是mid 3.把整个sheet保护，需要操作时，后台先关闭保护。 4.Excel中自带的Sum函数是将整个区域转换为数组，在内存中进行求和，速度快多了。 Dim re ......
VBA延时
Application.Wait method (Excel) Wait 方法暂停 Microsoft Excel 的所有操作，并且，Wait 起作用时可能禁止您对计算机做其他操作。 不过，后台操作（如打印和重新计算）将继续进行。 语法：Application.Wait(你想要恢复宏的时间，采用 M ......
VBA常用的文本函数 instr、mid
InStr 函数 Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' String to search in. SearchChar = "P" ' Search for "P". ' A textual compar ......
VBA自定义排序
SortField.clear 方法 清除所有 SortFields 对象。 SortFields.Add 方法 创建新的排序字段，并返回一个 SortFields 对象。 语法：expression.SortFields.add(key、 SortOn、 Order、 CustomOrder、 D ......
WORD VBA 删除分节符和分页符1
Sub 删除分节符和分页符1() ActiveDocument.Content.Find.Execute FindText:="^b", ReplaceWith:="", Replace:=wdReplaceAll '删除分节符 ActiveDocument.Content.Find.Execute ......
vba批量合并and拆分多个Excel文件
1、拆分：一个文件按照某一列的类型，拆分成多个文件： Private Sub SplitDataByColumn() '学习代码 Dim sourceWorkbook As Workbook Dim sourceWorksheet As Worksheet Dim lastRow As Long D ......
vba 二维码生成
Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) A ......
vba给workbook多工作表添加跳转链接及回跳链接
前一篇为python版，此为vba版 1 Sub CreateHyperlinks() 2 Dim wb As Workbook 3 Dim ws As Worksheet 4 Dim newSheet As Worksheet 5 Dim sheetNames() As String 6 Dim ......
VBA控制鼠标键盘
'sleep函数 Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long) '获取鼠标坐标 Private Type POINTAPI X As Long Y As Long End Type Private De ......
vba自定义函数提取字符串-正则表达式
Function ExtractString(inputString As String, pattern As String) As String Dim regex As Object Dim matches As Object Dim match As Object ' 创建 RegExp 对 ......
word VBA Selection.PasteSpecial 4198 运行时错误
If (.Execute) Then Selection.Copy '要定位到表格中 my_table.Cell(row_index, 1).Select 'Selection.Delete CreateObject("Excel.Application").Wait (Now + TimeValu ......
excel VBA中如何模拟键盘输入
SendKeys 语句将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。 语法 SendKeysstring[, wait] SendKeys 语句的语法具有以下几个： 部分 描述string 必需的。，指定要发送的按键消息。Wait 可选的。指定等待方式的 BooleandefBoo ......
VBA 连接SQLserver数据库抽数据
``` Private Sub myy() 't1 = Timer Dim i As Long, j As Long, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表, 定义为Integer类型的话，变量值超过32767时会溢出 'Dim c ......
【VBA】在段落标题前后新增文字
要想将文章中所有的： 1.1.1.1 110kV#1主变 1.1.1.1.1 RPA_分隔 替换为 RPA_分隔1.1.1.1 110kV#1主变 RPA_分隔 RPA_节点内容 500kV广南巡维中心【RPA_节点】220kV谷围站【RPA_节点】主变区域【RPA_节点】#1主变间隔 一次 RPA ......
【VBA】如何在WORD文件的每个自动序号后修改字符
要想将文章中所有的： 1）实例文字 替换为 1）#示例文字 可以使用VBA来进行操作。 保存一份源文档的副本。VBA的修改是难以撤销的。也可以先复制一部分出来到新文档进行试验。 打开 Word 文档。 按下 "Alt" + "F11" 打开 Visual Basic for Applications ......
VBA对象：Workbooks、Worksheets、Range1
Workbooks 打开工作簿 使用 VBA 可以打开指定位置的目标工作簿，使用 Workbooks 集合的 Open 方法。 Sub WB() '打开工作簿，需要指定完整的路径、名称、后缀名 Workbooks.Open "D:\Files\工作簿1.xlsx" End Sub 新建工作簿 使用 ......
VBA中数据自动类型转换
浮点型数值→赋值给整数型数值 浮点类型数值赋值给整数类型变量时，自动转换为整数类型，并按四舍五入规则取整（x.5向下取整）。 Dim i As Integer i = 1.23 'i -> 1 i = 0.9 'i -> 1 i = 1.5 'i -> 1 字符串表示的纯数字→数值 使用文本表示的纯 ......
VBA结构总结
三大结构：顺序、选择、循环 选择 If 条件表达式 Then 真执行的,语句1 ElseIf 条件表达式 假执行的,语句2 Else 上面情况都不满足执行则执行本，语句3 End If 循环 For循环 For … Next 循环For Each 循环 For...Next循环 //For … Ne ......
VBA 连接数据库
```vb '需要的参数 Const MYPROVIDER = "Provider=sqloledb;" Const MYSERVER = "Server=xxx.xxx.xxx.xxx;" Const MYPORT = "Port=3306;" Const MYDATABASE = "Databa ......
VBA中的选择结构If ...Then ...ElseIf...Else；Select Case...Case Else...
If ElseIf Else结构的基本语法如下： If 条件表达式1 Then '表达式1真时，执行的代码 ElseIf 条件表达式2 Then '表达式2真时，执行的代码 ElseIf 条件表达式3 Then '表达式3真时，执行的代码 ... ElseIf 条件表达式n Then '表达式n真时 ......
VBA语法总结：Next只能存在于For循环中；VBA中无i++，--i之类的；VBA无i+=1；
Next控制变量 只能用于For循环语句中 其他的会报错。 VBA中不存在i++ VBA中不存在i+=1 ......
VBA开发资料 Excel开发资料大全 VBA开源资料 VBA实战开发例子 VBA学习入门到提高 VBA开发实战项目 VBA EXCEL开发DEMO EXCEL二次开发视频资料
记得十多年前还专门做个VBA开发的岗位，开发一些辅助制造业生产需要的业务，生产数据进出料，与供应商对接数据等等。现在网上招VBA的岗位少了，可能说明已经被一部分软件替代，也说明现在很多人已经能使用VBA了，可能就不专门设置这个岗位了。 但在实际工作当中，使用VBA非常多的，并且快速，不像其它C#、j ......
关于VBA的双引号的使用解疑
Q：Range("A" & Num)的"A" & Num 不就是个范围吗 ，所以不应该是Range(" "A" & Num ")吗？A：在VBA中，当您要引用一个范围时，需要使用双引号将其括起来。双引号是告诉VBA，括号内的内容是一个字符串，不需要计算或解释；即使括号内只有一个字母，也必须使用双引号 ......
vba快捷键
一、常用快捷键 1. 【Ctrl+/】 注释光标所在当前行 2. 【Alt+/】 提供内容的辅助提示 3. 【Ctrl+D】 快速删除当前行 4. 【Ctrl+shift+F】 自动格式化代码 5. 【Alt+↑ / Alt+↓】 当前行和上面 / 下面 一行互换位置 省去剪切黏贴 6. 【Ctrl ......
VBA中给变量赋值
基本类型变量的赋值 基本类型变量是存储单个值的变量，例如数字、文本、日期等。 VBA 中，给基本类型变量赋值，以 Let关键词开头。赋值操作是给=左侧的变量，用=右边的数据，指定其代表的值。在后续的代码中，该变量就代表指定的数据。 在实际开发中，给基本类型变量赋值时，Let关键词可以忽略不写，直接以 ......
VBA运算符
VBA 运算符可以分为以下 6 类： 赋值运算符 算术运算符 关系运算符 逻辑运算符 连接运算符 其他运算符 原文：https://www.lanrenexcel.com/vba-operators/ ......
PPT VBA代码
Private Sub CommandButton1_Click() WebBrowser1.Navigate ("E:\X.png") End Sub Sub OnSlideShowPageChange() WebBrowser1.Navigate2 "http://www.baidu.com" ......