VBA学习笔记.doc

Activecell 当前活动单元格Sheets（1）表示排在第一位的工作表Sheet1表示第一个创建的工作表Integer 整数 string 字符 range 区域 Boolean 真假值工作表表示的几种方法：Worksheets(表序列号).range().select 表序列号和排位有关，如果拖动了表，序列号就变了Worksheet1.range().select 表名称，生成的时候就既定了Worksheets(“表的名字”).range().select 自己手输入的那个Cells.select 选取所有单元格Rows.select 选取所有行Columns.select 选取所有列Range(“A1”,”G5”) =range(“A1:G5”)=A1:G5用逗号分隔的区域是连续区域，表示以A1为起点，G5为终点选择非连续区域：Range(“A52,B52：B56，D52：D56”)Union(cells(52,1),range(“B52：B56”), D52：D56).selectRange(“多选2”).select选择连续的行：Rows(“88:90”)selectRange(“A88:A90”).entirerow.select选取不连续的行不连续的单元格. entirerow.select选取已经使用的区域：工作表.Usedrange.select usedrange包括使用的内容和格式的单元格，并且只能跟再工作表后面，而不能是工作簿和单元格Currentregion单元格.currentregion一个非常有用的属性，返回活动单元格所在的周围由空行和空列组成的单元格区域定位区域端点单元格：Range（）.end(参数).selectxlUp = Ctrl+xldown = Ctrl+EndxlToLeft =Ctrl+左箭头XlToRight =Ctrl+右箭头参照移动单元格参照单元格.offset(移动的行数,移动的列数)扩展固定选取resize（总行数，总列数） 不能是负数和0Range.SpecialCells 方法表达式.SpecialCells(Type, Value) 其中value为可选如果 Type 为 xlCellTypeConstants 或 xlCellTypeFormulas，则该参数可用于确定结果中应包含哪几类单元格。将这些值相加可使此方法返回多种类型的单元格。默认情况下，将选择所有常量或公式，无论类型如何。XlCellType 常量xlCellTypeAllFormatConditions：任意格式单元格xlCellTypeAllValidation：含有验证条件的单元格xlCellTypeBlanks：空单元格xlCellTypeComments：含有注释的单元格xlCellTypeConstants：含有常量的单元格xlCellTypeFormulas：含有公式的单元格xlCellTypeLastCell：已用区域中的最后一个单元格xlCellTypeSameFormatConditions：含有相同格式的单元格xlCellTypeSameValidation：含有相同验证条件的单元格xlCellTypeVisible：所有可见单元格XlSpecialCellsValue 常量xlErrorsxlLogicalxlNumbers xlTextValues两种函数方法：单元格.formula=”字符串” 相当于手工往单元格里面输入函数Application.worksheetfuction.函数 相当于直接计算，往单元格里面输入结算结果ColorindexColor 0Color 0Color 15Color 15Color 30Color 30Color 45Color 45Color 1Color 1Color 16Color 16Color 31Color 31Color 46Color 46Color 2Color 2Color 17Color 17Color 32Color 32Color 47Color 47Color 3Color 3Color 18Color 18Color 33Color 33Color 48Color 48Color 4Color 4Color 19Color 19Color 34Color 34Color 49Color 49Color 5Color 5Color 20Color 20Color 35Color 35Color 50Color 50Color 6Color 6Color 21Color 21Color 36Color 36Color 51Color 51Color 7Color 7Color 22Color 22Color 37Color 37Color 52Color 52Color 8Color 8Color 23Color 23Color 38Color 38Color 53Color 53Color 9Color 9Color 24Color 24Color 39Color 39Color 54Color 54Color 10Color 10Color 25Color 25Color 40Color 40Color 55Color 55Color 11Color 11Color 26Color 26Color 41Color 41Color 56Color 56Color 12Color 12Color 27Color 27Color 42Color 42Color 13Color 13Color 28Color 28Color 43Color 43Color 14Color 14Color 29Color 29Color 44Color 44On error goto 100100: 命令语句当给对象变量赋值时，一定要用set打头，如单元格，区域什么的，是个综合体EnchFor Each c in Worksheets(Sheet1).Range(A1:D10) If c.Value .001 Then c.Value = 0 End IfNext c交叉区域Aersect（range（1），range（2） 返回两个区域的交叉区域Rows(i & : & i + 1).Insert 两行之间插两空行Range(A1:A & lastrow)Range.find 方法 找到的是单元格或者区域Find(查找值，, LookIn:=信息类型（如xlvalues）, LookAt：=xlwhole或者xlpart, SearchOrder：=xlByRows 或 xlByColumns, SearchDirection：=xlnext（向后查找）或者xlprevious（向前超找）, MatchCase：=如果为 True，则搜索区分大小写。默认值为 False。, MatchByte, SearchFormat)Count只对日期、数字、代表数字的文本计数，如果还要逻辑值、文本或错误值，就用countaMsgbox 第二个参数为格式 16为叉号禁止 32为问号 48为叹号警示 64为信息提示vbOKOnly0只显示 OK 按钮。VbOKCancel1显示 OK 及 Cancel 按钮。VbAbortRetryIgnore2显示 Abort、Retry 及 Ignore 按钮。VbYesNoCancel3显示 Yes、No 及 Cancel 按钮。VbYesNo4显示 Yes 及 No 按钮。VbRetryCancel5显示 Retry 及 Cancel 按钮。第三组值 (0, 256, 512) 说明哪一个按钮是缺省值在worksheet。Change事件里，为防止循环的变更，往往在命令行上下加application。Enableevent=false和application。Enableevent=true 如果需要查找，可以用find方法 也可以用application。Countif（=）0命令Application.DisplayAlerts = False 在合并的时候会出现警报信息，所以要先关掉,在打开Vba里面是DOLoop循环ctiveWindow.DisplayGridlines=Not