excel宏教程

excel宏教程 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.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 = ‘加粗 Selection.Font.Italic = ‘斜体 Selection.Font.Underline = < XlUnderlineStyle(选选选下划式)> ‘选下划 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 ‘“清空A1”“、A2”“、B7”选选选选选选选选选选选五个不元格中的所有内容 九、 选选选选选选选选选选选置中元格的属性 XlBordersIndex(选选): xlEdgeLeft '选选选元格左 xlEdgeTop ‘选选选元格上 xlEdgeRight ‘选选选元格右 xlEdgeBottom ‘选选选元格下 xlDiagonalDown ‘选选元格左上右下斜 xlDiagonalUp ‘选选元格左上右下斜 xlInsideVertical ‘选选选选选选选多个元格内垂直 xlInsideHorizontal ‘选选选选选选选多个元格内水平 1. 选选选选选选置的型 Selection.Borders(<选选>).LineStyle = < XlLineStyle(选选选型)> XlLineStyle(选选选型): xlLineStyleNone ‘选选无式 xlContinuous ‘选选 xlDash ‘选破折号(选选隔) xlDashDot ‘ 选破折号点 xlDashDotDot ‘ 选破折号点点 xlDot ‘选点 xlDouble ‘选双横 xlSlantDashDot ‘选斜点 2. 选选选选选选置的度 Selection.Borders(<选选>).Weight = XlBorderWeight(选选度): xlHairline ‘选极 xlThin ‘选 xlMedium ‘中等 xlThick ‘粗 3. 选选选选选选置的色 Selection.Borders(xlEdgeLeft).ColorIndex = <0到56选选选选之的数字>Selection.Borders(xlEdgeLeft).Color = 十、 选选选选选选选除中的元格 Selection.Delete Selection.EntireRow.DeleteSelection.EntireColumn.Delete 例:Selection.Delete Shift:=xlToLeft ‘选选选选选选选除中的元格,选选选选选选选并将已除元格所在 位置右面的元格向左移选选选选选选选 Selection.Delete Shift:=xlUp ‘选选选选选选选除中的元格,选选选选选选选选选并将已除元格所在位置 下面的元格向上移选选选选选选选 Selection.EntireRow.Delete ‘选选选选选选选选选选除中元格所在的行Selection.EntireColumn.Delete ‘选选选选选选选选选选除中元格所在的列 十一、置元格背景色及案选选选选选选选选选选选 1. 背景色 Selection.Interior.ColorIndex = <0到56选选选选之的数字>Selection.Interior.Color = 2. 选选选案式 Selection.Interior.Pattern = Constants(选选选案式): xlSolid '选心 xlGray75 '75% 灰色 xlGray50 '50% 灰色 xlGray25 '25% 灰色 xlGray16 '12.5% 灰色 xlGray8 '6.25% 灰色 xlHorizontal ' 选水平条 xlVertical ' 选垂直条 xlDown '选选 选选逆角条 xlUp '选选 选角条 xlChecker '选选 选角剖面 xlSemiGray75 ' 选选 选粗角剖面 xlLightHorizontal '选 选水平条 xlLightVertical '选 选垂直条 xlLightDown '选 选选 选选逆角条 xlLightUp '选 选选 选角条 xlGrid '选 选水平剖面 xlCrissCross '选 选选 选角剖面 3. 选选选案色 Selection.Interior.PatternColorIndex = <0到56选选选选之的数字> Selection.Interior.PatternColor = 十二、返回工作

表

关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf

