excel宏教程-VB匯總

1、Excel宏教程一、 選中單個(gè)單元格Range( “單 “ ).Select例：Range(C9).Select選中 “C9單元格二、 選中多個(gè)單元格Range( “單元格地址 :,” ).Select例：Range( “A1:B2”).Select，選中 “A1” “A2” “B1、“B2四個(gè)連續(xù)的單元格Range( “ 12:12 ”).Sele選中第 12 行Range( “ B:B ”).Sele,選中第 B 列Range( “ A1:A2,B7,2:2”).S)選中t “ A1” “ A2” “ B五個(gè)不連續(xù)的單元格和第二行Cells.Select,選中當(dāng)前 SHEET 中的所有單元

2、格Rows(:).Select ,選中整行Columns(:).Select,選中整列例： Rows(“2:2” ). Select ,選中第 2 行Rows( “ 2:5 ” ). SeleC選中 2 到 5 行Columns(A:A).Select,選中 A 列Columns(E:B).Select,選中 E 到 B 列Range().Activate注：設(shè)置活動(dòng)單元格 與 選中單元格類似，不同之處就是后者在選中指定的單元格之前會(huì)將在此前已被選中的單元格取消掉。前者在設(shè)置之前不會(huì)取消已選中的單元格，如果此時(shí)操作的單元格不是被選中的單元格，這時(shí)他實(shí)現(xiàn)的功能與選一個(gè)單元格相同。四、給活動(dòng)的單元

3、格賦值A(chǔ)ctiveCell.FormulaRICI = 例：Range(A1).SelectActiveCell.FormulaRICI = NameRa nge(B1).SelectActiveCell.FormulaR1C1 = AgeRan ge(A2:B3).SelectRan ge(A2).ActivateActiveCell.FormulaR1C1 = BUGRa nge(B2).ActivateActiveCell.FormulaR1C1 = 12Ran ge(A3).ActivateActiveCell.FormulaR1C1 = ArcherRa nge(B3).Activa

4、teActiveCell.FormulaR1C1 = 37Selectio n.ln sert Shift:=xlDow n元格向下移動(dòng)Selectio n.En tireRow .In sert，在當(dāng)前選中單元格的上面插入一行Selectio n.E ntireColu mn.ln sert，在當(dāng)前選中單元格的左側(cè)插入一列五、得到指定單元格中的值Range（）.Text六、插入單元格Selectio n.ln sert Shift:=Selectio n.En tireRow .In sertSelectio n.E ntireColu mn.ln sert例：Selection.lnser

5、t Shift:=xlToRight，在當(dāng)前選中單元格的位置插入單元格并將當(dāng)前選中的單元格向右移動(dòng)，在當(dāng)前選中單元格的位置插入單元格并將當(dāng)前選中的單七、設(shè)置字體屬性1. 設(shè)置字體名稱和大小Selection.Font.Name = Select ion.Fon t.Size = 例：Selection.Font.Name = 隸書”Selectio n.Fo nt.Size = 15Selection.Font.Underline = ,下劃線XlUnderlineStyle（ 下劃線樣式 ）:xlUnderlineStyleDouble,雙下劃線xlUnderlineStyleDoubleA

6、ccounting,會(huì)計(jì)用雙下劃線（如果當(dāng)前單元格中的數(shù)據(jù)是數(shù)字時(shí)則下劃線的寬度是當(dāng)前單元格的寬度）xlUnderlineStyleNone 沒有下劃線xlUnderlineStyleSingle,單下劃線xlUnderlineStyleSingleAccounting,會(huì)計(jì)用單下劃線 （如果當(dāng)前單元格中的數(shù)據(jù)是數(shù)字時(shí)則下劃線的寬度是當(dāng)前單元格的寬度）3. 設(shè)置字體的顏色Selection.Font.ColorIndex = Selection.Font.Color = 4. 設(shè)置字體的特殊效果Selection.Font.Strikethrough = ,刪除線Selection.Font.

