excel宏教程.docxVIP

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).SelectActiveCell.FormulaR1C1 = NameRange(B1).SelectActiveCell.FormulaR1C1 = AgeRange(A2:B3).SelectRange(A2).ActivateActiveCell.FormulaR1C1 = BUGRange(B2).ActivateActiveCell.FormulaR1C1 = 12Range(A3).ActivateActiveCell.FormulaR1C1 = ArcherRange(B3).ActivateActiveCell.FormulaR1C1 = 37?五、?? 得到指定单元格中的值Range(单元格地址).Text?六、?? 插入单元格Selection.Insert Shift:=XlDirection值Selection.EntireRow.InsertSelection.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 = 152.???? 设置字体样式Selection.Font.Bold = True / False?? ‘加粗Selection.Font.Italic = True / False?? ‘斜体Selection.Font.Underline = XlUnderlineStyle(下划线样式)?? ‘下划线?XlUnderlineStyle(下划线样式):xlUnderlineStyleDouble?? ‘双下划线xlUnderlineStyleDoubleAccounting?? ‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone?? 没有下划线xlUnderlineStyleSingle?? ‘单下划线xlUnderlineStyleSingleAccounting?? ‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3.???? 设置字体的颜色Selection.Font.ColorIndex = 0到56之间的数字Selection.Font.Color = RGB值4.???? 设置字体的特殊效果Selection.F