中的行数 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 ("Writes the content in here!") 2. 修改批注内容 Comment.Text 例:Range("B1").Comment.Text Text:= "Writes the content in here!" 3. 选示/选藏批注 Comment.Visible = 4. 选除批注 ClearComments 例:Selection.Range("B1").ClearComments5. 选中批注 Comment.Shape.Select True 例:Range("D8").Comment.Shape.Select True6. 选选选选选选选选改批注大小和位置 Selection.ShapeRange.ScaleWidth <选度比例>, msoFalse, Selection.ShapeRange.ScaleHeight <高度比例>, msoFalse, 例:Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft ‘每次增加5%选选的度 Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft ‘每次减少6%选选的度 Selection.ShapeRange.Left = <选选左距> Selection.ShapeRange.Top = <选选上距> Selection.ShapeRange.Width = <选选度> Selection.ShapeRange.Height = <选高度> 十五、剪切、制、粘选选选选选 Selection.Cut ‘剪切 Selection.Copy ‘选制 ActiveSheet.Paste ‘选粘 例:Range("A1").Select Selection.Cut Range("A2").Select ActiveSheet.Paste Selection.Copy Range("A3").Select ActiveSheet.Paste 十六、性粘选选选选选 Selection.PasteSpecial 十七、改列选选选 Selection.ColumnWidth = <选选度> ‘选指定列 例:Columns("A:A").Select Selection.ColumnWidth = 30 ‘选选选选选选选改已列的度 EntireColumn.AutoFit ‘选选选选选自改列 例:Columns("C:C").EntireColumn.AutoFit ‘根据C选选选选选选选列的内容自改列的度在Excel 97中,"宏"选选选选选选选选选选选选选选选选是一个以理解的概念,但于一个具体的"宏"而言,却是容易理解的,如果选"选选选选选选选选选选选选选选选选选选选选选选选选选将一文字注:黑体注:,字号注:三号注:"就可以看作一个"宏"选选选选的,那"宏"选选选选选选选就不理解了,其Excel 97选选选选选选选选选选中的多操作都可以是一个"宏" 。　　"选选宏"选选选选选选选选选选选选选选选选选选选选选选选选选选选选其就是将工作的一系列操作果制下来,并命名存，相当于VB中一个子程序,。在Excel 97中,"选选宏"选选选选选选选选选选选选选选选选操作果,而不操作程。例如,改文字字体,需要打选选选选选选选选选选选"字体"选选选选选选选选选选选选中的下拉列表,再一字体,文字即所的字体,是一个程,果是将所的文字改所的字体。而选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选"选选宏"选选选只"选选选选选选选选选选选选选选将所的文字改所的字体"选选选选 一果。 　　Excel 97选选选选选选选选选选选选选选选选选选选选选中工作表是由行和列成的二表格,我可以通系提供的句activesheet.cells(I,j),将当前工作表中的第I行第j选选选选选选选选列所在的元格中的数据取出，也可将它数据填入到指定的元格中,,然后反把它放入所定选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选选的数中,就可以其行各操作,如求平均分、分、 分数段人数等等。 　　本人就利用Excel 97选选选选选选选选选选选选选中所提供的宏功能来做学生成的分析理程序。本程序是Excel选选选选选选选选选选中的一个文件,其中包含以下几个宏:分班、分、平均分、分数段、选 除等。 　　明:?选选选本程序是以本校高三理科班学生成行分析。选选选选选选 　　　　　?有程序中用到的几具宏的功能明:选选选选选选选选选选选选选选选选 　　分班:于以确定班的情况下,以班位行分班,选选选选选选选选选选选选选选选选选选选选选选选本宏可以作高一新生入学行分班的功能。选选选选选选选选选选选选选选选选 　　分:原始的成自求分。选选选选选选选选选选选选选选选 　　平均分:原始的成以班位行各学科平均成的算选选选选选选选选选选选选选选选选选选选选选选选及全校各学科成的算。选选选选选 　　分数段:定一个最高分数及最低分数,然后出各选选选选选选选选选选选选选选选选选选选选班各个分数段的人数,各分数段人数行累。选选选选选 　　除:用于除不用的工作表。选选选选选选选选选选选选选选 　　将各个宏的代列如下:选选选选选选选选选选选选选 　　?分班 　　Sub 分班() Const studentno = 191 '选选选选选选注:学生人数 Const zdno = 12 '选选选选选注:字段数 Dim zd$(zdno) ' 选选选选选注:定12选个字段的数 Dim a(studentno, zdno), stu(60, zdno) Dim nam$(studentno), bjname$(60) '选选选选选选选选选选选选选注:定一个存放全校学生名字及各班学生名字的数选 Dim bj(studentno) '选选选选选选选选选选选 选选注:定存放班的一个数注: 理科班工作表 Sheets("高三理").Select For i = 2 To studentno bj(i) = ActiveSheet.Cells(i, 1) nam$(i) = ActiveSheet.Cells(i, 2) For j = 3 To zdno a(i, j) = ActiveSheet.Cells(i, j) Next j Next i '选注: 选选存放字段到数中? For i = 1 To zdno zd$(i) = ActiveSheet.Cells(1, i) Next i '选注: 选选选选选先建立各个班的工作表 Sheets("高三理").Select Sheets("高三理").Copy After:=Sheets("高三理") Sheets(" 高三理(2)").Select Sheets(" 高三理(2)").Name = "33" For i = 2 To studentno For j = 1 To zdno ActiveSheet.Cells(i, j) = Space$(1) Next j Next i Range("a1").Select For i = 1 To zdno ActiveSheet.Cells(1, i) = zd$(i) Next i '选选注:34到36班工作表的建立 For i = 34 To 36 x$ = Mid$(Str(33), 2) Sheets(x$).Select Sheets(x$).Copy After:=Sheets("高三理") Sheets(x$ & " (2)").Select Sheets(x$ & " (2)").Name = Mid$(Str(i), 2) Next i '选注: 具体分班? For k = 33 To 36 bjrs = 0 x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$).Select For i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1 bjname$(bjrs) = nam$(i) For j = 3 To zdno stu(bjrs, j) = a(i, j) Next j End If Next i For i = 2 To bjrs ActiveSheet.Cells(i, 1) = no ActiveSheet.Cells(i, 2) = bjname$(i) For j = 3 To zdno ActiveSheet.Cells(i, j) = stu(i, j) Next j Next i Next k End Sub 　　?选 分 　Sub 选分() Const studentno = 191 Const xknum = 6 Const zdnum = 12 Sheets("高三理").Select For i = 2 To studentno Sum = 0 For j = 1 To xknum Sum = Sum + ActiveSheet.Cells(i, j + 2) Next j ActiveSheet.Cells(i, zdnum - 3) = Sum Next i End Sub 　　?平均分 Sub 平均分() 　 Const studentno = 190 　 Const xknum = 6 　 Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6) 　 Dim bj(studentno) 　 Sheets("高三理").Select 　注:以下程序段用于求全校平均分 选选选选选选选选选选选选选选选 　 For i = 1 To studentno 　　 bj(i) = ActiveSheet.Cells(i 1, 1) 　　 For j = 1 To xknum 　　　 fs(i, j) = ActiveSheet.Cells(i 1, j 3) 　　 Next j 　 Next i 　 For i = 1 To xknum 　　 Sum = 0 　　 For j = 1 To studentno 　　　 Sum = Sum fs(j, i) 　　 Next j 　　 qxpjf(i) = Sum / (j - 1) 　 Next i 　注:以下程序段用于求各班平均分 选选选选选选选选选选选选选选选 　 For j = 1 To 4 　　 For i = 1 To studentno 　　　 If bj(i) = j 2 Then 　　　　 bjrs(j) = bjrs(j) 1 　　　　 For k = 1 To xknum 　　　　　 pjf3(j, k) = pjf3(j, k) fs(i, k) 　　　　 Next k 　　　 End If 　　 Next i 　 Next j 　 For j = 1 To 4 　　 For i = 1 To 6 　　　 pjf3(j, i) = pjf3(j, i) / bjrs(j) 　　 Next i 　 Next j 　注:写入各班各科平均分 选选选选选选选选选选选 　 Sheets("平均分").Select 　 For i = 1 To 4 　　 For j = 1 To 6 　　　 ActiveSheet.Cells(i 2, j 1) = pjf3(i, j) 　　 Next j 　 Next i 　注:写入全校各科平均分 选选选选选选选选选选选 　 i = 7 　 For j = 1 To 6 　　 ActiveSheet.Cells(i, j 1) = qxpjf(j) 　 Next j End Sub ?分数段 Sub 分数段() 　 Const max = 600 　 Const min = 390 　 Const studentno = 190 　 Const bjnum = 4 　 Const fsdnum = 22 　 Dim bjfsd(bjnum, fsdnum), zf(studentno, 2) 　 Sheets("高三理").Select 　 For i = 1 To studentno 　　 zf(i, 1) = ActiveSheet.Cells(i 1, 1) 选选选选选选 注:存放班 　　 zf(i, 2) = ActiveSheet.Cells(i 1, 11) 选选选选选选 注:存放分 　 Next i 　For i = 1 To studentno 　　 For j = 1 To 4 选选注:3---6班共4选 个班 　　　 If zf(i, 1) = j 2 Then 　　　　 For k = max To min Step -10 　　　　　 low = Int((max 10 - k) / 10) 　　　　　 If zf(i, 2) > k Then bjfsd(j, low) = bjfsd(j, low) 1 　　　　 Next k 　　　 End If 　　 Next j 　 Next i 　 Sheets("sheet3").Select 　 For i = 3 To 6 　　 For k = 1 To fsdnum 　　　 ActiveSheet.Cells(i, k 1) = bjfsd(i - 2, k) 　　 Next k 　 Next i 　 Range("M3:W6").Select 　 Selection.Cut 　 ActiveWindow.LargeScroll ToRight:=-1 　 Range("B8").Select 　 ActiveSheet.Paste End Sub 　　? 选 除 Sub 选除() 　　 Sheets("33").Select 　　 ActiveWindow.SelectedSheets.Delete 　　 Sheets("34").Select 　　 ActiveWindow.SelectedSheets.Delete 　　 Sheets("35").Select 　　 ActiveWindow.SelectedSheets.Delete 　　 Sheets("36").Select 　　 ActiveWindow.SelectedSheets.Delete End Sub