- 博客(9)
- 收藏
- 关注
原创 门店外拓计划合并
以下程序需修改过才能用Sub 收集文件夹中文件路径()Dim f '1.批量打开文件,将文件路径记录到数组f中 f = Application.GetOpenFilename(FileFilter:="Excel文件(*.xls; *.xlsx),*.xls;*.xlsx,所有文件(*.*),*.*", Title:="Excel选择", MultiSelect:=True) '2.建立当前workbook自变量 Set t = ThisWorkbook 'thisw
2021-12-18 15:12:49
84
原创 批量按固定行数切分工作簿为多个工作簿,通用!
批量按固定行数切分工作簿为多个工作簿,此程序是切割13000行。通用!!!Sub 批量切分表格()Set twb = ThisWorkbook '1.计算需创建的表格数量 nr nr = Round(twb.ActiveSheet.UsedRange.Rows.Count / 13000 + 0.5) '2.for循环不断建表 For i = 1 To nr Dim wkb As Workbook Set wkb = Workbo
2021-08-04 17:58:04
190
原创 VBA 关键词凸显(利用【】符号)
程序由我的好朋友丰哥提供!!因为Excel不能对在单元格中的特定关键词修改字体颜色,所以本文将用“【】”来将关键词凸显,以便工作。'这代码应放在personal.xlsb中,然后在 开发工具-宏-设置快捷键。才能使用Sub 特征凸显()Dim aa As VariantDim bb As VariantDim cc As VariantDim arr As New Collectio...
2019-07-15 16:54:47
224
原创 VBA 批量合并workbook工作簿至主workbook工作簿的多个worksheet工作表中
前言:此程序是将多个工作簿汇总至主工作簿的多个工作表中,且每个工作表的name是对应的工作簿的name。Sub 批量合并workbook至主workbook的多个worksheet中() '1.批量打开文件,将文件路径记录到数组f中 f = Application.GetOpenFilename(FileFilter:="Excel文件(*.xls; *.xlsx),*.xls...
2019-07-03 00:48:32
1022
原创 VBA 批量打开workbook工作簿,汇总到同一workbook工作簿中
**VBA 批量打开workbook工作簿,汇总到同一workbook工作簿中**前言:此VBA程序用于,对母婴玩具行业的各一级维度的数据进行汇总。Sub 收集文件夹中文件路径() Dim f '1.批量打开文件,将文件路径记录到数组f中 f = Application.GetOpenFilename(FileFilter:="Excel文件(*.xls; *.xl...
2019-07-02 23:00:50
2307
原创 VBA 文本格式转超链接
VBA 文本格式转超链接 Sub 文本转超链接() Dim i& i = 4 With ActiveSheet Do Until .Cells(i, 7) = "" .Hyperlinks.Add Anchor:=.Cells(i, 7), Address:=.Cells(i, 7).Value ...
2019-07-02 22:23:14
589
原创 VBA 判断字符串是否包含中文字符
VBA 判断字符串是否包含中文字符Function StrWithChinese(StrChk As String) As BooleanStrChk = VBA.StrConv(StrChk, vbNarrow) '将字符串转换成半角StrWithChinese = IIf(Len(StrChk) < LenB(StrConv(StrChk, vbFromUnicode)), Tru...
2019-07-02 22:20:42
5776
转载 VBA GetOpenFilename文件类型筛选规则,返回选择的文件完整路径和文件名
@VBA GetOpenFilename文件类型筛选规则,返回选择的文件完整路径和文件名一、概述基本语法'GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名。'注:1、此方法并不会真正打开文件? 不能显示文件夹路径(FILEDIALOG可以打开)2、此方法不能打开文件,只能返回路径3、不能显示文件夹路径'Appl...
2019-07-02 22:18:43
3733
转载 VBA 字符串处理函数集合
@VBA 字符串处理函数集合mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串]例如 mid(“小欣无敌”,1,3) 则返回 “小欣无”instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找,返回字符串2在字符串1中的位置例如 instr(1,“小欣无敌”,“小”) 则返回 1,instr(2,“小欣无敌”,“小”),则返回 0 。 0 ...
2019-07-02 22:17:30
838
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人