Excel VBA常用代码总结1

《Excel VBA常用代码总结1》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ExcelVBA常用代码总结1·改变背景色Range("A1").Interior.ColorIndex=xlNone ColorIndex一览·改变文字颜色Range("A1").Font.ColorIndex=1·获取单元格Cells(1,2)Range("H7")·获取范围Range(Cells(2,3),Cells(4,5))Range("a1:c3")'用快捷记号引用单元格Worksheets("Sheet1").[A1:B5]·选中某sheetSetNewSheet=Sheets("sheet1")NewSheet.

2、Select·选中或激活某单元格'“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。'下面的代码首先选择A1:E10区域，同时激活D4单元格：Range("a1:e10").SelectRange("d4:e5").Activate'而对于下面的代码：Range("a1:e10").SelectRange("f11:g15").Activate'由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。·获得文档的路径和文

3、件名ActiveWorkbook.Path　　　　'路徑ActiveWorkbook.Name　　　'名稱ActiveWorkbook.FullName　'路徑＋名稱'或将ActiveWorkbook换成thisworkbook·隐藏文档Application.Visible=False·禁止屏幕更新Application.ScreenUpdating=False·禁止显示提示和警告消息Application.DisplayAlerts=False·文件夹做成strPath="C:temp"MkDirstrPath·状态栏文

4、字表示Application.StatusBar="计算中"·双击单元格内容变换PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)If(Target.Cells.Row>=5AndTarget.Cells.Row<=8)ThenIfTarget.Cells.Value="●"ThenTarget.Cells.Value=""ElseTarget.Cells.Value="●"EndIfCancel=TrueEndIfEndSub·文件

5、夹选择框方法1SetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.BrowseForFolder(0,"文件",0,0)IfNotobjFolderIsNothingThenpath=objFolder.self.Path&""endifSetobjFolder=NothingSetobjShell=Nothing·文件夹选择框方法2（推荐）PublicFunctionChooseFolder()AsStringDimdlgOpenAsFileD

6、ialogSetdlgOpen=Application.FileDialog(msoFileDialogFolderPicker)WithdlgOpen.InitialFileName=ThisWorkbook.path&""If.Show=-1ThenChooseFolder=.SelectedItems(1)EndIfEndWithSetdlgOpen=NothingEndFunction'使用方法例：DimpathAsStringpath=ChooseFolder()Ifpath<>""ThenMsgBox"openfo

7、lder"EndIf·文件选择框方法PublicFunctionChooseOneFile(OptionalTitleStrAsString="Pleasechooseafile",OptionalTypesDecAsString="*.*",OptionalExtenAsString="*.*")AsStringDimdlgOpenAsFileDialogSetdlgOpen=Application.FileDialog(msoFileDialogFilePicker)WithdlgOpen.Title=TitleStr.Fi

8、lters.Clear.Filters.AddTypesDec,Exten.AllowMultiSelect=False.InitialFileName=ThisWorkbook.PathIf.Show=-1Then'.AllowMultiSelect=True