EXCEL-VBA-完全手册

1VisualBasicforApplicationExcelVisualBasicforApplicationExcelExcelVisualBasicforApplicationVisualBasicforApplication•VisualBasicforApplication•Excel••••1.1VisualBasicforApplication90ExcelExcelWordBasicMicrosoftWordMicrosoftVisualBasicforApplicationVBAVisualBasicforApplicationVisualBasicVBAVisualBasicVBAVisualBasic•VisualBasicVBA•VisualBasicVBA•VisualBasicVisualBasicVisualBasicVBAExcelVisualBasicVBAVisualBasicVBAVBAVisualBasicExcelVBAWordProjectAccessOutlookFoxProPowerPointVBAVBAMicrosoftVisualBasicVBAExcel1.2ExcelVBAVBA••Excel••Excel••VisualBasicC++Excel•Excel•Excel•Excel•ExcelExcelExcelExcelSUMIRRMAXFVPMTAVGExcelExcelExcelExcelMicrosoftSQLServerMicrosoftAccessExcel1.3VBAExcelVBAVBAVBA2Excel200024Excel1VBA2A1B1C1D13A141-15BigFontExcel255671681.41VisualBasicforApplication31-11B121-2Alt+F83BigFontB1164C1D1BigFont161.5ExcelVBA12BigFontMicrosoftVisualBasic1-34Excel2000241-21-3MicrosoftVisualBasicVBAMicrosoftVisualBasic4VisualBasic1-11-1BigFontSubBigFont()''BigFontMacro'hj1999-11-26''WithSelection.Font.Name=.FontStyle=.Size=16.Strikethrough=False.Superscript=False.Subscript=False.OutlineFont=False.Shadow=False.Underline=xlUnderlineStyleNone.ColorIndex=3EndWithEndSubSubBigFont()withSelectionSelectionVBA1.6VisualBasic1.Name2VBA3SubBigFont()''BigFontMacro'hj1999-11-26''WithSelection.Font.Size=161VisualBasicforApplication5.ColorIndex=3EndWithEndSub4VisualBasic5E1test6E1BigFont78BigFont91624SubBigFont()''BigFontMacro'hj1999-11-26''WithSelection.Font.Size=24.ColorIndex=3EndWithEndSub10VisualBasic11A1BigFont12Hour1VisualBasic1.7Excel•••Excel•VBA1.86Excel200024VBAVBA1.9VBAVBAVBAVBAExcelExcel1.101.10.11VBAExcel2VBA3VBAExcel451.10.2TitleA1B1A1B1141VisualBasicforApplication721VBAVBA••••2.1Ctrl+CExcelCtrlExcelCtrl+CCtrl+CExcelExcel1Excel234BigFont1Hour123BigFont2-14bCtrl56A3Test7A3Ctrl+BExcelCtrl+BCtrl+BExcelExcelExcel2.2•••2.3PERSONAL.XLSExcelMacintoshPERSONALMACROWORKBOOK292-1XLSTART2.3.112FormatText345Excel672.3.2123A14A15PERSONAL.XLS!FormatTextFormatText2-26FormatText2.3.310Excel2000242-212-32PersonalPersonal34FormatText5MicrosoftVisualBasic2.3.4FormatText12FormatText3FormatText452.4Excel1Hour122-432112-342-5Excel5)BigFont6BDelete7BigFont812Excel2000242-42-59A610A6BigFontBigFont2.51G323452cm2cm67BigFont89A910010A92-6VBA2.62132-61)22-73456789BigFont1011A1120012A11BigFont2.7VBA2.8Excel14Excel2000242-7VBA2.92.9.11234Excel5Excel62.9.2Title2153•Excel••••3.1Excel•••••3.1.1ExcelExcel3.1.2Excel3.1.3MicrosoftAccessMicrosoftSQLServer3.1.43.1.5Excel3.2Excel3-116993-23-23173-1Windows3-3A/B1/2/33-4AB12318Excel2000243-23-33-53-63-53193-43-53-73-8Windows20Excel2000243-63-73.3WindowsExcelExcel12341234E156Label1LDelete7Thisisanexampleofalabelcontrol.83-9910E5113213-8123-1022Excel2000243-93-10CtrlShiftCtrlShift3.41233-114A156A1TRUE7A1FALSEExcelIFA1TRUEFALSE20IFA1TRUEA41.2A489103-1211A33233-111213A31A314Control3.5Excel17ExcelchkPriorityShippingchk3-13-1chkcbocmdbtnMicrosoftVisualBasiccmdgrpfraMicrosoft(GroupBox)(frame)VisualBasic(frame)fra24Excel2000243-12imglbllstMultiPagemuloptRefEditrefhsbvsbspnTabStriptabtxttog1213lblExample3.6VisualBasic12VisualBasicVisualBasic33-133253-13UserForm13-14TabStripTab1Tab2•.bmp•.cur•.gif•.ico•.jpg•.wmfRefEditRefEditRefEdit3-15RefEdit3-16RefEdit26Excel2000243-14/3-17VisualBasic3273-15ExcelRefEdit3-16RefEditF53.7Excel3.8ExcelExcel/3.928Excel2000243-173.9.112VisualBasic34VisualBasic53.9.23-18optMaleoptFemalechk401K3293-184VBA•••••4.1VBAVBAVBAExcelExcelVBA4.2VBA4-14-11:SubcmdSmallFont_Click()2:WithSelection.Font3:.Name=Arial4:.FontStyle=Regular5:.Size=166:EndWith7:EndSubcmdSmallFontClickcmdSmallFontcmdSmallFontTrueFalseVBAMicrosoftVBAExcelVBAExcel4-2104-21:PublicFunctionShipping(Price)2:Shipping=Price0.13:EndFunctionPricePricePrice4-14.2.1MsgBoxMsgBox12VisualBasicVisualBasic3VisualBasic4-2ThisWorkbook4314-1ShippingCtrl+ROptionExplicitOptionExplicitDimPrivatePublicReDimStaticOptionExplicit44-35FirstVBAProc4-46TabMsgBoxThisismy1stVBAprocedure.MsgBoxVBATab32Excel2000244-24-374-5VBA•••@&$•2554.2.24334-4PublicSubEndSub4-5VBAVBA/F51/4-624.3VisualBasic12First4.41WhatsYourName2InputBoxEnteryourname:InputBox3F5434Excel2000244-64.4.14-1VBA4-1VBAByte10255Boolean2TrueFalseInteger23276832767Long()421474836482147483647Single43.402823E381.401298E451.401298E453.402823E38Double81.79769313486232E3084.94065645841247E3244.94065645841247E3241.79769313486232E308Currency8922337203685477.5808922337203685477.5807Decimal14+/79228162514264337593543950335+/7.9228162514264337593543950335Date81001199991231Object4String()10+1/020String()165400Variant()16DoubleVariant()22+1/VBA4-1ByteSingle4.4.2DimDimDimDimAs4-1@&$#255435VBA1KnowYourName2DimsNameAsStringsName=InputBox(Enteryourname:)MsgBoxHi&sNamePublicSubKnowYourName()DimsNameAsStringsName=InputBox(Enteryourname:)MsgBoxHi&sNameEndSub3F54-744-85DimVariantVBAVariant36Excel2000244-7sNameVBAVariant4-1Variant1622VariantVBAVariantVariant1VariableExample2DimStartTimeDimEndTimeDimiDimjStartTime=Now()Fori=1To5000000j=i+1NextiEndTime=Now()MsgBoxStartTime:&StartTime&vbNewLine&endTime:&EndTimeDimVaria