VBA
平淡如茶
个人网站在线文本整理qqtool.xyz,微信小程序“文本整理器”欢迎使用。
展开
-
ReDim Preserve只能改变数组最末维大小
eDim Preserve file_info(1 To i, 1 To 2) As String file_info(i, 1) = Filename file_info(i, 2) = Folderpath红色地方改成 ReDim Preserve file_info(1 To 2, 1 To i) As String file_info(...转载 2018-11-13 16:26:13 · 1100 阅读 · 0 评论 -
【VBA】单元格格式化汇总
with Range("A1:B10") .HorizontalAlignment = xlLeft '左对齐 .HorizontalAlignment = xlCenter ' 居中 .HorizontalAlignment = xlRight '右对齐 .Font.Bold = True '粗体 .Font.Italic = True '斜...原创 2018-11-13 16:33:06 · 1122 阅读 · 0 评论 -
FormulaR1C1是EXCEL中单元格公式输入方法(补充解说)
部分内容引用于https://blog.csdn.net/sptoor/article/details/52790892Range("C2:C58").FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R2C1:R11C2,2,0)"'FormulaR1C1是公式输入方法?'相对引用:有中括号是相对于选定单元格的相对偏移量,"-"为向左或向上偏移,正数为右或下...转载 2018-11-16 11:42:04 · 5173 阅读 · 0 评论 -
【VBA】【增强版】【收藏备用】遍历文件夹内所有文件模块V5
N次修改了,此模块应该比较健壮吧,特点:1、可遍历目录下所有文件2、可筛选文件类型,可限定文件名关键词3、遍历目录(文件夹)允许存在小数点.4、一步到位,不用编写2次循环(即先遍历出目录,再遍历文件)Sub searchFile()' ---------------遍历文件夹内所有文件----------------------------- FileTy...原创 2018-12-03 12:34:30 · 390 阅读 · 0 评论 -
【VBA】判断文件或文件夹是否存在
一、判断文件或文件夹是否存在Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True Early...转载 2018-12-11 22:34:19 · 14442 阅读 · 0 评论 -
vlookup从右往左查找
从右往左查找,怎么做。这时可以利用if({1,0},)来实现,调换工号列和姓名列的位置。输入公式=VLOOKUP(A9,IF({1,0},B2:B5,A2:A5),2,0)https://jingyan.baidu.com/article/e6c8503c051dcbe54f1a1800.html...转载 2019-03-05 16:46:22 · 3891 阅读 · 0 评论 -
VB&VBA/VBScript读取和保存UTF-8文件方案
=============================== VB&VBA Code===============================Public Function SaveFile(FileName As Variant, strFileBody As Variant) As Boolean Dim ADO_Stream As Object...转载 2019-03-05 22:49:56 · 2609 阅读 · 0 评论 -
【VBA】批量解压文件
Call UnRarFile("D:\压缩文件\") Sub UnRarFile(myPath) '解压缩程序 Dim Rarexe As String Dim RAR As String Dim Myadd As String Dim FileString As String D...原创 2018-11-07 15:58:10 · 3225 阅读 · 0 评论 -
【VBA】csv转xlsx
Sub csv2xlsx() Application.ScreenUpdating = False Dim FilePath, MyFile, iPath As String iPath = ThisWorkbook.Path MyFile = Dir(iPath & "\*.CSV") On Error Resume...原创 2018-11-07 15:30:40 · 2269 阅读 · 1 评论 -
【VBA】选中单元格,自动弹出序列
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '用SendKeys语句发送快捷键【ALT+方向键向下】,调取单元格的下拉列表 If Target.Address = "$H$2" Then Application.SendKeys "%{down}" End Sub ...原创 2018-11-07 14:47:11 · 2321 阅读 · 0 评论 -
【VBA】【一天的心血,收藏一下】一键生成报表
Sub crDelReport() t1 = Timer Application.ScreenUpdating = False Call importLog Call findBrokenStation Call nowCrReport Call crFile Application.ScreenUpda...原创 2018-10-31 10:18:38 · 2966 阅读 · 0 评论 -
【VBA】【一天的心血,收藏一下】一键生成报表2
Public batch$Sub crAddReport() '获取窗体单选框选择 UserForm1.Show If UserForm1.OptionButton1.Value = True Then batch = "一" ElseIf UserForm1.OptionButton2.Value = True Then bat...原创 2018-10-31 14:10:15 · 1278 阅读 · 0 评论 -
excel表格里数字和文字混合一起如何把数字提取
=MIDB(H15,SEARCHB("?",H15),2*LEN(H15)-LENB(H15))转自https://jingyan.baidu.com/article/39810a23a12adfb636fda600.html转载 2018-11-01 12:42:59 · 22846 阅读 · 0 评论 -
【VBA】获取多文本文件总条数及去重后数量
以下文本为存放IP文件,每行一条,代码可检查IP总数及是否有重复。“合并后总数”是否等于“去重后总数” Sub CheckIPNum()On Error Resume NextDim arrDim j As Integer, all_num As Integerall_num = 0Set dic = CreateObject("scripting.dictionary")...原创 2018-11-07 11:09:23 · 943 阅读 · 0 评论 -
【VBA】工作表删除所有图片、形状
Dim shp As Object For Each shp In ActiveSheet.Shapes shp.Delete Next shp原创 2018-11-07 11:13:13 · 5026 阅读 · 0 评论 -
【VBA】按条件生成txt文件,复杂问题简单化(标准化)
总表数据 各种情况 预处理对各种条件的数据分配成独立的数组,然后输出到标准模块 Private Sub crIptxt_Click() Dim err, frr, eUb%, lRow% Dim qsbbn%, qsdun%, sgbbn%, sgdun% Dim parts_du, parts_bb, parts_...原创 2018-11-07 11:35:29 · 3008 阅读 · 0 评论 -
【VBA】一行代码删除所有空行
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete本人的小程序《文本整理器》,还有在线文本整理器wbzlq.com,欢迎使用。原创 2018-11-07 11:46:19 · 17435 阅读 · 0 评论 -
VBA陷阱
为什么UBound(VBA.Filter(Array(2,10,18,27), 6))=-1UBound(VBA.Filter(Array(2,10,18,26), 6))=0,有人知道吗?原创 2019-05-20 21:05:44 · 311 阅读 · 0 评论