|
Application（Excel程序）篇 Application.EnableEvents= True/ False ’啟用/禁用所有事件 Application.DisplayAlerts=True/False ’顯示/關(guān)閉警告框提示框 Application.ScreenUpdating= True/False ’顯示/關(guān)閉屏幕刷新 Application.StatusBar = "軟件報(bào)專用" ’在地址欄中顯示文本，標(biāo)題欄用Caption屬性 Application.Cursor = xlIBeam ‘設(shè)置光標(biāo)形狀為Ⅰ字形，xlWait為沙漏(等待)形，xlNormal為正常 Application.WindowState = xlMinimized ‘窗口最小化，xlMaximized最大化，xlNormal為正常 Application.ActivateMicrosoftApp xlMicrosoftWord ’開(kāi)啟Word應(yīng)用程序 Application.TemplatesPath ‘獲取工作簿模板的位置 Application.CalculateFull ’重新計(jì)算所有打開(kāi)的工作簿中的數(shù)據(jù) Application.RecentFiles.Maximum = 2 ’將最近使用的文檔列表數(shù)設(shè)為2 Application.RecentFiles(3).Open ’打開(kāi)最近打開(kāi)的文檔中的第3個(gè)文檔 Application.AutoCorrect.AddReplacement "sweek", "軟件報(bào)" ’自動(dòng)將輸入的"sweek"更正為"軟件報(bào)" Application.Dialogs(xlDialogPrint).Show ‘顯示打印文檔的對(duì)話框 Application.OnTime Now + TimeValue("00:00:45"), "process" ’45分鐘后執(zhí)行指定過(guò)程 Application.OnTime TimeValue("14:00:00"), " process " ’下午2點(diǎn)執(zhí)行指定過(guò)程 Application.OnTime EarliestTime:=TimeValue("14:00:00"), _ Procedure:="process", Schedule:=False ’取消指定時(shí)間的過(guò)程的執(zhí)行 工作簿/工作表篇 ActiveWorkbook.Sheets.Count ’獲取活動(dòng)工作薄中工作表數(shù) ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回當(dāng)前工作簿中的第一條鏈接 ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden ‘隱藏工作表，與在Excel菜單中執(zhí)行“格式—工作表—隱藏”操作一樣 ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden ‘隱藏工作表，不能通過(guò)在Excel菜單中執(zhí)行“格式—工作表—取消隱藏”來(lái)重新顯示工作表 ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible ‘顯示被隱藏的工作表 ThisWorkbook.Sheets(1).ProtectContents ‘檢查工作表是否受到保護(hù) ActiveSheet.Columns("B").Cut ActiveSheet.Columns("F").Insert ‘以上兩句將B列數(shù)據(jù)移至F列，原C列后的數(shù)據(jù)左移 ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自動(dòng)調(diào)整當(dāng)前工作表A列的列寬 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘選中當(dāng)前工作表中常量和文本單元格 ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘選中當(dāng)前工作表中常量和文本及錯(cuò)誤值單元格 ActiveSheet.UsedRange.Rows.Count ‘當(dāng)前工作表中已使用的行數(shù) ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(3), , 2 ‘在第3張工作表之前添加2個(gè)新的工作表 ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) ’將當(dāng)前工作表移至工作表的最后 Worksheets(Array(“sheet1”,”sheet2”)).Select ’同時(shí)選擇工作表sheet1和sheet2 ActiveSheet.UsedRange.FormatConditions.Delete ‘刪除當(dāng)前工作表中應(yīng)用的條件格式 Cells.Hyperlinks.Delete ‘取消當(dāng)前工作表中所有單元格的超鏈接 ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在頁(yè)腳顯示文件的路徑 ActiveSheet.PrintPreview Enablechanges:=False ‘禁用顯示在Excel的“打印預(yù)覽”窗口中的“設(shè)置”和“頁(yè)邊距”按鈕 單元格/單元格區(qū)域篇 ActiveSheet.UsedRange.Row ‘獲取已使用的單元格區(qū)域的第一行的行號(hào) Range(“A65536”).End(xlUp).Row ‘返回A列最后一行(即記錄的總條數(shù)) cell.Range(“A1”).HasFormula ‘檢查單元格或單元格區(qū)域中的第一個(gè)單元格是否含有公式或cell.HasFormula ‘工作表中單元格是否含有公式 Target.EntireColumn.Select ‘選擇單元格所在的整個(gè)列，Target.EntireRow.Select為選擇單元格所在的整行 ActiveCell.Row ‘活動(dòng)單元格所在的行號(hào)，ActiveCell.Column為活動(dòng)單元格所在的列數(shù) ActiveWindow.ScrollRow = 2 ’將當(dāng)前工作表窗口滾動(dòng)到第2行 ActiveWindow.ScrollColumn = 5 ’將當(dāng)前工作表窗口滾動(dòng)到第5列 Worksheets("sheet1").Range("A1:C5").CopyPicture xlScreen, xlBitmap ’將指定的單元格區(qū)域的內(nèi)容復(fù)制成屏幕快照 Selection.Hyperlinks.Delete ‘刪除所選區(qū)域的所有鏈接 ActiveSheet.Cells(1, 1).Font.Bold = TRUE ‘Bold屬性用于設(shè)置字體是否為加粗， Size屬性設(shè)置字體大小， ColorIndex屬性設(shè)置字體顏色（其值為顏色索引號(hào)）， Italic屬性設(shè)置字型是否為傾斜， Name屬性設(shè)置字體名稱 ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 ‘將單元格的背景色設(shè)置為紅色 IsEmpty (ActiveCell.Value) ’判斷活動(dòng)單元格中是否有值 ActiveCell.Value = UCase(ActiveCell.Value) ’將當(dāng)前單元格中的字符轉(zhuǎn)換成大寫(xiě) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) ’將活動(dòng)單元格中的字符串轉(zhuǎn)換成小寫(xiě) ActiveCell.CurrentRegion.Select ’選擇當(dāng)前活動(dòng)單元格所在的連續(xù)的非空區(qū)域，也可以用Range(ActiveCell, UsedRange.End(xlDown)).Select ActiveCell.Offset(1,0).Select ’活動(dòng)單元格下移一行 Range(“B2”).Offset(ColumnOffset:=1)或Range(“B2”).Offset(,1) ‘讀取指定單元格右側(cè)單元格中的數(shù)據(jù) Range(“B2”).Offset(Rowoffset:=-1)或Range(“B2”).Offset(-1) ‘讀取指定單元格上一行單元格中的數(shù)據(jù) Range(“A1”).Copy Range(“B1”) ’復(fù)制單元格A1中的內(nèi)容到B1中 Range(“A1:D8”).Copy Range(“H1”) ’將指定單元格區(qū)域復(fù)制到從H1開(kāi)始的區(qū)域中，用Cut方法可以實(shí)現(xiàn)剪切操作 ActiveWindow.RangeSelection.Value = "軟件報(bào)" ’將指定字符串輸入到所選單元格區(qū)域中 窗體（控件）篇 Option Explicit ’強(qiáng)制對(duì)模塊內(nèi)所有變量進(jìn)行聲明 Userform1.Show ‘顯示用戶窗體 Load Userform1 ‘加載一個(gè)用戶窗體,但該窗體處于隱藏狀態(tài) Userform1.Hide ‘隱藏用戶窗體 Unload Userform1 或 Unload Me ‘卸載用戶窗體 Me.Height=Int(0.5 * ActiveWindow.Height) ‘窗體高度為當(dāng)前活動(dòng)窗口高度的一半，寬度用ActiveWindow. Width屬性 UserForm1.ComboBox1.AddItem Sheets("Sheet1").Cells(1, 1) ‘將指定單元格中的數(shù)據(jù)添加到復(fù)合框中 ListBox1.List=MyProduct() ‘將數(shù)組MyProduct的值添加到列表框ListBox1中 ListBox1.RowSource=”Sheet1!isum” ‘將工作表Sheet1中名為的isum區(qū)域的值添加到列表框中 ListBox1.Selected(0) ‘選中列表框中的指定的條目 ListBox1.RemoveItem ListBox1.ListIndex ‘移除列表框中選中的條目 If MsgBox(“要退出嗎？”,vbYesNo)<>vbYes Then Exit Sub ’返回值不為“是”，則退出 Config=vbYesNo+vbQuestion+vbDefaultButton2 ’使用常量的組合，賦值組Config變量，并設(shè)置第二個(gè)按鈕為缺省按鈕 MsgBox “This is the first line.” & vbNewLine & “Second line.” ’在消息框中強(qiáng)制換行，也可用vbCrLf代替vbNewLine。 MsgBox "平均值為:"&Format(Application.WorksheetFunction.Average(Selection),"#,##0.00"),vbInformation, "顯示選區(qū)平均值" ’應(yīng)用工作表函數(shù)返回所選區(qū)域的平均值并按指定顯示的格式 公式與函數(shù) Application.WorksheetFunction.IsNumber(“A1”) ’檢查指定單元格中的數(shù)據(jù)是否為數(shù)字 Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate ’激活單元格區(qū)域A列中最大值的單元格 Application.MacroOptions Macro:=”GetSum”,Category:=4 ‘將自定義的GetSum函數(shù)指定給Excel中的“統(tǒng)計(jì)函數(shù)”類別 Application.MacroOptions Macro:=” GetSum”, _ Description:=”先求和,然后再輸出?！?‘為自定義函數(shù)GetSum進(jìn)行功能說(shuō)明 Application.WorksheetFunction.CountA(Cell.EntireColumn) ‘返回該單元格所在列非空單元格的數(shù)量，所在行使用EntireRow屬性 Application.WorksheetFunction.CountA(Cells) ‘返回當(dāng)前工作表中非空單元格數(shù)量 圖表篇 ActiveSheet.ChartObjects.Delete ‘刪除工作表中所有的ChartObject對(duì)象 ActiveWorkbook.Charts.Delete ‘刪除當(dāng)前工作簿中所有的圖表工作表 ActiveSheet.ChartObjects.Count ’獲取當(dāng)前工作表中圖表的個(gè)數(shù) Worksheets("Sheet1").ChartObjects(1).Chart. _ Export Filename:="C:\MyChart.gif", FilterName:="GIF" ‘將指定工作表中的圖表1導(dǎo)出到C盤(pán)上并命名為MyChart.gif |
|
|
