汽车
github
docker
scipy
defer
目标检测
PMP
flink
js
QTextToSpeech
安全威胁分析
HID
交互
r语言
USB转JTAG
rockchip
Pyhton
Pascal
shell入门
初识SpringBoot
VBA
2024/4/11 21:01:27
使用Vscode 编辑器 导出、导入和运行Excel中的VBA代码
使用Vscode 编辑器 导出、导入和运行Excel中的VBA代码 前言 Excel自带的 Microsoft Visual Basic for Applications 编辑器常被人称为上古编辑器，的确不适合代码编辑，这是其一，其二是当系统语言与Excel的安装语言不一致时，往往出现…
Excel·VBA单元格区域数据对比差异标记颜色
之前的一篇博客《ExcelVBA单元格重复值标记颜色》，是对重复的整行标记颜色 而本文是按行对比2个单元格区域的数据，并对有差异的区域（一个单元格区域有的，而另一个单元格区域没有的）标记颜色，且只要存在任意…
二、Excel VBA 简单使用
Excel VBA 从入门到出门一、Excel VBA 是个啥？二、Excel VBA 简单使用 👋Excel VBA 简单使用 ⚽️1. 如何在Excel中手动编写VBA代码⚽️2. 如何在 Excel 中运行 VBA 代码⚽️3. 如何在Excel中记录VBA代码⚽️4. 如何在Excel中编辑录制的VBA代码⚽️5. 如…
VBA自学应用（2）——制作简单的数据录入窗口
制作简单的数据录入窗口一、画一个你的窗体二、编写窗体代码三、使用工作表事件激活窗体四、补充：关于鼠标在listbox中的滚轮实现现如今有两张表，一张产品表，一张录入表，如图所示。 我们要做出如下效果： 达成这样的…
文档目录、页眉和文档章节标题之间插入相互链接的最佳实践
如果我们手里有一个设置了标题样式的Word长文档，只需要在文档中使用“引用”面板的“目录”命令，即可为文档添加目录，此时点击目录项，就会跳转到文档正文中的相应位置。但是点击正文中的标题，却不能跳转到对应的目录项…
VBA笔记——collection方法
文章目录一、定义二、成员三、特点四、读取集合元素五、删除集合元素1、三种方法删除集合元素六、和普通数组相比集合的特点七、和字典方法比较1、集合添加时增加检索用关键词的方法， 以及集合添加时改变顺序的方法：八、注意点：集合中的key一…
VBA提高篇_19 可选参数Optional_ IsMissing _MSgbox
文章目录1. 可选参数Optional2.IsMissing判断参数是否提供,只能判断变体类型3. 使用 : 可以按参数名传递参数 a:1,c:34.Msgbox 常用参数5.VBA颜色常量表1. 可选参数Optional Optional 代表本参数是可选项 False ; 代表参数若不指定,则默认为False Function mySumProduct(r As R…
VBA实战(6) - 数组
Class06. 数组
定义
下面是几种常见定义数组的方法。 定义一个一维数组，数据类型为Variant，长度从0到5，实际控件有六个，长度为5
Dim arr(5) as String定义一个一维数组，数据类型为Variant，长度从1到5&…
VBA实战(5) - 常用函数总结
Class05. 常用函数总结
字符串处理
函数含义Trim(string)去掉string左右两端空白Ltrim(string)去掉string左端空白Rtrim(string)去掉string右端空白Len(string)计算string长度Left(string, x)取string左段x个字符组成的字符串Right(string, x)取string右段x个字符组成的字符串…
VBA实战(04) - 决策与循环
Class04. VBA - 决策与循环1. 决策1.1. if语句1.2. if ... else 语句1.3. if ... elseif ... else 语句2. 循环2.1. for 循环2.2. 设置步长2.3. 嵌套循环2.4. 退出循环其他链接1. 决策
1.1. if语句
语法如下。
if boolean_expression thenStatement 1..........Statement n
…
VBA笔记——遍历文件夹(含子文件夹)方法
文章目录一、调用目标文件夹的方法1、Application.FileDialog方法2、视窗浏览器界面选择目标文件夹二、仅列出所有文件三、仅列出目标文件夹中所有子文件夹名四、遍历目标文件夹内所有文件、以及所有子文件夹中的所有文件一、调用目标文件夹的方法
1、Application.FileDialog方…
vba：文件夹和文件夹的处理
Option Explicit
1 判断文件夹是否存在 dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹，如果结果为""，则表示不存在。 Sub w1() If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) &q…
wps电子表格(xlsx)在excel打开时，多余图形(shapes)的处理
背景：
1. win10, excel 打开 wps 生成的 xlsx文档；
2. 文档中有多余的图形,经检测为shape大类；
3. 文档中可见的图形可以全选后删除； 但是不可见部分仍然存在；
4. vba删除时，可以直接循环删除ÿ…
VBA：Excel工作簿所有子表数据一键汇总
今天同事问我，他要汇总一个工作簿里面十几张子表里面的数据到同工作簿的汇总表里面，怎么操作比较快？然后我就想到了VBA，接着给他写（录）了一个宏，一键完成所有数据汇总。 所以今天就分析这个小技…
VBA manual
VBA MACRO 修复乱码打开VBAAlt F11File/Options/Customize Ribbon 修复乱码
Tools / Options Control Pannel / Region
打开VBA
Alt F11
快速打开VBA
File/Options/Customize Ribbon
Java调用com组件操作word
一、准备工作 先了解一下概念，JACOB 就是 JAVA-COM Bridge的缩写，提供自动化的访问com的功能，也是通过JNI功能访问windows平台下的com组件或者win32系统库的。这是一个开始于 1999年的开源项目的成果，有很多使用者对该项目进行了修…
Excel宏(VBA)密码破解
最近在研究一个Excel宏，想查看VBA代码但是有密码，于是想着能不能移除密码。网上查找一番资料后进行了尝试。
一，准备工具
ExcelHex Editor Neo
二，开始实践
首先将.xlsm后缀名的文件改为.zip文件 然后双击zip文件(不用解压文件…
Excel·VBA时间范围筛选及批量删除整行
看到一个帖子《excel吧-筛选开始时间，结束时间范围内的所有记录》，根据条件表中的开始时间和结束时间构成的时间范围，对数据表中的开始时间和结束时间范围内的数据进行筛选 目录 批量删除整行，整体删除批量删除整行，分…
【数据分析】Excel中使用VBA进行宏编程
目录 0 准备工作1 VBA简介1.1 Excel VBA应用程序的构成1.2 事件驱动1.3 宏1.3.1 创建宏1.3.2 宏安全 2 VBA基础2.1 注释2.2 数据类型2.2.1 基本数据类型2.2.2 枚举类型2.2.3 用户自定义数据类型 2.2 变量2.3 常量2.4 运算符2.5 程序结构2.6 过程2.7 函数 3 Excel应用程序开发流…
VBA小模板：如何把 txt / json /xml 文件内容读入到excel 表里
0 分析问题
0.1 解决问题前，需要先分析问题
我本来是翻看我自己之前总结的一些文件处理笔记，也搜了下别人的，发现问题很多
网上各种例子，也都是为了解决某一个问题/ 一类问题 的特定方案，普适性不强自己以前就是想到…
Replace（）函数实例讲解——vba
Replace函数
描述
返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
语法
Replace(expression, find, replace[, start[, count[, compare]]])
Replace函数语法有如下命名参数：
…
Excel VBA 打开百度网页输入关键字并搜索
Sub 百度搜索()
Excel VBA 打开百度网页输入关键字并搜索
Dim KW, Su
With CreateObject("InternetExplorer.Application")
.Navigate "http://www.baidu.com/"
.Visible True
Do Until .readyState 4
DoEvents
Loop
Set KW .document.getElementsByNam…
VBA dialogs 调用对话框
XlBuiltInDialog 枚举 (Excel)
指定要显示的对话框。
名称值说明xlDialogOpen1【打开】对话框xlDialogOpenLinks2【打开链接】对话框xlDialogSaveAs5【另存为】对话框xlDialogFileDelete6【文件删除】对话框xlDialogPageSetup7【页面设置】对话框xlDialogPrint8【打印】对话框…
通过VBA代码合并单元格
转载自：http://jingyan.baidu.com/article/ad310e80d01fe11849f49e25.html 有时候，excel表格里同一列里面有许多相同的值（比如同一个部门、同一个老师），这时候我们就需要把相同值合并成一个单元格，以使exce…
程序调用宏（Macro）执行相同内容单元格合并
本实例是通过ABAP程序调用Macro合并A列相同内容的单元 Sub Macro1(a As Integer, b As Integer)macro1a start row b end lowApplication.DisplayAlerts FalseDim i As IntegerDim first As IntegerDim last As Integerfirst aFor i a To b Step 1If Worksheets("Sheet…
Excel_VBA实现：弹出对话框进行打开另存（附FileDialog 属性）
excel_vba可实现弹窗进行人机交互，本案例实现弹窗选择需要打开的excel文件，选择文件后打开该文件，然后弹窗提示该文件另存为路径及目录，代码如下：
Sub 打开文件对话框()
On Error Resume Next
With Application.FileD…
Excel·VBA二维数组组合函数之穷举推理题
看到一个帖子《CSDN-求助一道推理题》，与之前《python穷举暴力破解《2018年刑侦推理题》用python穷举的推理题很类似
那么是否可以使用《ExcelVBA二维数组组合函数、组合求和》combin_arr2d函数，生成结果进行穷举呢？
Sub 穷举推理题()Dim …
Word·VBA文档合并
目录 1，复制法，不保留原文档格式2，复制法，保留原文档格式3，插入法，保留原文档格式 之前的文章《WordVBA实现邮件合并》虽然可以生成邮件合并文档结果，但是不能像《python实现word邮件合并》一样…
如何用vba做答题、抽点类ppt
首先严重声明一下，我不是ppt高手，酷炫动画、美化之类一概不会，我只会写点代码，汇报ppt做得要多丑有多丑。
16年底，有幸拿到一份答题ppt模板，接手做了“XX知识问答竞赛”ppt，包含选题答题、倒计…
【夏虫语冰】Office操作技巧汇总
文章目录 1、Word技巧1.1 添加题注 2、Visio技巧2.1 快捷键2.2 格式刷 结语 1、Word技巧
1.1 添加题注
在 Word 中添加、删除标题或设置其格式：
可以为图表、公式或其他对象添加题注。 题注是带编号的标签，可将其添加到图表、表格、公式或其他对象。 …
Excel·VBA使用ADO读取工作簿工作表数据
目录 查询遍历写入数组查询整体写入数组查询工作簿所有工作表名称查询工作簿所有工作表数据 不打开工作簿读取数据，以下举例都为《ExcelVBA合并工作簿》中 7，合并子文件夹同名工作簿中同名工作表，纵向汇总数据所举例的工作簿，使用…
Excel·VBA制作工资条
看到一篇博客《excel表头_Excel工资表怎么做？3分钟学会利用函数生成工资表》，使用排序功能、函数制作工资条。但如果需要经常制作工资条，显然使用VBA更加方便
VBA制作工资条
Sub 制作工资条()Dim title_row&, blank_row&, ws_new$,…
基于VBA自动成批批改word格式作业
1方法：利用word VBA编程，选择文件夹中的批量word版本的作业，自动在作业开头加上作业批改信息，方便教师批改大批量作业。 图1 程序运行界面，设置等级和评语 图2 选择要批改的作业 图3 作业批改成功 图4 作业批改效果图 …
Golang 面试题 (4) N个协程交替打印1-100
Golang 面试题 (4) N个协程交替打印1-100 启动N个协程，共用一个外部变量计数器，计数器范围是1到100开启N个有缓冲chan，chans[i]塞入数据代表协程i可以进行打印了，打印的数字就是计数器的数协程i一直阻塞，直到chan[i]通…
VBA根据Excel内容快速创建PPT
示例需求：根据Excel中选中的单元格内容（3列）如下图所示，在已打卡的PowerPoint文件中创建页面。 新增PPT Slide页面使用第二个模板页面，其中包含两个文本占位符，和一个图片占位符。将Excel选中区域中前两列写…
vba中字典的应用实例
vba中熟练使用字典可以帮我们解决很多问题，以下为字典的应用方法及案例：
Sub dictionary()
Dim d As New dictionary 定义字典
Dim mykey As Variant
Dim myitems
d.Add "1100000", "身份证" 字典录入key关键字和item条目
d.Add &q…
VBA实战篇学习笔记 01 数据搜索和数据处理
实战篇目录 文章目录 专题I 数据搜索课时8 直达表格末尾的方法Find最佳 专题II 数据处理课时12 Sort_自定义排序1课时13 Sort_自定义序列2课时14 数组Array和字典Dictionary课时15 MergeArea合并区域课时16 MergeArea合并区域(不懂,需复习) 专题I 数据搜索
课时8 直达表格末尾…
第十一届蓝桥杯省赛完整解析（Java 大学B组）
A 解密
答案提交
这是一道结果填空题，你只需要算出结果后提交即可。本题的结果为一个只包含 30 3030 个大小写英文字母的字符串，在提交答案时只填写这个字符串，填写多余的内容将无法得分。
代码
public class Main {static String s1 &q…
蓝桥杯2020年上半场省赛完整版题解（Java 大学B组）
A 解密
本题总分：5 分
问题描述
小明设计了一种文章加密的方法：对于每个字母 c cc，将它变成某个另外的字符 Tc
。下表给出了字符变换的规则： 例如，将字符串 YeRi 加密可得字符串 EaFn。小明有一个随机的字符串&…
Excel·VBA二维数组组合函数、组合求和
目录 1，二维数组组合函数举例 2，组合求和 之前的文章《ExcelVBA数组组合函数、组合求和》和《ExcelVBA数组排列函数》，都是针对一维数组的组合和排列 二维数组组合：对一个m行*n列的二维数组，每行抽取1个元素进行组合&a…
EXCEL中汉字转变拼音的技巧~代码实现
Excel 中是没有此功能的！需要自己编写VBA代码来实现汉字转变拼音的函数！照着下面操作30秒轻松搞定轻松实现！不需要懂编程哦！
Excel自定义函数方法： 1.启动Excel 2007（其它版本请仿照操作）&…
使用VBA奖大纲级别定义良好的单个Word文档按指定的大纲样式分割成多个文档
我们知道，大纲级别定义良好的Word文档可以轻松用MindManager转换成思维导图。但是，对于一个极长的文档，例如一本教材，直接导入MindManager转换后的思维导图，因为内容过多，仍然很难阅读。这时候，…
VBA提高篇_26 Textbox多行_ListBox_ComboBox
文章目录1. 文本框多行换行2. ListBox: 列表框2.1 列表框中添加条目的三种方法:3. ComboBox 组合框: 属性方法等同于以上ListBox1. 文本框多行换行
MultiLine: 控制文本框多行自动换行()
Enterkeybehevior: True 代表允许在文本框中使用回车键换行
WordWrap: True 代表自动换…
第十一届蓝桥杯上半场省赛（Java 大学B组）
蓝桥杯 2020年上半场省赛（Java 大学B组）
A 解密
本题总分：5 分
问题描述
小明设计了一种文章加密的方法：对于每个字母 c cc，将它变成某个另外的字符 Tc
。下表给出了字符变换的规则： 例如，…
Excel·VBA指定目标值切割分组
看到一个帖子《excel吧-数据切断分组问题》，对1列数据按指定长度进行切割分组，获取每组的长度组成方式
VBA代码
Sub 数据分割()Dim arr, target, brr, res, x&, y&, i&, 差额, trr(1 To 2) trr(0)为数值，trr(1)为组成方式arr…
Outlook VBA自动处理邮件
需求描述
公司里面每天都会有很多邮件，三分之一都是不需要看的，Outlook的过滤功能不错，都可以处理掉。还有些邮件，根据正文或者附件做一下处理自动转发出去就行了。于是上网搜集了一些资料，写个了小程序，共…
Excel·VBA工作表导出为图片
《Excel转图片别再截图啦！用这4个方法，高清且无损！》，excel转为图片一般方法较为简单，那么能否使用vba将excel转为图片
选中区域导出为图片
zoom设置为2，导出图片较为清晰
Sub 选中区域导出为图片()Dim …
VBA Regex 正则表达式应用介绍
. VBA正则表达式介绍
正则表达式或 RegEx 用于在字符串中查找特定的字符。 本文将展示一个 VBA RegEx 示例，并演示为什么在 VBA 中使用正则表达式如此强大。 正则表达式是一个比较大的话题，关于这方面的书很多。 同时也是一个让许多人感到害怕的话题，因为它的语法比较神秘和…
Excel·VBA二维数组组合函数的应用实例之概率计算
看到一个视频《李永乐老师的抖音 - 骰子概率问题》，计算投出6个骰子恰好出现1、2、3、4、5、6这6个点数的概率
李永乐老师的计算方法是，第1个概率为1即6/6，第2个不与之前相同的概率为5/6，第3个同理概率为4/6，因此该问…
VBA还能这么玩？Word文档一秒自动排版
Hello，各位小伙伴们大家好呀，真的是好久不见了。旅行者1号也才用20个小时回传数据到地球。距离 Yogurt 上次正儿八经的教程推文已经快 700 天了，时间过得真快呀，感谢各位的不离不弃。
这两天群里比较活跃，便上去看看发生了啥事儿，不看不知道，一看，这推文的素材不就来…
Excel·VBA二维数组组合函数的应用实例
看到一个问题《关于#穷举#的问题，如何解决？(语言-开发语言)》，对同一个数据存在“是/否”2种状态，判断其是否参与计算，并输出一系列数据的“是/否”状态的结果 目录 方法1：二维数组组合函数结果 方法2&am…
Word·VBA实现邮件合并
目录 制作邮件合并模板VBA实现邮件合并举例 之前写过的一篇使用《python实现word邮件合并》，本文为vba实现方法
制作邮件合并模板 域名可以使用中文，最终完成的word模板，wps操作步骤类似
VBA实现邮件合并
在Excel启用宏的工作表运行以下代…
VBA 学习笔记1 对象以及属性
目录 1 取得VBA对象1.1 取得工作簿对象1.2 取得工作表对象1.3 取得单元格对象1.4 取得对象的属性1.5 文档的方法1 进入vba 界面 方式之一： 快捷键：ALTERF11
运行方式之一： 进入vba界面，点击绿色三角符号
1 取得VBA对象
1.1 取得…
CorelDRAWX4的C++插件开发(四十三)VBA的错误返回机制
我们在写程序的时候往往不知道内部出了什么问题,所以问题返回机制还是比较重要的,程序可以不正确,但是程序一出问题直接就闪退崩溃也是一大麻烦,所以这里我们先探讨一下VBA的错误返回机制 我们先上代码 CorelDRAW.Optimization TrueOn errer GoTo cuowu中间放需要的任意代码…
Wpe工作原理和教程-以传奇为列
1.Wpe工作原理和可行性分析 wpe所要改的，不是[游戏里面的数值]，而是[伪造信息封包]。 什么意思咧??就是我们用wpe所要改的，并不是"生命力由100变成10000"之类的东西， 这种东西无法用wpe改， 我们要改的可能…
基于VS 2005环境的MS office自动化开发之熟悉环境篇
作者：朱金灿 来源：http://blog.csdn.net/clever101/ 进行MS office自动化开发最好的工具或许是VBA，但是很多时候我们的应用系统往往和MS office的文件打交道，比如生成word文件和EXCEL报表等等，因此学习一下主流的开发…
Excel·VBA使用ADO合并工作簿
之前文章《ExcelVBA合并工作簿（7，合并子文件夹同名工作簿中同名工作表，纵向汇总数据）》处理合并工作簿问题，代码运行速度比较慢 而《ExcelVBA使用ADO读取工作簿工作表数据》读取数据非常快，那么是否可以使用…
Excel VBA开发基本语句说明
前言
VBA（Visual Basic for Applications）是一种用于编写宏的编程语言，它广泛应用于Microsoft Office套件中的各种应用程序，如Excel、Word、Access和PowerPoint等。在这些应用程序中，VBA可用于自动化任务、定制功能、…
如何在Outlook 2019/Office 365中运行VBA脚本邮件规则
如果你公司的邮件系统是Microsoft Exchange Server Outlook，能在Outlook中执行VBA邮件规则，自动化处理邮件，可以节省大把的时间。自Outlook 2016开始，运作VBA邮件规则需要费一番周折了，跟博主来看看如何做吧。
1. 开…
AutoCAD VBA开发遇到的坑（一）
目录 为什么用AutoCAD VBAAutoCAD VBA开发遇到的坑未完待续 为什么用AutoCAD VBA
很多人说VBA是老古董，新手上路CAD二次开发都是推荐C#。我的情况是这样的：我工作的内网机，无法联网。（你能想象装一个vs要下载离线安装包拷到内网的…
excel 无法删除有合并单元格的列内容时的替代方法
背景：
hp 笔记本电脑；win10 64位；excel 版本 16.0； office 2016自带excel 问题：
把pdf转excel后，由于原 pdf 图表本身的原因，转换后有不规则合并单元格的现象。
而在选择某列进行“删除” &a…
excel vba宏 合并多个sheet
科普：xls格式最多就65535行，xlsx格式最多是1048576行。
有时候办公室同事从系统上导出表，当数据量过大的时候，系统都会拆分成多个sheet来导出，每个sheet的表结构一致。 他们需要将sheet合并，这样以便做筛选…
【Python COM】Word 自动纵向合并相同内容单元格
使用场景
docxtempl 库不支持动态纵向合并单元格，所以写了这段代码用来曲线救国。
使用方法
需要纵向合并的单元格加上在文本末尾加上“【纵向合并】”，然后调用此函数，就会自动纵向合并相同内容的单元格。
代码
需要安装 pywin32 库。 …
2. VBA Excel宏
在本章中，我们来学习如何逐步编写一个简单的宏。
第1步 - 首先，在Excel 2016中启用“开发者”菜单。要完成这个设置，请点击左上角菜单：文件 -> 选项。如下图所示 - 第2步 - 点击“自定义功能区”选项卡并选中“开发工具”。然…
VBA入门1——基础
VBA基础入门 VBA基础认识VBA注释变量常用 Excel 对象代码组命令编辑器模块 基础操作编辑器格式模块、函数插入与导出代码运行 编写你的第一个 VBA 宏Excel录制宏并查看宏代码Excel 中如何运行 VBA 代码？ VBA 变量、类型、运算符VBA 变量基础教程（VBA 核心…
VBA实现语料或术语表奇偶行分列和双列合一
一、问题的提出
日常的双语语料处理或者术语格式转化过程中经常要用到下面的操作：
1.在Excel中把一列双行即上下对照的形式改为左右对照。如下图所示，把A转化为B这种样式。
2. 把B这种左右对归照转化为A这种上下对照样式。 二、问题的解决
这个问题看…
GetPrivateProfileSection使用
基本语法
GetPrivateProfileSection 是一个 Windows API 函数，用于检索指定 INI 文件中特定节的所有键值对。它可以读取INI文件中指定节所有的键值对并将结果存储在指定的缓冲区中。
以下是 GetPrivateProfileSection 函数的基本语法：
DWORD GetPriva…
上来写个随笔，自豪的推荐大家使用WPS
今天在天涯上看到一个推荐WPS的帖子，心血来潮，下了一个，只有28M，小巧，快速，打开一看，确实很不错啊，特地上来写个blog，为我们的国产软件广而告之！！…
【链接MySQL】教你用VBA链接MySQL数据库
hi，大家好呀！
之前呢，给大家分享过一个自制链接表管理器的文章，文章中有链接SQL Server数据库的代码，大家对这一段代码比较有兴趣，既然大家有兴趣，那我们今天就来讲一下链接数据库的代码。
这…
Excel·VBA数组分组问题
看到一个帖子《excel吧-数据分组问题》，对一组数据分成4组，使每组的和值相近 目录 代码思路1，分组形式、可分组数代码1代码2代码2举例 2，数组所有分组形式举例 这个问题可以转化为2步：第1步，获取一组数据…
vba：消息框基础，massagebox
常量常量值说明vbOKOnly0只显示“确定”按钮（缺省值）VbOKCancel1显示“确定”和“取消”按钮VbAbortRetryIgnore2显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel3显示“是”、“否”和“取消”按钮VbYesNo4显示“是”和“否”按钮VbRetryCancel5显…
Visual C++ 中操纵 MS Word 123
使用VC编程来操纵Office。你可以实现诸如：Word文件打印、传送数据到Word文档、发送E-MAIL、自动产生表格、Excel数据统计、圆饼图，直方图显示、自动报表生成、播放幻灯、doc，txt，HTML，rtf文件转换、中文简繁体转换、拼…
Excel·VBA日期时间转换提取正则表达式函数
标准日期转换
Function 标准日期(ByVal str$) As DateDim pat$, result$arr Array("(\d{4}).*?(\d{1,2}).*?(\d{1,2})", "(\d{4}).*?(\d{1}).*?(\d{1,2})")If Len(str) < 8 Then pat arr(1) Else pat arr(0)With CreateObject("vbscript.r…
VBA Excel自定义函数的使用 简单的语法
一个简单的教程，实现VBA自定义函数。
新建模块 复制后面的代码放进来 函数的入口参数不定义，则认为是一块区域； 反之，如FindChar1 As String，则认为是输入的单值。
循环和分支如下例子，VB比较接近自然语…
excel(vab)删除空行
删除第一、二、三列位空的所有行（8000)行范围以内
代码如下：
Sub Macro1()Dim hang As Integer
For hang 8000 To 1 Step -1If Sheet1.Cells(hang, 1) "" And Sheet1.Cells(hang, 2) "" And Sheet1.Cells(hang, 3) "&quo…
Cannot install Microsoft Office 64-bit after removing Office 32-bit 卸载微软之前版本
问题描述
win10系统安装了一个Viso2019，无法安装Excel 64位版本。弹窗报错
解决办法1 SaRACmd
https://winitpro.ru/index.php/2017/12/11/office-all-versions-removal-scripts/用于完全删除任何版本的 MS Office 的脚本 使用 Microsoft SaRa 实用程序自动卸载…
程序员应知：你有几种武器
程序员应知：你有几种武器？ http://news.csdn.net/a/20100804/277678.html 首先我们必须有一种最趁手最熟悉的武器，有人的是java，有人是vb，还有人是c#等等，这种武器是用来解决大型项目中的问题的，…
Excel VBA 之IF判断语句和比较运算符
VBA的分支结构中，最常用的就是IF…Then…Else结构，其语法为 （单行形式） If condition Then [statements] [Else elsestatements] 或（换行的话，需要在末尾添加END IF） If condition [statements]…
一、Excel VBA 是个啥？
Excel VBA 从入门到出门一、Excel VBA 是个啥？二、Excel VBA 简单使用 👋Excel VBA 是个啥？ ⚽️1. Excel 中的 VBA 是什么？⚽️2. 为什么 VBA 很重要？⚽️3. 是否有无代码方法可以在 Excel 中实现工作流程自动化&…
vba读取xml文件
创建完成xml文件以后需要vba读取，一下则是vba读取xml文件过程。 Dim xmlDoc, xmlRoot, ChildItem, msgSet xmlDoc CreateObject ("Microsoft.XMLDOM")xmlDoc.Load "C:\Documents and Settings\Administrator\Desktop\test\web.xml" 使用load方…
VBA实战(08) - 文件和文件夹处理
文件与目录汇总
创建文件夹
新建一个文件夹的关键字为 VBA.MkDir. 全路径
VBA.MkDir (filePath)删除文件夹
删除文件夹的关键字是 ReDir.
RmDir "D:\NewFolder"删除文件
删除文件夹的关键字是 Kill.
Kill (sumFileName)复制文件
复制文件可以使用 FileCopy 函…
VBA实战(10) - 日期处理汇总
日期处理汇总
定义一个日期
v_date Date 今天，格式为：yyyy-MM-dd
v_time Now 此时，格式为：yyyy-MM-dd HH:mm:ss
v_date2 #"2021-06-01" 指定时间
v_date3 CDate("2021-06-01")日期格式化 2022-01-…
VBA实战(7) -字典（Dictionary）
VBA 中字典（Dictionary）的使用
定义 Map
Dim dict创建Dictionary
Set dict CreateObject("Scripting.Dictionary")新增元素 增加项目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500删除元素
dict…
Excel·VBA按指定顺序排序函数
与之前写过的《ExcelVBA数组冒泡排序函数》不同，不是按照数值大小的升序/降序对数组进行排序，而是按照指定数组的顺序，对另一个数组进行排序
以下代码调用了《ExcelVBA数组冒泡排序函数》bubble_sort_arr函数（如需使用代码需复制…
使用C＃中的Convert.ToInt32（）将十进制，八进制，十六进制字符串转换为整数
Convert.ToInt32()方法 (Convert.ToInt32() Method) Convert.ToInt32() is a predefined method in C#, which returns an integer value (in 32 bits) from given various types of values. Convert.ToInt32()是C＃中的预定义方法，它从给定的各种类型的值…
【乌龟爬】之.NET中的嵌入语言与宿主的交互
这个题目已经弄清楚了，可以研究一下进阶阶段的内容了，所以改了题目，作为好好讨论的东西了。玩过魔兽或者Office的人都对嵌入式语言有一定了解，通过lua或者VBA，你可以操作宿主语言里的物件，可能是一个人物角…
VBA实战(09) - 工作簿（WorkBook）
工作簿（workbook）汇总
打开一个文件
打开一个 Excel 文件的函数为Workbooks.Open.
Set originalWb Workbooks.Open(originalFileStr)如果文件是带用户名和密码时，可以使用如下函数。
Set originalWb Workbooks.Open(originalFileStr, 0…
利用C#进行AutoCAD的二次开发
利用C#进行AutoCAD的二次开发（一）
呵呵，把自己前在网上以表的文章放到这里。
利用C#进行AutoCAD的二次开发（一） 众所周知，对AutoCAD进行二次开发用到的主要工具有：ObjectArx,VBA,VLisp。但它们…
Excel·VBA数组平均分组问题
看到一个帖子《excel吧-数据分组问题》，对一组数据分成4组，使每组的和值相近 上一篇文章《ExcelVBA数组分组问题》，解决了这个帖子问题的第1步，即获取所有数组分组形式的问题 接下来要获取分组和值最相近的一组，只需计…
VBA中如何调用自定义函数
一、问题提出
在VBA中我要把B列中所有的非空单元格的值都判断一遍，如果大于60就在其旁边的单元格写入"及格"，反之就写入不及格。如下图所示： 由于B列的非空单元格数量无法确定，所以我们就要定义一个自定义的函数来获取…
Excel根据颜色求和与计数
文章目录 一、需求二、实现方法1.代码2.创建自定义函数3.使用函数 三、参考资料 一、需求
一个Excel中有不同颜色标记的单元格，统计的时候，需要按照颜色进行统计。 人工来做肯定是不可能了，借助Excel的功能好像也没有思路，其实这…
VBA-自定义面板，使用SQL查询Excel数据
需求
定制插件，实现用户打开任意一个工作簿，写sql对Excel中的数据进行查询
案例sql需求场景：
需求
筛选日期小于’2023-4-24’，按group分区，求和各分组下的销售额，返回结果集新建工作表写入
数据源
现…
MathType公式批量转换为Word自带公式的VBA实现及error ‘4198‘ 处理
VBA 纯新手，程序可能比较傻，大家将就看。有改进建议，欢迎留言
参考链接： 1、2种办法把MathType公式转换为Word公式
2、一键批量将mathtype公式转换成word自带公式-vba/vbnet_mathtype批量转word自带_一路向前的小Q的博客-CSDN博…
VBA提高篇34 Do循环_空值Empty/Nothing/Null/IsMissing
文章目录1. Do while ...Loop | Do Until ... Loop2.Do ...Loop while | Do while 条件...Loop3. 变体类型的初始值Empty/IsEmpty4.对象变量Nothing/ Is Nothing5. Null/IsNull6. 函数传递IsMissing()7. 总结 变量的默认初始值;1. Do while …Loop | Do Until … Loop Do while…
012集——显示高考天数倒计时——vba实现
以下代码实现高考倒计时：
Sub 高考倒计时()
高考日期 CDate("06,07," & Year(Date))
If Date > 高考日期 Then高考日期 CDate("06-07-" & Year(Date) 1)
End If
年月日 Year(Date) & "年" & Month(Date) &am…
动态链接库、静态链接库、导入库
原文地址：http://www.cnblogs.com/chio/archive/2008/08/05/1261296.html
动态链接库dll，静态链接库lib, 导入库lib 目前以lib后缀的库有两种，一种为静态链接库(Static Libary，以下简称“静态库”)，另一种为动态连接库…
VBA获取某文件夹下所有文件和子文件目录的文件
原文地址为：
VBA获取某文件夹下所有文件和子文件目录的文件<strong>VBA获取某文件夹下所有文件，或子文件目录的文件</strong>-------------------------------------------
获取某文件夹下的所有Excel文件
--------------------------------…
vba设置excel单元格背景色
vba设置excel单元格背景色位蓝色
Sheet1.Cells(hang, 2).Interior.Color RGB(0, 0, 255)
参考链接
【VBA】给单元格设置背景色_vba 将一行底色置绿色-CSDN博客https://blog.csdn.net/s_h_m114_2/article/details/105787093
参考2 知乎 VBA--单元格的背景色设置
特此…
ATL development in Chart in Excel
ATL development in Chart in Excel 利 用Excel提供的类型库, 对Excel文档进行操作, 图表的开发是一项痛苦的工作, 一个图表是由多个series(系列)组成, 每个系列可以赋值不同的公式(formular). 本文对系列上显示的标记文本和背景的颜色改变作一点探讨, 由于是基于COM组件的Acti…
pb9实现在两个工作簿之间进行工作表复制
下面的函数f_excel_hb，可以实现“将工作簿filename_s中的工作表sheetname_s以新的工作表名称sheetname_t，复制到工作簿filename_t的最后” [cpp] view plaincopy public function boolean f_excel_hb (string filename_s, string filename_t, string s…
CAD VBA 导出cass扩展数据到excel
cass中往往会写入扩展数据，但获取扩展数据较为麻烦，此例我们通过getxdata函数获取实体的扩展数据，然后逐要素循环写入excel中，代码如下：
版本1：要素扩展数据字段不同 Sub 导出扩展数据到excel()Dim Excel …
[Outlook]如何规避“Email Security Update”警告框
<iframe align"top" marginwidth"0" marginheight"0" src"http://www.zealware.com/csdnblog01.html" frameborder"0" width"728" scrolling"no" height"90"></iframe>如何规避“…
word vba自动化排版-设置标题模板样式、标题、正文、图表、页面、上下标等设置、删除空白行、删除分页符分节符、删除空格等
word vba自动化排版-设置标题模板样式、标题、正文、图表、页面、上下标等设置、删除空白行、删除分页符分节符、删除空格等
目录
1.前提
2.思路
3.word中设置
4.效果图
5.经验教训
6.直接上代码 1.前提 需求：工作中涉及自动识别大量的文字报告（o…
用 VB.net，VBA 两种方式 读取单元格内的 换行数据，并出力到 CSV文件
用 VB.net，VBA 两种方式 读取单元格内的 换行数据，并出力到 CSV文件 需求 如下图所示，为了生成csv文件导入数据库，需要将下图 的 1 和 2 拼接成 如下 3 所示的一行数据， 开头为 1 ，往后为 2 的换行数据 将换…
VBA提取逻辑分析仪数据
这个是针对逻辑分析仪采集的数据后倒入CSV文件后的数据进行处理
记录一下VBA提取位数据的方式
下面的程序提取了BIT0-BIT15中的bit11，bit6 和 bit5
Sub subtohex()Dim i As Long转化hex数据For i 2 To 50000If Sheet1.Cells(i, 2) <> "" ThenSh…
AutoCAD 2000的一些实用技巧
来源：http://www.gpszx.com/neteaseivp/resource/paper/detail.jsp?pk301 摘要： AutoCAD 是目前国内外使用最广泛的CAD软件，AutoCAD R14 丰富的绘图命令，强大的编辑功能，三维造型功能和良好的用户界面深受广大工程技术…
Excel·VBA分列、字符串拆分
看到一篇博客《VBA，用VBA进行分列（拆分列）的2种方法》，使用VBA对字符串进行拆分 目录 Excel分列功能将字符串拆分为二维数组，Split函数举例 将字符串拆分为一维数组，正则表达式举例 Excel分列功能
Sub 测…
Excel VBA 之Interior 对象设置底色
Interior 对象 代表一个对象的内部 针对interior对象，我们用得最多的是它的颜色，下面就来讨论一下。 1.ColorIndex 索引颜色值 Sub 索引颜色值()For i 1 To 56Cells(i, 1).Interior.ColorIndex iCells(i, 2) iNext iFor i 1 To 56Cells(i, 3).Interi…
Excel·VBA合并工作簿2
其他合并工作簿的方法，见之前的文章《ExcelVBA合并工作簿》 目录 8，合并文件夹下所有工作簿中所有工作表，按表头汇总举例 8，合并文件夹下所有工作簿中所有工作表，按表头汇总
与之前的文章《ExcelVBA合并工作簿&#x…
【超实用】教你生成GUID
oi,好久不见呀，最近又许久未更新了。大家也都在催更ERP的文章，可最近着实比较忙，趁今天有点小空隙，给大家分享个非常实用的代码，生成GUID。
我们先来看两个概念，在知道什么是GUID之前，必须要先…
Vim的插件管理利器pathogen
转自：http://blog.163.com/yysfire126/blog/static/1831747201181852059467/ Vim 能成为一款优秀的编辑器，是离不开各种功能的插件的。默认情况下，Vim 的插件都是散落安装在 $VIM/vimfiles/（~/.vim/ on Linux) 目录下。然而&#…
输入一个三位数，求个位十位百位java代码
import java.util.Scanner; public class Test { public static void main(String[] args){ System.out.println(“请输入一个三位数”); Scanner sc new Scanner(System.in); int num sc.nextInt(); int ge num % 10; int shi num / 10 % 10; int bai num /100 ; System.…
vba里字符串操作函数小结
目录 left,right,mid,LensplitvaljoininstrInStrRevReplacemid删除空格字符串与ASCIIleft,right,mid,Len
left(字符串，截取长度) 返回从字符串左边算起指定截取长度的字符。 right(字符串，截取长度) 返回从字符串右边算起指定截取长度的字符。 mid(字符串，截取起始位置，截…
Excel VBA 复制除指定工作表外所有的工作表的内容到一张工作表中
当我们有一张表里面有很多sheet 具有相同的表结构，如果需要汇总到一张表中，那么我们可以借助VBA 去实现汇总自动化
Sub 复制所有工作表内容()Dim ws As WorksheetDim targetSheet As WorksheetDim lastRow As Long 设置目标表格，即要将所有…
VBA WORD 段落前加空行
Private Function isBlankLine(s1 As String) As Boolean ‘判断是否为空白行 ‘9 TAB 32 空格 13 换行 l1 Len(s1)
For i 1 To l1
ch Asc(Mid(s1, i, 1))If (ch <> 9 And ch <> 32 And ch <> 13) ThenisBlankLine FalseGoTo exit1End If
Next iisBla…
VBA实战(01) - 环境配置
Class 01. VBA - 环境准备1. 使用前准备1.1. 如果启用宏设置1.2. 打开 Excel 的开发工具2. 新建一个宏文件2.1. 新建宏流程2.2. 编辑并运行宏流程2.3. 保存宏文件2.4. 添加触发按钮2.5. Excel弹出 请注意！您的文档的部分内容可能包含文档检测器无法删除的个人信息。…
VBA实战(02) - 变量、数据类型和运算符
Class02. VBA - 变量、数据类型和运算符
1. 变量
1.1. 变量的定义和命名
变量是一个指定的内存位置，用于保存脚本执行过程中可以更改的值。以下是命名变量的基本规则。
变量名称必须使用一个字母作为第一个字符。变量名称不能使用空格，句点(.)&#…
VBA实战(03) - Excel 对象
Class03. VBA - Excel 对象1. Excel 的结构2. 打开和关闭Excel2.1. 打开Excel文件2.2. 关闭Excel文件2.3. 保存Excel文件3. 操作Sheet页3.1. 定位到Sheet页3.2. 修改Sheet页的名称3.3. 获取Sheet页中的行数和列数4. 操作表格信息4.1. 给单元格设置值4.2. 读取单元格的值4.3. 选…
EXCEL批量拆分SHEET成工作表代码
工作中遇到按月份批量导出EXCEL工作表任务，网上找了VBA代码，可以提高效率
VBA分拆SHEET
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.S…
Excel+VBA处理高斯光束
文章目录 1 图片导入与裁剪2 获取图片数据3 数据拟合 1 图片导入与裁剪
插入图片没什么好说的，新建Excel，【插入】->【图片】。
由于图像比较大，所以要对数据进行截取，选中图片之后，点击选项卡右端的【图片格式】…