- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
本帖最後由 oobird 於 2012-4-15 11:26 編輯
把詞彙改一下
一：定製模組行為
(1) Option Explicit '強制對模組內所有變數進行聲明
Option Private Module '標記模組為私有，僅對同一專案中其它模組有用，在巨集對話框中不顯示
Option Compare Text '字符串不區分大小寫
Option Base 1 '指定陣列的第一個下標為1
(2) On Error Resume Next '忽略錯誤繼續執列VBA代碼,避免出現錯誤信息
(3) On Error GoTo ErrorHandler '當錯誤發生時跳轉到程序中的某個位置
(4) On Error GoTo 0 '恢復正常的錯誤提示
(5) Application.DisplayAlerts=False '在程序執列程序中使出現的警告框不顯示
(6) Application.ScreenUpdating=False '關閉瑩幕更新
Application.ScreenUpdating=True '打開瑩幕更新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止巨集運行的功能
二：操作活頁簿
(8) Workbooks.Add() '創建一個新的活頁簿
(9) Workbooks("book1.xls").Activate '選中名為book1的活頁簿
(10) ThisWorkbook.Save '保存活頁簿
(11) ThisWorkbook.close '關閉當前活頁簿
(12) ActiveWorkbook.Sheets.Count '獲取活動活頁簿中工作表數
(13) ActiveWorkbook.name '取得活動活頁簿的名稱
(14) ThisWorkbook.Name '取得當前活頁簿名稱
ThisWorkbook.FullName '取得當前活頁簿路徑和名稱
(15) ActiveWindow.EnableResize=False '禁止調整活動活頁簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled '將活頁簿以並排方式排欄
(17) ActiveWorkbook.WindowState=xlMaximized '將當前活頁簿最大化
三：操作工作表
(18) ActiveSheet.UsedRange.Rows.Count '當前工作表中已使用的列數
(19) Rows.Count '獲取工作表的欄數(註：考慮向前兼容性)
(20) Sheets(Sheet1).Name= "Sum" '將Sheet1命名為Sum
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一個新工作表在第一工作表前
(22) ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) '將當前工作表移至工作表的最後
(23) Worksheets(Array("sheet1","sheet2")).Select '同時選擇工作表1和工作表2
(24) Sheets("sheet1").Delete或 Sheets(1).Delete '刪除工作表1
(25) ActiveWorkbook.Sheets(i).Name '獲取工作表i的名稱
(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切換工作表中的網格線顯示，這種方法也可以用在其它方面進列相互切換，即相當於開關按鈕
(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings '切換工作表中的欄列邊框顯示
(28) ActiveSheet.UsedRange.FormatConditions.Delete '刪除當前工作表中所有的條件格式
(29) Cells.Hyperlinks.Delete '取消當前工作表所有超連結
(30) ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2 '將頁面設置更改為橫向
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName '在頁面設置的表尾中輸入文件路徑
ActiveSheet.PageSetup.LeftFooter=Application.UserName '將用戶名放置在活動工作表的頁尾
四：儲存格/儲存格區域
(32) ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
選擇當前活動儲存格所包含的範圍，上下左右無空列
(33) Cells.Select '選定當前工作表的所有儲存格
(34) Range("A1").ClearContents '清除活動工作表上儲存格A1中的內容
Selection.ClearContents '清除選定區域內容
Range("A1:D4").Clear '徹底清除A1至D4儲存格區域的內容，包括格式
(35) Cells.Clear '清除工作表中所有儲存格的內容
(36) ActiveCell.Offset(1,0).Select '活動儲存格下移一列，同理，可下移一欄
(37) Range("A1").Offset(ColumnOffset:=1)或Range("A1").Offset(,1) '偏移一欄
Range("A1").Offset(Rowoffset:=-1)或Range("A1").Offset(-1) '向上偏移一列
(38) Range("A1").Copy Range("B1") '複製儲存格A1，粘貼到儲存格B1中
Range("A1:D8").Copy Range("F1") '將儲存格區域複製到儲存格F1開始的區域中
Range("A1:D8").Cut Range("F1") '剪切儲存格區域A1至D8，複製到儲存格F1開始的區域中
Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A1") '複製包含A1的儲存格區域到工作表2中以A1起始的儲存格區域中
註：CurrentRegion屬性相對於"編輯~到"命令，由一個矩形儲存格塊組成，周圍是一個或多個空列或欄
(39) ActiveWindow.RangeSelection.Value=XX '將值XX輸入到所選儲存格區域中
(40) ActiveWindow.RangeSelection.Count '活動窗口中選擇的儲存格數
(41) Selection.Count '當前選中區域的儲存格數
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,"") '取得儲存格中超級鏈接的地址並賦值
(43) TextColor=Range("A1").Font.ColorIndex '檢查儲存格A1的文本顏色並取得顏色索引
Range("A1").Interior.ColorIndex '獲取儲存格A1背景色
(44) cells.count '取得當前工作表的儲存格數
(45) Selection.Range("E4").Select '選中當前活動儲存格下方3列，向右4欄的儲存格
(46) Cells.Item(5,"C") '引儲存格C5
Cells.Item(5,3) '引儲存格C5
(47) Range("A1").Offset(RowOffset:=4,ColumnOffset:=5)
或 Range("A1").Offset(4,5) '指定儲存格F5
(48) Range("B3").Resize(RowSize:=11,ColumnSize:=3)
Rnage("B3").Resize(11,3) '創建B3：D13區域
(49) Range("Data").Resize(,2) '將Data區域擴充2欄
(50) Union(Range("Data1"),Range("Data2")) '將Data1和Data2區域連接
(51) Intersect(Range("Data1"),Range("Data2")) '取得Data1和Data2區域的交叉區域
(52) Range("Data").Count '儲存格區域Data中的儲存格數
Range("Data"). Columns.Count '儲存格區域Data中的欄數
Range("Data"). Rows.Count '儲存格區域Data中的列數
(53) Selection.Columns.Count '當前選中的儲存格區域中的欄數
Selection.Rows.Count '當前選中的儲存格區域中的列數
(54) Selection.Areas.Count '選中的儲存格區域所包含的區域數
(55) ActiveSheet.UsedRange.Row '獲取儲存格區域中使用的第一列的列號
(56) Rng.Column '獲取儲存格區域Rng左上角儲存格所在欄編號
(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) '在活動工作表中取得所有符合條件格式設置的區域
(58) Range("A1").AutoFilter Field:=3,VisibleDropDown:=False '關閉由於執列自動篩選命令產生的第3個字段的下拉欄表名稱
(59) Range("A1：C3").Name="computer" '命名A1：C3區域為computer
或Range("D1：E6").Name="Sheet1!book" '命名局部變數，即Sheet1上區域D1：E6為book
或 Names("computer").Name="robot" '將區域computer重命名為robot
(60) Names("book").Delete '刪除名稱
(61) Names.Add Name:="ContentList"，_
RefersTo:="=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))" '動態命名欄
(62) Names.Add Name:="Company",RefersTo:="CompanyCar" '命名字符串CompanyCar
(63) Names.Add Name:="Total",RefersTo:=123456 '將數字123456命名為Total。注意數字不能加引號，否則就是命名字符串了。
(64) Names.Add Name:="MyArray",RefersTo:=ArrayNum '將陣列ArrayNum命名為MyArray。
(65) Names.Add Name:="ProduceNum",RefersTo:="=$B$1",Visible:=False '將名稱隱藏
(66) ActiveWorkbook.Names("Com").Name '取得名稱字符串
五：公式與函數
(67) Application.WorksheetFunction.IsNumber("A1") '使用工作表函數檢查A1儲存格中的資料是否為數字
(68) Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Activate
選中儲存格區域A欄中最大值的儲存格
(69) Cells(8,8).FormulaArray="=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)" '在儲存格中輸入陣列公式。注意必須使用R1C1樣式的表達式
圖表
(70) ActiveSheet.ChartObjects.Count '獲取當前工作表中圖表的個數
(71) ActiveSheet.ChartObjects("Chart1").Select '選中當前工作表中圖表Chart1
(72) ActiveSheet.ChartObjects("Chart1").Activate
ActiveChart.ChartArea.Select '選中當前圖表區域
(73) WorkSheets("Sheet1").ChartObjects("Chart2").Chart. _
ChartArea.Interior.ColorIndex=2 '更改工作表中圖表的圖表區的顏色
(74) Sheets("Chart2").ChartArea.Interior.ColorIndex=2 '更改圖表工作表中圖表區的顏色
(75) Charts.Add '添加新的圖表工作表
(76) ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:D5"), _
PlotBy:=xlColumns '指定圖表資料源並按欄排欄
(77) ActiveChart.Location Where:=xlLocationAsNewSheet '新圖表作為新圖表工作表
(78) ActiveChart.PlotArea.Interior.ColorIndex=xlNone '將繪圖區顏色變為白色
(79) WorkSheets("Sheet1").ChartObjects(1).Chart. _
Export FileName:="C：MyChart.gif",FilterName:="GIF" '將圖表1導出到C碟上並命名為MyChart.gif
六：窗體的操作命令
(80) MsgBox "Hello!" '信息框中顯示信息Hello
(81) Ans=MsgBox("Continue?",vbYesNo) '在信息框中點擊"是"按鈕，則Ans值為vbYes；點擊"否"按鈕，則Ans值為vbNo。
If MsgBox("Continue?",vbYesNo)vbYes Then Exit Sub '取得值不為"是"，則退出
(82) Config=vbYesNo+vbQuestion+vbDefaultButton2 '使用常量的組合，賦值組Config變數，並設置第二個按鈕為預設按鈕
(83) MsgBox "This is the first line." & vbNewLine & "Second line." '在信息框中強制換列，可用vbCrLf代替vbNewLine。
(84) MsgBox "the average is :"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "selection count average" & Chr(13) '應用工作表函數返
回所選區域的平均值並按指定格式顯示
(85) Userform1.Show '顯示用戶窗體
(86) Load Userform1 '加載一個用戶窗體,但該窗體處於隱藏狀態
(87) Userform1.Hide '隱藏用戶窗體
(88) Unload Userform1 或 Unload Me '卸載用戶窗體
(89) (圖像控件).Picture=LoadPicture("圖像路徑") '在用戶窗體中顯示圖形
(90) UserForm1.Show 0 或 UserForm1.Show vbModeless '將窗體設置為不獨占模式狀態
(91) Me.Height=Int(0.88*ActiveWindow.Height) '窗體高度為當前活動窗口高度的0.88
Me.Width=Int(0.88*ActiveWindow.Width) '窗體寬度為當前活動窗口高度的0.88
事件
(92) Application.EnableEvents=False '禁用所有事件
Application.EnableEvents=True '啟用所有事件
註：不適用於用戶窗體控件觸發的事件
七：物件操作
(93) Set ExcelSheet = CreateObject("Excel.Sheet") '創建一個Excel工作表物件
ExcelSheet.Application.Visible = True '設置 Application 物件使 Excel 可見
ExcelSheet.Application.Cells(1, 1).Value = "Data" '在表格的第一個單元中輸入文本
ExcelSheet.SaveAs "C:\TEST.XLS" '將該表格保存到C:\test.xls 目錄
ExcelSheet.Application.Quit '關閉 Excel
Set ExcelSheet = Nothing '釋放該物件變數
(94) '聲明並創建一個Excel物件引用
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
(95) '創建並傳遞一個 Excel.Application 物件的引用
Call MySub (CreateObject("Excel.Application"))
(96) Set d = CreateObject(Scripting.Dictionary) '創建一個 Dictionary 物件變數
(97) d.Add "a", "Athens" '為物件變數添加關鍵字和條目
八：其他
(98) Application.OnKey "^I","macro" '設置Ctrl+I鍵為macro程序的快捷鍵
(99) Application.CutCopyMode=False '退出剪切/複製模式
(100) Application.Volatile True '無論何時工作表中任意儲存格重新計算，都會強制計算該函數
Application.Volatile False '只有在該函數的一個或多個引數發生改變時，才會重新計算該函數 |
|
發表於 2012-4-15 11:20
| 