7、Superscript = ,上標(biāo)Selection.Font.Subscript = ,下標(biāo)八、清空選中單元格里的內(nèi)容Selection.ClearContents例：Range(“A1:A2,B7,2:2 ” .Select 選中“A1” “A2 “B7五個(gè)不連續(xù)的單元格和第二行九、設(shè)置選中單元格的邊線屬性XlBordersIndex（ 邊線 ）:xlEdgeLeft 單元格左邊線xlEdgeTop ,單元格上邊線xlEdgeRight ,單元格右邊線xlEdgeBottom ,單元格下邊線xlDiagonalDown ,單元格左上右下斜線xlDiagonalUp ,單元格左上右下斜線xl

8、InsideVertical , 多個(gè)單元格內(nèi)垂直線xlInsideHorizontal,多個(gè)單元格內(nèi)水平線1. 設(shè)置邊線的類型邊線類型 ）Selection.Borders（ 邊線 ）.LineStyle = XlLineStyle（XlLineStyle（ 邊線類型 ）:xlLineStyleNone ,無樣式xlContinuous ,單線xlDash ,破折號(hào)線 （間隔線 ）xlDashDot ,破折號(hào) 點(diǎn)線xlDashDotDot ,破折號(hào) 點(diǎn) 點(diǎn)線xlDot ,點(diǎn)線xlDouble ,雙橫線xlSlantDashDot ,斜點(diǎn)線Selection.Borders（ 邊線 ）.Wei

9、ght = XlBorderWeight（邊線的寬度值 ）XlBorderWeight( 寬度值 ):xlHairline ,極細(xì)xlThin ,細(xì)xlMedium ,中等xlThick ,粗3. 設(shè)置邊線的顏色Selection.Borders(xlEdgeLeft).ColorIndex = Selection.Borders(xlEdgeLeft).Color = 十、 刪除選中的單元格Selection.Delete Selection.EntireRow.DeleteSelection.EntireColumn.Delete例： Selection.Delete Shift:=xlT

10、oLeft,刪除選中的單元格 , 并將已刪除單元格所在位置右面的單元格向左移動(dòng)Selection.Delete Shift:=xlUp,刪除選中的單元格 , 并將已刪除單元格所在位置下面的單元格向上移動(dòng)Selection.EntireRow.Delete,刪除選中單元格所在的行Selection.EntireColumn.Delete,刪除選中單元格所在的列十一、設(shè)置單元格背景色及圖案Selection.Interior.ColorIndex = Selection.Interior.Color = 2. 圖案樣式圖案樣式 )Selection.Interior.Pattern = Selec

11、tion.Interior.PatternColorIndex = 0Selection.Interior.PatternColor = 十二、返回工作表中的行數(shù)Sheet1.UsedRange.Rows.Count,返回從最小已輸入內(nèi)容的行號(hào)到最大已輸入內(nèi)容的行號(hào)之間的行數(shù)Sheet1.UsedRange.Rows(Sheet1.UsedRange.Rows.Count).Row,最大已輸入內(nèi)容的行號(hào)十三、得到當(dāng)前 EXCEL 的文件名ThisWorkbook.Path,文件路徑ThisWorkbook.Name,文件名ThisWorkbook.FullName,全路徑十四、批注的操作1.

12、添加批注AddComment(Content)例： Range(A1).AddComment (Writes the content in here!)2. 修改批注內(nèi)容Comment.Text例： Range(B1).Comment.Text Text:= Writes the content in here!Comment.Visible = 4. 刪除批注ClearComments例： Selection.Range(B1).ClearComments5. 選中批注Comment.Shape.Select True例： Range(D8).Comment.Shape.Select Tru

13、e6. 改變批注大小和位置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.

14、ShapeRange.Top = Selection.ShapeRange.Width = Selection.ShapeRange.Height = 五、剪切、復(fù)制、粘貼Selection.Copy ,復(fù)制ActiveSheet.Paste ,粘貼例： Range(A1).SelectSelection.CutRange(A2).SelectActiveSheet.PasteSelection.CopyRange(A3).SelectActiveSheet.Paste十六、選擇性粘貼Selection.PasteSpecial 十七、改變列寬Selection.ColumnWidth = ,

