- 博客(14)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 VBA 功能最强最稳定Excel搜索，实现包含子文件夹内的所有搜索
thWS.Cells(4, 3) = "用时:" & Minute(StopTime) & "分" & Second(StopTime) & "秒" & "" & ""HiddenMsg = "被隐藏"thWB.Sheets(2).Cells(1, 1) = "" '异常日志清空。If errDescription <> "" Then '异常纪录。MsgBox "没有发现文件"' MsgBox "改文件不存在"'执行子文件夹的文件搜索，返回文件地址列表。MsgBox "搜索完了"
2024-04-03 17:52:30
369
1
原创 VBA 多个文件批量搜索文字并将结果添加链接
ThisWorkbook.Sheets("SEARCH").Cells(resultRow, 1).Value = "WorkSheet被隐藏"' Loop through Excel files in the folder 当前文件夹下的所有文件（*.xls*），屏蔽搜索文件本身。MsgBox "文件无法打开" & folderPath & "\" & fileName。MsgBox "检索完成，有" & resultRow - 6 & "个文件存在检索内容"
2024-01-19 12:10:26
347
1
原创 自动写邮件模板-工作报告 Outlook
在 Outlook 中，要创建一个邮件模板并在邮件主题中自动添加当前日期，我们需要使用一些简单的 VBA 脚本（Visual Basic for Applications，是 Microsoft 的宏语言）。objMail.Body = "自定义工作内容" & vbCrLf "工作时间：9：00 至 "& roundedTimeStr。strSubject = "某某部门_某某" & Format(Now, "yyyyMMdd") & "工作报告"然后也可以直接将该宏按键加载到菜单栏。
2023-10-31 13:35:38
153
1
原创 VBA几个常用的模块
1.把所有工作sheet的A1为选定状态；2.把所有工作sheet的显示倍率都设置成当前sheet的显示倍率并保存3.在所选的单元格位置增加向下箭头4.在所选的单元格位置增加红色边框的透明矩形5.在所选的单元格位置添加剪贴板中的图形
2023-01-31 16:25:05
857
1
原创 MySQL 获取所有表与字段
-- 查询所有表的注释和字段注释SELECT a.table_name 表名, a.table_comment 表说明, b.COLUMN_NAME 字段名, b.column_comment 字段说明, b.column_type 字段类型, b.column_key 约束FROM information_schema. TABLES aLEFT JOIN information_schema. COLUMNS b ON a.table_nam...
2021-10-07 16:46:33
142
原创 VBA读取JSON的txt文件
打开文本文件，将读取JOSN文件的数据并转码复制到buff中，先遇到“]”符号截取文本复，然后再在截取的文本中查“{”，遇到该符后截取复制到单元格中并换行。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address = "$M$1" Then With Application.FileDialog(msoFileDialogFilePicker) ...
2021-08-27 16:49:14
834
3
原创 VBA调用Sheet表单中的控件
直接在设计模式中添加控件，然后在VBA中调用该控件的代码：开发——》设计——》插入——》选择Form控件的 CheckBoxActiveSheet.Shapes.Item(1).OLEFormat.Object.Value上面代码也可以调用图形等对象。获取的值感觉怪怪的，真值是1，假值是-4142多个Item则需要逐个遍历然后定位。还有一种是添加开发——》设计——》插入——》选择ActiveX控件的 CheckBoxActiveSheet.CheckBox1.Value 这..
2021-08-27 13:10:00
1691
原创 VBA实现多个EXCEL文件的文本检索和文本替换功能
发现系统批量搜索Excel中的文字不好用，替换更无从谈起，于是利用VBA自己搞。1、点击固定一个单元格，激发对话框打开事件，选定要搜索的文件夹。2、选定后自动在该单元格下列出文件夹路径，和文件列表同时加载超级链接。还有文件个数。每次选定将清空该列表和文件夹路径等信息。3、新建一个实心矩形作为搜索按键，并添加至宏进行文本搜索功能代码的编辑。搜索是根据文件夹列表和文件夹路径逐一打开Excel文件，对检索的文本进行搜索并记录和加载超级链接，该链接定位到单元格。将加载超级链接的搜索结...
2021-08-19 09:12:48
3953
原创 VBA EXCEL每天写工作报告然后邮件发送
每天打开读写保护的每日工作报告表格，记录工作时间，打卡时间，工作内容然后按一定格式做成发到指定邮箱（OutLook）。第一步：新建一个EXECEL文件，借由该文件中的VBA代码打开指定的每日工作报告，该每日工作报告文件有写保护密码。VBA代码如下：Private Sub Workbook_Open() Application.DisplayAlerts = False Application.ScreenUpdating = False Mon = Sheet1.Cel...
2021-08-10 09:44:47
954
转载 学习笔记（1):跟汤老师学Java（第8季）：面向对象-super关键字
本课程从零开始，以通俗易懂的方式讲解Java入门，手把手教你掌握每一个知识点，真正做到零基础入门学习，最适合初学者的教程！课程内容包括：1.面向对象简介2.类的使用3.this关键字4.static关键字5.方法重载6.构造方法7.包package8.访问修饰符9.对象的初始化顺序10.面向对象三大特征11.封装12.继承13.多态...
2020-06-29 18:19:05
137
GoogleMap点击地图可以显示城市市区街道门牌号，经纬度等信息。
2021-07-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人