Excel VBA
文章平均质量分 71
McDelfino
这个作者很懒,什么都没留下…
展开
-
Excel VBA - Application对象
Application.Version 显示Excel的版本号Application.UserName 显示当前用户的用户名Application.StatusBar = "状态栏" 状态栏显示内容Application.StatusBar = False 状态栏不显示内容Application.Wait Now() + TimeValue("00:00:0原创 2011-10-27 23:05:42 · 3912 阅读 · 0 评论 -
Excel VBA - 遍历某个文件夹中文件、文件夹及批量建立txt
我们可能会经常要将一个文件夹中的所有文件都遍历一遍,然后进行修改,下面就介绍用Dir函数实现遍历*.xlsx文件的方法Dir 函数返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。语法Dir[(pathname[, attributes])]第一个参数即是文件的地址,第一次引用的时候要标注,第二次用的时候就不必指出了原创 2011-11-03 16:06:41 · 98696 阅读 · 12 评论 -
VB - 数据文件(二)随机文件及文件基本操作
随机文件 随机文件中每一个记录定长,并设置记录号,记录号从1开始。 存取记录时,只要说明所需记录的编号,系统就以此算出记录所在位置,然后加以写入或读出初步认识 建立一个随机文件,文件中包含10个记录,每个记录由一个数(1至10)的平方、立方和开方根三个数值组成,以该数作为记录号Private Type Numval Square As原创 2011-11-04 17:31:59 · 11314 阅读 · 0 评论 -
VB - 数据文件(一)顺序文件
1. 打开文件(Open)Open 文件名 [For模式][Access 存取类型][锁定]As [#]文件号[Len=记录长度] 说明:(1)文件名;(2) 模式用于指定文件访问的方式,包括: Append——从文件末尾添加 Binary——二进制文件 Input——顺序输入(输入给自己,从t原创 2011-11-03 22:36:24 · 12442 阅读 · 1 评论 -
Excel VBA - 文件打开或关闭相关
→实现标准的“打开”对话框,并获取用户文件名,而不必真正打开任何文件。获取文件的FullName表达式.GetOpenFilename(FileFilter,FilterIndex,Title, ButtonText, MultiSelect)FileFilter:过滤文件Title:标题MultiSelect:可以多选Sub Stop1() Dim fileInforma原创 2011-11-01 13:00:26 · 26027 阅读 · 0 评论 -
Excel VBA - Sheet对象
工作表引用 Worksheets(3).Select 这里面的3是Index,就是一个下面的顺序Worksheets("Sheet3").Select 这里面的Sheet3是NameSheet3.Select 这里面的Sheet3是CodeName 数组 For Each Rng in Range("A1:J10")For Each Sht i原创 2011-10-27 12:29:02 · 18563 阅读 · 1 评论 -
Excel VBA - 数组及其他知识
数组:定义数组:Dim arr(30 To 50) As Single 定义数组,从30到50,定义为浮点型~arr(30) = 34.3产生随机数,但是随机数要不同(1到20之间产生10个不同的随机数)Sub sdlkfjl() For i = 1 To 10 Cells(1, i) = Int(1 + Rnd() * 19) '给个随原创 2011-10-29 22:46:57 · 10694 阅读 · 0 评论 -
Excel VBA - 自定义数据类型及其它
→用户自定义数据类型需要使用Type语句Type lianxiren name As String sex As String age As Integer phone As String address As String department As StringEnd TypeSub AddressList() Dim rec原创 2011-11-01 09:57:42 · 23174 阅读 · 0 评论 -
Excel VBA - Range对象
Rows.Count 显示所有行的数目Columns.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).Borde原创 2011-10-27 10:30:02 · 18463 阅读 · 0 评论 -
Excel VBA - Workbook对象
Workbooks(1).NameWorkbooks(1).FullName 工作簿地址加名字Workbooks(1).Path 工作簿地址Workbooks(1).Close SaveChanges:=False 关闭工作簿,并且不保存Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件Wor原创 2011-10-27 16:38:03 · 8622 阅读 · 0 评论 -
Excel VBA - 控件与用户窗体 及 常用函数
参考:http://msdn.microsoft.com/zh-cn/library/ktwtk9ff%28v=VS.80%29.aspx TextBox事件 →KeyPress事件的语法如下:KeyANSI只是个参数,所以可以改成任何喜欢的名字,每键入一个值的时候,都会触发KeyANSI,通过设置,可以实现限制默写值的键入。→KeyDown事件 按下触发原创 2011-10-28 11:03:07 · 17873 阅读 · 0 评论