excel宏教程 (2)

《excel宏教程 (2)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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”五个不连续的单

2、元格和第二行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 注：设置活动单元格与选中单元格类似，不同之处就是后者在选中指定的单元格之前会

3、将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。 四、  给活动的单元格赋值ActiveCell.FormulaR1C1=<值> 例：Range("A1").SelectActiveCell.FormulaR1C1="Name"Range("B1").SelectActiveCell.FormulaR1C1="Age"Range("A2:B3").SelectRange("A2").ActivateActiveCell.FormulaR1C1="BUG"Range("B2").Activat

4、eActiveCell.FormulaR1C1="12"Range("A3").ActivateActiveCell.FormulaR1C1="Archer"Range("B3").ActivateActiveCell.FormulaR1C1="37" 五、  得到指定单元格中的值Range("<单元格地址>").Text 六、  插入单元格Selection.InsertShift:=Selection.EntireRow.InsertSelection.EntireColumn.Insert 例：Selection.InsertShift:=xlToRig

5、ht  ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.InsertShift:=xlDown  ‘在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert  ‘在当前选中单元格的上面插入一行Selection.EntireColumn.Insert  ‘在当前选中单元格的左侧插入一列 七、  设置字体属性1.      设置字体名称和大小Selection.Font.Name=<字体名称>Selection.Font.Size=<字号> 例：Selection.Font.Name="隶书"Sele

6、ction.Font.Size=152.    设置字体样式Selection.Font.Bold=  ‘加粗Selection.Font.Italic=  ‘斜体Selection.Font.Underline=  ‘下划线 XlUnderlineStyle(下划线样式):xlUnderlineStyleDouble  ‘双下划线xlUnderlineStyleDoubleAccounting  ‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnde

7、rlineStyleNone  没有下划线xlUnderlineStyleSingle  ‘单下划线xlUnderlineStyleSingleAccounting  ‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3.    设置字体的颜色Selection.Font.ColorIndex=<0到56之间的数字>Selection.Font.Color=4.    设置字体的特殊效果S