VBA编程经典语句系列41-80

nnsea

大家在学习VBA过程中要注意积累自己的所学，以后我会不定期的将写代码过程中经常用到的一些语句及解释总结供大家参考。这些可以作为积木编程的一个有效补充。此资料的所有部分在大家分享我的教程后会同时送给给大家，今日给大家分享第二部分：
            

            
41  Range(“A1”).Copy Range(“B1”)   复制单元格A1，粘贴到单元格B1中
42  Range(“A1:D8”).Copy Range(“F1”)  将单元格区域复制到单元格F1开始的区域中
43  Range(“A1:D8”).Cut Range(“F1”)  剪切单元格区域A1至D8，复制到单元格F1开始的区域中
44  Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”)  复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
45  Worksheets("Sheet1").Activate  激活Sheet1 工作表（Sheet1是隐藏状态也可以）
46  ActiveCell.CurrentRegion.Select  选择活动单元格区域
47  Settbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select选择活动单元格固定区域
44  ActiveWindow.RangeSelection.Value=XX  将值XX输入到所选单元格区域中
45  ActiveWindow.RangeSelection.Count  活动窗口中选择的单元格数
46  Selection.Count  当前选中区域的单元格数
47  TextColor=Range(“A1”).Font.ColorIndex 检查单元格A1的文本颜色并返回颜色索引
48  Range(“A1”).Interior.ColorIndex   获取单元格A1背景色
49  cells.count  返回当前工作表的单元格数
50  Selection.Range(“E4”).Select  激活当前活动单元格下方3行，向右4列的单元格
51   Cells.Item(5,“C”) 引单元格C5
52   Cells.Item(5,3) 引单元格C5
53   Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)指定单元格F5
54   Range(“A1”).Offset(4,5) 指定单元格F5
55   Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)  创建B3：D13区域


56   Rnage(“B3”).Resize(11,3) 创建B3：D13区域
57   Range(“Data”).Resize(,2)  将Data区域扩充2列
58   Union(Range(“Data1”),Range(“Data2”))  将Data1和Data2区域连接
59   Intersect(Range(“Data1”),Range(“Data2”)) 返回Data1和Data2区域的交叉区域
60   Range(“Data”).Count  单元格区域Data中的单元格数
61   Range(“Data”). Columns.Count  单元格区域Data中的列数
62   Range(“Data”). Rows.Count 单元格区域Data中的行数
63   Selection.Columns.Count  当前选中的单元格区域中的列数
64   Selection.Rows.Count 当前选中的单元格区域中的行数
65   Selection.Areas.Count 选中的单元格区域所包含的区域数
66   ActiveSheet.UsedRange.Row  获取单元格区域中使用的第一行的行号
67   Rng.Column  获取单元格区域Rng左上角单元格所在列编号
68  Range(“A1”).AutoFilterField:=3,VisibleDropDown:=False  关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称


69  Range(“A1：C3”).Name=“my” 命名A1：C3区域为my
70  Names(“computer”).Name=“robot”  将区域computer重命名为robot
71  Names(“book”).Delete  删除名称
72  Application.WorksheetFunction.IsNumber(“A1”)   使用工作表函数检查A1单元格中的数据是否为数字
73  Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate  激活单元格区域A列中最大值的单元格
74  Cells(8,8).FormulaArray=“=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)”  在单元格中输入数组公式。注意必须使用R1C1样式的表达式
75   ActiveSheet.ChartObjects.Count  获取当前工作表中图表的个数
76   ActiveSheet.ChartObjects(“Chart1”).Select  选中当前工作表中图表Chart1
77   ActiveSheet.ChartObjects(“Chart1”).Activate
     ActiveChart.ChartArea.Select  选中当前图表区域
78  WorkSheets(“Sheet1”).ChartObjects(“Chart2”).Chart.ChartArea.Interior.ColorIndex=2更改工作表中图表的图表区的颜色
79  Sheets(“Chart2”).ChartArea.Interior.ColorIndex=2更改图表工作表中图表区的颜色
80   Charts.Add 添加新的图表工作表