- 博客(23)
- 收藏
- 关注
原创 VBA基础知识整理(文本文件操作)
txt文件的读写'Open 文件名 for 打开方式 as 文件编号 '打开方式: 'Input :只能读,不能写 'Append:允许读也允许写,如果存在文件就追加记录,如果没有就新建文件 'Output:可以读,也可以写。但总会把原来的同名文件删除,再新建一个 '读取txt文件内容方法 'input:从文件中读取指定数量的字符。...
2019-05-14 07:44:21
5342
原创 VBA基础知识整理(文件操作)
文件夹基本操作'1 判断文件夹是否存在'dir函数的第二个参数是vbdirectory时可以返回路径下的指定文件和文件夹,如果结果为"",则表示不存在。 Sub w1() If Dir(ThisWorkbook.path & "\2011年报表2", vbDirectory) = "" Then MsgBox "不存在" Else MsgB...
2019-05-14 07:31:44
1518
1
原创 VBA基础知识整理(随机数)
Sub 随机挑选演示程序1() Dim arr Dim x As Integer, num As Integer, k As Integer Range("c1:c10") = "" Range("a1:a10") = Application.Transpose(Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")) ...
2019-05-13 22:26:39
4809
原创 VBA基础知识整理(图象图表)
shape对象的类型和属性'Shapes 对象,'该对象代表工作表或图形工作表上的所有图形,它是sheets和chart的子对象(属性)Sub t2() On Error Resume Next Dim ms As Shape k = 1 For Each ms In Sheet1.Shapes k = k + 1 Cells(k, 1) = ms.Name...
2019-05-13 22:18:02
2025
原创 VBA基础知识整理(日期,时间)
日期和时间计算'1 计算两个日期相隔天数,月数,年数,小时,分种,秒Sub tt1() Dim d1, d2 As Date d1 = #11/21/2011# d2 = #12/1/2011# Debug.Print "相隔" & (d2 - d1) & "天" Debug.Print "相隔" & DateDiff("d", ...
2019-05-13 20:13:40
18089
1
原创 VBA基础知识整理(数据类型)
'1 数据类型综述'在VBA中的数据类型有整数、文本、对象等类型。这些不同的类型有着特定的作用,在进行运算时也会占用'不同大小的内存,所以我们在编写程序时为了提高运行效率,一般都要定义数据的类型。'2 数据类型对程序运行的影响 'byte 占用1个字节 'integer,boolean 占用2个字节 ...
2019-05-13 19:52:35
2330
原创 VBA基础知识整理(正则表达式)
'一 正则表达式 '正则表达式是处理字符串的外部工具,它可以根据设置的字符串对比规则,进行字符串的对比、替换等操作。 '正则表达式的作用: '1、完成复杂的字符串判断 '2、在字符串判断时,可以最大限度的避开循环,从而达到提高运行效率的目的。'二 使用方法'1、引用法 '点击VBE编辑器菜单:工具 - 引用,选取: Microsoft VBScr...
2019-05-13 19:21:12
17747
原创 VBA 字符串操作
字符串拆与组合'left,right,mid,LenSub z1() Dim sr sr = "Excel精英培训网" MsgBox Left(sr, 5) MsgBox Right(sr, 5) MsgBox Mid(sr, 3, 5) MsgBox Left(sr, Len(sr) - 1)End Sub'splitSub z2() Dim sr, ar...
2019-05-13 17:22:15
2469
原创 Excel 对话框
FileDialog对象'一 FileDialog 对象简介 '提供文件对话框,功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。 '利用这些对话框,解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。''“打开”对话框:让用户选择一个或多个可以在主机应用程序中使用 Execute 方法打开的文件。'“另存为”对话框:让用户选择一个可以...
2019-05-13 16:50:08
678
原创 VBA基础知识整理(字典,自定义函数)
字典基本概念'1 什么是VBA字典? '字典(dictionary)是一个储存数据的小仓库。共有两列。 '第一列叫key , 不允许有重复的元素。 '第二列是item,每一个key对应一个item,本列允许为重复 'Key item 'A 10 'B 20 ...
2019-05-13 16:40:59
8024
原创 VBA 排序算法
Sub 冒泡排序()Dim arr, temp, x, y, t, k t = Timer arr = Range("a1:a10") For x = 1 To UBound(arr) - 1 For y = x + 1 To UBound(arr) '只和当前数字下面的数进行比较 If arr(x, 1) > ar...
2019-05-13 15:45:39
1692
原创 VBA基础知识整理(事件,数组)
事件Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "单元格选择发生了改变"End Sub----------------------------------Private Sub Worksheet_Change(ByVal Target As Range) Application.Enabl...
2019-05-13 11:27:03
1757
1
原创 VBA 基础知识整理(单元格,表,工作簿)
'1、工作簿 ' Workbooks 代表工作簿集合,所有的工作簿,Workbooks(N),表示已打开的第N个工作簿 ' Workbooks ("工作簿名称") ' ActiveWorkbook 正在操作的工作簿 ' ThisWorkBook '代码所在的工作簿 '2、工作表 ' 'Sheets("工作表名称") ...
2019-05-12 08:34:24
3533
1
原创 VBA 遍历文件夹 创建删除 文件夹
第一种方法:使用filesearch对象Sub mysearch()Dim fs, i, arr(1 To 10000)Set fs = Application.FileSearch '设置一个搜索对象With fs .LookIn = ThisWorkbook.Path & "/" '设置搜索路径 .Filename = "*.xls" '要搜索文件名和类型...
2019-05-11 17:01:27
1356
原创 VBA 将sheet2表中的数据写入到文本文本中
将sheet2表中的数据写入到文本文本中 Sub 转换成txt文件() Dim f, arr, x, y, k f = ThisWorkbook.path & "\ruku.txt" arr = Sheets("sheet2").Range("a1:e6") Open f For Output As #1 For x = 1 To UBound(...
2019-05-11 16:48:48
1255
原创 VBA 读写文本文件
直接采用Open函数+Line input命令 Private Sub txt_read() Dim txt As String Open "D:\dzh.txt" For Input As #1 ' '对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用, ...
2019-05-11 16:34:13
12840
原创 VBA 文件操作
'1 判断A.Xls文件是否存在 Sub W1() If Len(Dir("d:/A.xls")) = 0 Then MsgBox "A文件不存在" Else MsgBox "A文件存在" End If End Sub '2 判断A.Xls文件是否打开 Sub W2() Dim X As Integer...
2019-05-11 16:23:30
460
原创 VBA 单元格 格式化
Sub t3() Dim i As Long For i = 1 To 20 Cells(i, 1) = Format(Cells(i, 1), "currency") Next i End Sub
2019-05-11 16:08:44
581
原创 VBA 字符串函数
len(s) 求长度trim(s) 去掉两端空格replace(s,a,b) 替换s中子串a,用b替代left(s,a) 从左边取若干字符right(s,a) 从右边取若干字符mid(s,a,b) 从中间取若干字符instr(s1,s2) s1中查找字符串s2,返回位置instr(a,s1,s2) 从a位置在s1中查找字符串s2,返回位置---------------...
2019-05-11 16:02:31
4107
原创 VBA正则表达式
dim myreg as objectset myreg = createobject("vbscript.regexp")myreg.pattern="正则表达式(deerchao.net)"set mymatches= myreg.execute(查找内容)for each mymatch in mymatches mymatch.submatches(0)next m...
2019-05-11 15:03:01
1398
原创 VBA 合并单元格的排序算法
Sub test()Dim i As LongDim j As LongDim temp As LongDim iRow As LongDim jRow As Longi = 2Do While i < 16j = i + Cells(i, 1).MergeArea.Rows.CountDo While j < 16iRow = Cells(i, 1).Merg...
2019-05-11 14:15:34
1232
原创 VBA 自定义函数返回find查找的符合条件集合 demo
Sub t1()Dim fNum As CollectionDim numDim numStr As StringnumStr = "全民VBA"Set fNum = findNum(numStr)For Each num In fNum Range(num).Interior.ColorIndex = 0Next numEnd SubFunction findNum...
2019-05-11 11:02:36
3436
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人