中英vba
vba批量合并and拆分多个Excel文件
1、拆分：一个文件按照某一列的类型，拆分成多个文件： Private Sub SplitDataByColumn() '学习代码 Dim sourceWorkbook As Workbook Dim sourceWorksheet As Worksheet Dim lastRow As Long D ......
[中英文] Aligning language models to follow instructions 对齐语言模型以遵循指令
We've trained language models that are much better at following user intentions than GPT-3 while also making them more truthful and less toxic, using ......
vba 二维码生成
Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) A ......
开源中英文大语言模型汇总
开源中英文大语言模型汇总 Large Language Model (LLM) 即大规模语言模型，是一种基于深度学习的自然语言处理模型，它能够学习到自然语言的语法和语义，从而可以生成人类可读的文本。 所谓"语言模型"，就是只用来处理语言文字（或者符号体系）的 AI 模型，发现其中的规律，可以根据提示 ......
JS实现中英文混合文字友好截取功能
汉字和数字混合时，按照长度进行字符截取。 <script> /** * JS实现中英文混合文字溢出友好截取功能 * @param text 字符串 * @param length 截取长度 */ var zfc = {}; zfc.mixTextOverflow = function (text, ......
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 字符串表示的纯数字→数值 使用文本表示的纯 ......
cmd（命令提示符）中英文切换的方法
切换为中文 在cmd中输入以下命令后回车 chcp 936 切换为英文 在cmd中输入以下命令后回车 chcp 437 效果示例 中文： 英文： 「Invalid code page」 以下内容未经本人测试。 但是有时候系统有问题输入chcp XXX提示Invalid code page，这时候需要 ......
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" ......