Excel-VBA常用代码总结1VIP专享

Excel VBA常用代码总结1(35 页)Good is good, but better carries it.精益求精，善益求善。改变背景色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] 选中某 sheetSet NewSheet = Sheets("sheet1")NewSheet.Select 选中或激活某单元格'“Range”对象的的 Select 方法可以选择一个或多个单元格，而 Activate 方法可以指定某一个单元格为活动单元格。'下面的代码首先选择 A1:E10 区域，同时激活D4 单元格： Range("a1:e10").Select Range("d4:e5").Activate'而对于下面的代码： Range("a1:e10").Select Range("f11:g15").Activate'由于区域 A1:E10 和 F11:G15 没有公共区域，将最终选择 F11:G15，并激活 F11 单元格。 获得文档的路径和文件名ActiveWorkbook.Path '路徑ActiveWorkbook.Name '名稱ActiveWorkbook.FullName '路徑＋名稱'或将 ActiveWorkbook 换成 thisworkbook 隐藏文档Application.Visible = False 禁止屏幕更新Application.ScreenUpdating = False 禁止显示提示和警告消息Application.DisplayAlerts = False 文件夹做成strPath = "C:\temp\"MkDir strPath 状态栏文字表示Application.StatusBar = "计算中" 双击单元格内容变换Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If (Target.Cells.Row >= 5 And Target.Cells.Row <= 8) Then If Target.Cells.Value = "●" Then Target.Cells.Value = "" Else Target.Cells.Value = "●" End If Cancel = True End IfEnd Sub 文件夹选择框方法 1Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.BrowseForFolder(0, "文件", 0, 0)If Not objFolder Is Nothing Then path= objFolder.self.Path & "\"end ifSet objFolder = NothingSet objShell = Nothing 文件夹选择框方法 2（推举） Public Function ChooseFolder() As String Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker) W...