excel宏教程

excel宏教程Excel宏教程一、选中单个单元格Range(“单“).Select例：Range("C9").Select选中“C9单元格二、选中多个单元格Range(“单元格地址>:[,]”).Select例：Range(“A1:B2”).Select选中“A1”“A2”“B1、“B2四个连续的单元格Range(“12:12”).Sele选中第12行Range(“B:B”).Sele选中第B列Range(“A1:A2,B7,2:2”).se选中“A1”“A2”“B五个不连续的单元格和第二行Cells.Select‘选中当前SH...

Excel宏教程一、选中单个单元格Range(“单<元格地址>“).Select例：Range("C9").Select选中“C9单元格二、选中多个单元格Range(“单元格地址>:<单元格地址>[,<单元格地址>]”).Select例：Range(“A1:B2”).Select选中“A1”“A2”“B1、“B2四个连续的单元格Range(“12:12”).Sele选中第12行Range(“B:B”).Sele选中第B列Range(“A1:A2,B7,2:2”).se选中“A1”“A2”“B五个不连续的单元格和第二行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("B3").Activate三、设置活动单元格Range（"<单元格地址>"）.Activate注：设置活动单元格与选中单元格类似，不同之处就是后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。前者在设置之前不会取消已选中的单元格，如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。四、给活动的单元格赋值ActiveCell.FormulaRICI=<值>例：Range("A1").SelectActiveCell.FormulaRICI="Name"Range("B1").SelectActiveCell.FormulaR1C1="Age"Range("A2:B3").SelectRange("A2").ActivateActiveCell.FormulaR1C1="BUG"Range("B2").ActivateActiveCell.FormulaR1C1="12"Range("A3").ActivateActiveCell.FormulaR1C1="Archer"ActiveCell.FormulaR1C1="37"Selection.Font.Italic=‘斜体2.设置字体样式Selection.Font.Bold=加粗五、得到指定单元格中的值Range（"<单元格地址>"）.Text六、插入单元格Selection.lnsertShift:=Selection.EntireRow.InsertSelection.EntireColumn.lnsert例：Selection.lnsertShift:=xlToRight在当前选中单元格的位置插入单元格并将当前选中的单元格向右移动Selection.lnsertShift:=xlDown在当前选中单元格的位置插入单元格并将当前选中的单元格向下移动Selection.EntireRow.Insert在当前选中单元格的上面插入一行Selection.EntireColumn.lnsert在当前选中单元格的左侧插入一列七、设置字体属性设置字体名称和大小Selection.Font.Name=<字体名称>Selection.Font.Size=<字号>例：Selection.Font.Name="隶书 ”Selection.Font.Size=15Selection.Font.Underline=‘下划线XlUnderlineStyle（下划线样式）:xlUnderlineStyleDouble‘双下划线xlUnderlineStyleDoubleAccounting‘会计用双下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）xlUnderlineStyleNone没有下划线xlUnderlineStyleSingle‘单下划线xlUnderlineStyleSingleAccounting‘会计用单下划线（如果当前单元格中的数据是数字时则下划线的宽度是当前单元格的宽度）3.设置字体的颜色Selection.Font.ColorIndex=<0到56之间的数字>Selection.Font.Color=4.设置字体的特殊效果Selection.Font.Strikethrough=‘删除线Selection.Font.Superscript=‘上标Selection.Font.Subscript=‘下标八、清空选中单元格里的内容Selection.ClearContents例：Range(“A1:A2,B7,2:2”.)Select选中“A1”“A2'“B7五个不连续的单元格和第二行Selection.ClearContents清空“A、“A2”“B五个不连续单元格中的所有内容1.背景色2.设置边线的宽度九、设置选中单元格的边线属性XlBordersIndex（边线）:xlEdgeLeft'单元格左边线xlEdgeTop‘单元格上边线xlEdgeRight‘单元格右边线xlEdgeBottom‘单元格下边线xlDiagonalDown‘单元格左上右下斜线xlDiagonalUp‘单元格左上右下斜线xlInsideVertical‘多个单元格内垂直线xlInsideHorizontal‘多个单元格内水平线1.设置边线的类型边线类型)>Selection.Borders（＜边线＞）.LineStyle=＜XlLineStyle（XlLineStyle（边线类型）:xlLineStyleNone‘无样式xlContinuous‘单线xlDash‘破折号线（间隔线）xlDashDot‘破折号点线xlDashDotDot‘破折号点点线xlDot‘点线xlDouble‘双横线xlSlantDashDot‘斜点线Selection.Borders（＜边线＞）.Weight=＜XlBorderWeight（边线的宽度值）＞XlBorderWeight(宽度值):xlHairline‘极细xlThin‘细xlMedium‘中等xlThick‘粗3.设置边线的颜色Selection.Borders(xlEdgeLeft).ColorIndex=<0到56之间的数字>Selection.Borders(xlEdgeLeft).Color=十、删除选中的单元格Selection.DeleteSelection.EntireRow.DeleteSelection.EntireColumn.Delete例：Selection.DeleteShift:=xlToLeft‘删除选中的单元格,并将已删除单元格所在位置右面的单元格向左移动Selection.DeleteShift:=xlUp‘删除选中的单元格,并将已删除单元格所在位置下面的单元格向上移动Selection.EntireRow.Delete‘删除选中单元格所在的行Selection.EntireColumn.Delete‘删除选中单元格所在的列十一、设置单元格背景色及图案Selection.Interior.ColorIndex=<0到56之间的数字>Selection.Interior.Color=图案样式图案样式)>Selection.Interior.Pattern=Selection.Interior.PatternColorIndex=<0Selection.Interior.PatternColor=十二、返回工作表中的行数Sheet1.UsedRange.Rows.Count‘返回从最小已输入内容的行号到最大已输入内容的行号之间的行数Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row‘最大已输入内容的行号十三、得到当前EXCEL的文件名ThisWorkbook.Path‘文件路径ThisWorkbook.Name‘文件名ThisWorkbook.FullName‘全路径十四、批注的操作1.添加批注AddComment([Content])例：Range("A1").AddComment("Writesthecontentinhere!")2.修改批注内容Comment.Text例：Range("B1").Comment.TextText:="Writesthecontentinhere!"Comment.Visible=删除批注ClearComments例：Selection.Range("B1").ClearComments选中批注Comment.Shape.SelectTrue例：Range("D8").Comment.Shape.SelectTrue改变批注大小和位置Selection.ShapeRange.ScaleWidth<宽度比例>,msoFalse,Selection.ShapeRange.ScaleHeight<高度比例>,msoFalse,‘每次增加每次减少6%例：Selection.ShapeRange.ScaleWidth1.5,msoFalse,msoScaleFromTopLeft5%的宽度Selection.ShapeRange.ScaleHeight0.6,msoFalse,msoScaleFromTopLeft的宽度左边距>上边距>Selection.ShapeRange.Left=Selection.ShapeRange.Height=<高度值>五、剪切、复制、粘贴Selection.Copy‘复制ActiveSheet.Paste‘粘贴例：Range("A1").SelectSelection.CutRange("A2").SelectActiveSheet.PasteSelection.CopyRange("A3").SelectActiveSheet.Paste十六、选择性粘贴Selection.PasteSpecial

                    本文档为【excel宏教程】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

excel宏教程

你可能还喜欢