excel宏教程_电脑基础知识_IT计算机_专业资料
Excel宏教程
一、?? 选中单个单元格
Range(““).Select
?
例:Range("C9").Select?? ‘选中“C9”单元格
?
二、?? 选中多个单元格
Range(“:[,……]”).Select
?
例:Range(“A1:B2”).Select?? ‘选中“A1”、“A2”、“B1”、“B2”四个连续的单元格
Range(“12:12”).Select?? ‘选中第12行
Range(“B:B”).Select?? ‘选中第B列
Range(“A1:A2,B7,2:2”).Select?? ‘选中“A1”、“A2”、“B7”五个不连续的单元格和第二行
Cells.Select?? ‘选中当前SHEET中的所有单元格
?
Rows(":").Select?? ‘选中整行
Columns(":").Select?? ‘选中整列
?
例:Rows(“2:2”). Select?? ‘选中第2行
Rows(“2:5”). Select?? ‘选中2到5行
Columns("A:A").Select?? ‘选中A列
Columns("E:B").Select?? ‘选中E到B列
?
三、?? 设置活动单元格
Range("").Activate
?
注:设置活动单元格 与 选中单元格类似,不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格,
如果此时操作的单元格不是被选中的单元格,这时他实现的功能与选一个单元格相同。
?
四、?? 给活动的单元格赋值
ActiveCell.FormulaR1C1 =
?
例:Range("A1").Select
ActiveCell.FormulaR1C1 = "Name"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Age"
Range("A2:B3").Select
Range("A2").Activate
ActiveCell.FormulaR1C1 = " BUG"
Range("B2").Activate
ActiveCell.FormulaR1C1 = "12"
Range("A3").Activate
ActiveCell.FormulaR1C1 = "Archer"
Range("B3").Activate
ActiveCell.FormulaR1C1 = "37"
?
五、?? 得到指定单元格中的值
Range("").Text
?
六、?? 插入单元格
Selection.Insert Shift:=
Selection.EntireRow.Insert
Selection.EntireColumn.Insert
?
例:Selection.Insert Shift:=xlToRight?? ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动
Selection.Insert Shift:=xlDown?? ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动
Selection.EntireRow.Insert?? ‘在当前选中单元格的上面插入一行
Selection.EntireColumn.Insert?? ‘在当前选中单元格的左侧插入一列
?
七、?? 设置字体属性
1.?????? 设置字体名称和大小
Selection.Font.Name =
Selection.Font.Size =
?
例:Selection.Font.Name = "隶书"
Selection.Font.Size = 15
2.???? 设置字体样式
Selection.Font.Bold = ?? ‘加粗
Selection.Font.Italic = ?? ‘斜体
Selection.Font.Underline = < XlUnderlineStyle(下划线样式)>?? ‘下划线
?
XlUnderlineStyle(下划线样式):
xlUnderlineStyleDouble?? ‘双下划线
xlUnderlineStyleDoubleAccounting?? ‘会计用双下划线(如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度)
xlUnderlineStyleNone?? 没有下划线
xlUnderlineStyleSingle?? ‘单下划线
xlUnderlineStyleS