vba批量合并and拆分多个Excel文件
摘要：1、拆分：一个文件按照某一列的类型，拆分成多个文件： Private Sub SplitDataByColumn() '学习代码 Dim sourceWorkbook As Workbook Dim sourceWorksheet As Worksheet Dim lastRow As Long D
阅读全文
posted @
2023-07-07 10:18
吃饱饱没烦恼
阅读(653)
推荐(0) 编辑
vba自定义函数提取字符串-正则表达式
摘要：Function ExtractString(inputString As String, pattern As String, Optional order As Integer = 0, Optional matchType As Boolean = True, Optional submatc
阅读全文
posted @
2023-06-30 09:57
吃饱饱没烦恼
阅读(896)
推荐(0) 编辑
vba调用MD5函数进行加密
摘要：vba调用MD5进行加密 ...以下代码来着网络...这里搬运为了便捷使用查找，无其他用途 MD5函数源码，需将下面源码复制到Excel的模块中，调用MD5函数即可进行加密，第一个参数为加密的文本，第二参数为加密类型，如：32,16. Private Const BITS_TO_A_BYTE = 8
阅读全文
posted @
2023-04-22 11:00
吃饱饱没烦恼
阅读(708)
推荐(0) 编辑
excel函数用法小结
摘要：Excel函数使用小结 if与数组的结合使用——多条件查询 多条件统计查询： 获取： 广州战区、A类的数据最小值： =MIN(IF(($A$3:$A$21=$K$2)*($B$3:$B$21=$J$2),$C$3:$C$21)) 注：if函数，在使用数组结合的过程中，出现多个条件判断时，不可以使用a
阅读全文
posted @
2023-04-01 10:44
吃饱饱没烦恼
阅读(377)
推荐(0) 编辑
vba进度条制作
摘要：Sub 进度条() Dim rowTotal As Integer rowTotal = 100 For i = 1 To rowTotal Step 1 prgramBarShow.Show 0 prgramBarShow.lblProgress.Width = prgramBarShow.lbl
阅读全文
posted @
2022-12-07 23:08
吃饱饱没烦恼
阅读(329)
推荐(0) 编辑
vba爬虫返回数据乱码处理
摘要：vba爬虫返回数据乱码处理 Function BytesToBstr(strBody, CodeBase) '使用Adodb.Stream对象提取字符串 Dim objStream On Error Resume Next Set objStream = CreateObject("Adodb.St
阅读全文
posted @
2022-11-20 02:11
吃饱饱没烦恼
阅读(321)
推荐(0) 编辑
vba解析html页面
摘要：vba解析html页面 Sub test() 'vba解析html页面（字符串） Dim ohtml, ohttp, table, byid, byname, byclassname, selectorall, selector As Object, s As String Set ohtml =
阅读全文
posted @
2022-11-20 02:01
吃饱饱没烦恼
阅读(773)
推荐(0) 编辑
