VBA语句集100句第2辑.txt

- Page 1-ExcelVBA>>VBA 伯 VBA 伯 (2 ) * (101) Err.Clear * (102) ThisWorkbook.BuiltinDocumentProperties(Last Save Time) Application.Caller.Parent.Parent.BuiltinDocumentProperties(Last Save Time) 湤 (103) ThisWorkbook.BuiltinDocumentProperties("Last Print Date") Application.Caller.Parent.Parent.BuiltinDocumentProperties(Last Print Date) (104) Workbooks.Close 򿪵 (105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) (106) ActiveWorkbook.CodeName ThisWorkbook.CodeName (107) ActiveWorkbook.FileFormat ThisWorkbook.FileFormat (108) ThisWorkbook.Path ActiveWorkbook.Path ·(:,) (109) ThisWorkbook.ReadOnly ActiveWorkbook.ReadOnly /(False) (110) ThisWorkbook.Saved ActiveWorkbook.Saved 洢(False) (111) Application.Visible = False Application.Visible = True :û,򿪹,û.ÿ * (112) ActiveSheet.Columns("B").Insert A B ActiveSheet.Columns("E").Cut ActiveSheet.Columns("B").Insert 佫E B B ActiveSheet.Columns("B").Cut ActiveSheet.Columns("E").Insert 佫B D C D - 1 - - Page 2-ExcelVBA>>VBA 伯 (113) ActiveSheet.Calculate (114) ThisWorkbook.Worksheets(sheet1).Visible=xlSheetHidden Excel 񡰸 ThisWorkbook.Worksheets(sheet1).Visible=xlSheetVeryHidden Excel 񡰸 ThisWorkbook.Worksheets(sheet1).Visible=xlSheetVisible (115) ThisWorkbook.Sheets(1).ProtectContents 鹤 (116) ThisWorkbook.Worksheets.Add Count:=2, _ Before:=ThisWorkbook.Worksheets(2) ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2 µ (117) ThisWorkbook.Worksheets(3).Copy µ (118) ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) (119) ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 乤 20 ThisWorkbook.ActiveSheet.Columns.ColumnWidth = _ ThisWorkbook.ActiveSheet.StandardWidth ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 乤1 20 (120) ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 乤10 ThisWorkbook.ActiveSheet.Rows.RowHeight = _ ThisWorkbook.ActiveSheet.StandardHeight ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 乤1 10 (121) ThisWorkbook.Worksheets(1).Activate (122) ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True ù Sheet1 1 (123) ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True Sheet1 1 ActiveCell.EntireRow.Hidden = True (124) ActiveSheet.Range(A:A).EntireColumn.AutoFit A (125) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) * (126) Application.MacroOptions Macro:=SumPro,Category:=4 SumPro Excel (127) Application.MacroOptions Macro:=SumPro, _ - 2 - - Page 3-ExcelVBA>>VBA 伯 Description:=First Sum,then Product 庯SumPro (128) Application.WorksheetFunction.CountA(Range(A:A)+1 A (129) WorksheetFunction.CountA(Cell.EntireColumn) õ WorksheetFunction.CountA(Cell.EntireRow) õ (130) WorksheetFunction.CountA(Cells) (131) ActiveSheet.Range(A20:D20).Formula=Sum(R-19C:R-1CA D 19 * (132) ActiveWindow.Visible=False ActiveChart.Deselect (133) TypeName(Selection)=Chart 棬 (134) ActiveSheet.ChartObjects.Delete ChartObject ActiveWorkbook.Charts.Delete * (135) UserForms.Add(MyForm).Show ûMyForm (136)TextName.SetFocus (137) SpinButton1.Value=0 0 (138) TextBox1.Text=SpinButton1.Value SpinButton1.Value=Val(TextBox1.Text) CStr(SpinButton1.Value)=TextBox1.Text (139) UserForm1.Controls.Count UserForm1 (140) ListBox1.AddItem Command1 Command1 (141) ListBox1.ListIndex -1 (142) RefEdit1.Text RefEdit1.Text=ActiveWindow.RangeSelection.Address RefEdit Set FirstCell=Range(RefEdit1.Text).Range(A1) (143) Application.OnTime Now + TimeValue("00:00:15"), "myProcedure" 15 myProcedure (144) ActiveWindow.ScrollColumn=ScrollBarColumns.Value ActiveWindow ScrollColumn ActiveWindow.ScrollRow=ScrollBarRows.Value ActiveWindow ScrollRow (145) UserForm1.ListBox1.AddItem Sheets(Sheet1).Cells(1,1) A1 ListBox1.List=Product Product ListBox1 - 3 - - Page 4-ExcelVBA>>VBA 伯 ListBox1.RowSource=Sheet2!SumP ùSheet2 SumP (146) ListBox1.Selected(0) ( Selected ) (147) ListBox1.RemoveItem ListBox1.ListIndex * Application (148) Application.UserName óû (149) Application.Caller ú (150) Application.Caller.Parent.Parent ú (151) Application.StatusBar= Application.StatusBar= & Percent & % Completed Percent İ Application.StatusBar=False ó (152) Application.Goto Reference:=Range(A1:D4) A1 D4 񡰱A1 D4 (153) Application.Dialogs(xlDialogFormulaGoto).Show 򣬵 (154) Application.Dialogs(xlDialogSelectSpecial).Show (155) Application.Dialogs(xlDialogFormatNumber).show Application.Dialogs(xlDialogAlignment).show Application.Dialogs(xlDialogFontProperties).show 塱 Application.Dialogs(xlDialogBorder).show Application.Dialogs(xlDialogPatterns).show Application.Dialogs(xlDialogCellProtection).show (156) Application.Dialogs(xlDialogFormulaGoto).show Range("b2"), True á(ö) (157) Application.CommandBars(1).Controls(2).Controls(16).Execute (158) Application.Transpose(Array(Sun,Mon,Tur,Wed,Thu,Fri,Sat) (159) Application.Version õExcel 汾 (160) Application.Cursor = xlNorthwestArrow ù Application.Cursor = xlIBeam ù Application.Cursor = xlWait ù©() Application.Cursor = xlDefault (161) Application.WindowState - 4 - - Page 5-ExcelVBA>>VBA 伯 Application.WindowState = xlMinimized Application.WindowState = xlMaximized Application.WindowState = xlNormal (162) Application.UsableHeight Application.UsableWidth (163) Application.ActiveCell.Address (:) (164) Application.ActivePrinter (165) Application.ActiveSheet.Name (166) Application.ActiveWindow.Caption (167) Application.ActiveWorkbook.Name (168) Application.Selection.Address (169) Application.ThisWorkbook.Name (170) Application.CalculationVersion Excel 汾()Excel 汾() (171) Application.MemoryFree Excel õ( õ) (172) Application.MemoryUsed Excel õ (173) Application.MemoryTotal Excel õ( õ,MemoryFree MemoryUsed ) (174) Application.OperatingSystem õ汾 (175) Application.OrganizationName Excel õ (176) Application.FindFormat Application.ReplaceFormat 滻 ActiveSheet.Cells.Replace What:= , _ Replacement:= ,SearchFormat:=True,ReplaceFormat:=True 滻 (177) Application.Interactive=False (178) Application.Evaluate("Rate") 0.06 Rate, 佫0.06 (179) Application.OnUndo Undo Option,Undo Procedure UndoOption 󣬽 Undo Procedure * Range (180) Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray) 10 ó(A1 A10) õ ôã (181) Range(A65536).End(xlUp).Row+1 A (182) rng.Range(A1) (183) cell.Parent.Parent.Worksheets (184) Selection.Font.Bold=Not Selection.Font.Bold (185) ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _ Header:=xlYes B A - 5 - - Page 6-ExcelVBA>>VBA 伯 (186) cell.Range(A1).NumberFormat (187) cell.Range(A1).HasFormula 鵥 cell.HasFormula (188) Cell.EntireColumn Cell.EntireRow (189) rng.Name.Name rng (190) rng.Address rng (191) cell.Range(A1).Formula rng Formula õû õõ (192) Range(D5:D10).Cells(1,1) D5:D10 (193) ActiveCell.Row ActiveCell.Column (194) Range("A1:B1").HorizontalAlignment = xlLeft (195) ActiveSheet.Range(A2:A10).NumberFormat=#,#0 õA2 A10 (196) rng.Replace ,0 0 滻 * Collection object (197) Dim colMySheets As New Collection Public colMySheets As New Collection µ (198) Set MyRange=Range(A1:A5) MyRange (199) <object>.Add Cell.Value CStr(Cell.Value) 򼯺( ) * Windows API (200) Declare Function GetWindowsDirectoryA Lib kernel32 _ (ByVal lpBuffer As String,ByVal nSize As Long) As Long API Windows ¼øú󣬰Windows ¼lpBuffer ¼nSize (By fanjy in 2006-6-24) - 6 -