- 博客(14)
- 资源 (2)
- 收藏
- 关注
原创 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 531 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 418 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 736 1
原创 VBA几个常用的模块
1.把所有工作sheet的A1为选定状态;2.把所有工作sheet的显示倍率都设置成当前sheet的显示倍率并保存3.在所选的单元格位置增加向下箭头4.在所选的单元格位置增加红色边框的透明矩形5.在所选的单元格位置添加剪贴板中的图形
2023-01-31 16:25:05 953 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 154
原创 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 933 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 1862
原创 VBA实现多个EXCEL文件的文本检索和文本替换功能
发现系统批量搜索Excel中的文字不好用,替换更无从谈起,于是利用VBA自己搞。1、点击固定一个单元格,激发对话框打开事件,选定要搜索的文件夹。2、选定后自动在该单元格下列出文件夹路径,和文件列表同时加载超级链接。还有文件个数。每次选定将清空该列表和文件夹路径等信息。3、新建一个实心矩形作为搜索按键,并添加至宏进行文本搜索功能代码的编辑。搜索是根据文件夹列表和文件夹路径逐一打开Excel文件,对检索的文本进行搜索并记录和加载超级链接,该链接定位到单元格。将加载超级链接的搜索结...
2021-08-19 09:12:48 4511
原创 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 1835
转载 学习笔记(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 152
GoogleMap点击地图可以显示城市市区街道门牌号,经纬度等信息。
2021-07-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人