15、指定列寬 例： Columns(A:A).SelectSelection.ColumnWidth = 30,改變已選列的寬度,根據(jù) C 列的內(nèi)容自動(dòng)改變列的寬度EntireColumn.AutoFit,自動(dòng)改變列寬例： Columns(C:C).EntireColumn.AutoFit在 Excel 97 中，宏是一個(gè)難以理解的概念， 但對(duì)于一個(gè)具體的 宏 而言，卻是容易理解的， 如果說 將一塊文字變?yōu)樽⑨專汉隗w注釋：，字號(hào)為注釋：三號(hào)注釋：就可以看作一個(gè) 宏 的話，那么 宏就不難理解了，其實(shí) Excel 97 中的許多操作都可以是一個(gè) 宏。記錄宏 其實(shí)就是將工作的一系列操作結(jié)果錄制下來，并命

16、名存儲(chǔ)(相當(dāng)于VB 中一個(gè)子程序)。在 Excel 97 中， 記錄宏 僅記錄操作結(jié)果，而不記錄操作過程。例如，改變文 字字體時(shí)，需要打開 字體 欄中的下拉列表，再選擇一種字體，這時(shí)文字即變?yōu)樗x擇的字 體，這是一個(gè)過程，結(jié)果是將所選擇的文字改變?yōu)樗x擇的字體。而 記錄宏 則只記錄 將所選擇的文字改變?yōu)樗x擇的字體 這一結(jié)果。Excel 97 中工作表是由行和列組成的二維表格，我們可以通過系統(tǒng)提供的語句 actives heet.cells(I,j) ，將當(dāng)前工作表中的第 I 行第 j 列所在的單元格中的數(shù)據(jù)取出(也可將它數(shù)據(jù) 填入到指定的單元格中) ，然后反把它放入所定義的數(shù)組中， 這時(shí)就可

17、以對(duì)其進(jìn)行各種操作， 如求平均分、總分、分?jǐn)?shù)段人數(shù)等等。本人就利用 Excel 97 中所提供的宏功能來做學(xué)生成績(jī)的分析處理程序。本程序是Excel 中的一個(gè)文件，其中包含以下幾個(gè)宏：分班、總分、平均分、分?jǐn)?shù)段、刪除等。說明：本程序是以本校高三理科班學(xué)生成績(jī)進(jìn)行分析。有關(guān)程序中用到的幾具宏的功能說明：分班： 針對(duì)于難以確定班級(jí)的情況下， 以班為單位進(jìn)行分班， 本宏可以作為高一新生入 學(xué)時(shí)進(jìn)行分班的功能?？偡郑簩?duì)原始的成績(jī)自動(dòng)求總分。平均分：對(duì)原始的成績(jī)以班為單位進(jìn)行各學(xué)科平均成績(jī)的計(jì)算及全校各學(xué)科成績(jī)的計(jì) 算。分?jǐn)?shù)段： 給定一個(gè)最高分?jǐn)?shù)及最低分?jǐn)?shù)， 然后統(tǒng)計(jì)出各班各個(gè)分?jǐn)?shù)段的人數(shù)， 各分?jǐn)?shù)段

18、人數(shù)進(jìn)行累計(jì)。刪除：用于刪除不用的工作表。現(xiàn)將各個(gè)宏的代碼列舉如下：分班Sub 分班 ()Const studentno = 191 注釋：學(xué)生人數(shù)Const zdno = 12 注釋：字段數(shù)Dim zd$(zdno) 注釋：定義為 12 個(gè)字段的數(shù)組Dim a(studentno, zdno), stu(60, zdno)Dim nam$(studentno), bjname$(60) 注釋：定義一個(gè)存放全校學(xué)生名字及各班學(xué)生名 字的數(shù)組理科班工作表Dim bj(studentno) 注釋：定義存放班級(jí)的一個(gè)數(shù)組注釋 :Sheets( 高三理 ).SelectFor i = 2 To stu

19、dentnobj(i) = ActiveSheet.Cells(i, 1)nam$(i) = ActiveSheet.Cells(i, 2)For j = 3 To zdnoa(i, j) = ActiveSheet.Cells(i, j)Next jNext i注釋 : 存放字段到數(shù)組中 ?For i = 1 To zdnozd$(i) = ActiveSheet.Cells(1, i)Next i注釋 : 先建立各個(gè)班級(jí)的工作表Sheets( 高三理 ).SelectSheets( 高三理 ).Copy After:=Sheets( 高三理 )Sheets( 高三理 (2).SelectS

20、heets( 高三理 (2).Name = 33For i = 2 To studentnoFor j = 1 To zdnoActiveSheet.Cells(i, j) = Space$(1)Next jNext iRange(a1).SelectFor i = 1 To zdnoActiveSheet.Cells(1, i) = zd$(i)Next i 注釋： 34 到 36 班工作表的建立For i = 34 To 36 x$ = Mid$(Str(33), 2) Sheets(x$).SelectSheets(x$).Copy After:=Sheets( 高三理 ) Sheets

21、(x$ & (2).SelectSheets(x$ & (2).Name = Mid$(Str(i), 2) Next i注釋 : 具體分班 ?For k = 33 To 36bjrs = 0x$ = Mid$(Str(k), 2) no = k Mod 10 Sheets(x$).SelectFor i = 2 To studentno If bj(i) = no Then bjrs = bjrs + 1bjname$(bjrs) = nam$(i)For j = 3 To zdnostu(bjrs, j) = a(i, j)Next jEnd IfNext iFor i = 2 To bj

22、rsActiveSheet.Cells(i, 1) = noActiveSheet.Cells(i, 2) = bjname$(i) For j = 3 To zdnoActiveSheet.Cells(i, j) = stu(i, j)Next jNext iNext kEnd Sub總分Sub 總分 ()Const studentno = 191Const xknum = 6Const zdnum = 12Sheets( 高三理 ).SelectFor i = 2 To studentnoSum = 0For j = 1 To xknumSum = Sum + ActiveSheet.Ce

23、lls(i, j + 2)Next jActiveSheet.Cells(i, zdnum - 3) = SumNext iEnd Sub平均分Sub 平均分 ()Const studentno = 190qxpjf(6)Const xknum = 6Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), Dim bj(studentno)Sheets( 高三理 ).Select 注釋：以下程序段用于求全校平均分For i = 1 To studentnobj(i) = ActiveSheet.Cells(i 1, 1)For j = 1 To xknum

24、fs(i, j) = ActiveSheet.Cells(i 1, j 3)Next jNext iFor i = 1 To xknumSum = 0For j = 1 To studentnoSum = Sum fs(j, i)Next jqxpjf(i) = Sum / (j - 1)Next i 注釋：以下程序段用于求各班平均分For j = 1 To 4For i = 1 To studentnoIf bj(i) = j 2 Thenbjrs(j) = bjrs(j) 1For k = 1 To xknumpjf3(j, k) = pjf3(j, k) fs(i, k)Next kEn

25、d IfNext iNext jFor j = 1 To 4For i = 1 To 6pjf3(j, i) = pjf3(j, i) / bjrs(j)Next iNext j 注釋：寫入各班各科平均分Sheets( 平均分 ).SelectFor i = 1 To 4For j = 1 To 6ActiveSheet.Cells(i 2, j 1) = pjf3(i, j)Next jNext i注釋：寫入全校各科平均分i = 7For j = 1 To 6ActiveSheet.Cells(i, j 1) = qxpjf(j)Next jEnd Sub分?jǐn)?shù)段Sub 分?jǐn)?shù)段 ()Const max = 600Const min = 390Const studentno = 190Const bjnum = 4C