Excel VBA常用代码总结1

2024年3月9日发(作者：)

Excel VBA常用代码总结1



改变背景色

Range("A1").ndex = xlNone

ColorIndex一览





改变文字颜色

获取单元格

Range("A1").ndex = 1

Cells(1, 2)

Range("H7")



获取范围

Range(Cells(2, 3), Cells(4, 5))

Range("a1:c3")

'用快捷记号引用单元格

Worksheets("Sheet1").[A1:B5]



选中某sheet

SetNewSheet = Sheets("sheet1")



选中或激活某单元格

'“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

单元格。



获得文档的路径和文件名

'路徑

'名稱

me '路徑＋名稱

'或将ActiveWorkbook换成thisworkbook









隐藏文档

禁止屏幕更新

禁止显示提示和警告消息

文件夹做成

e = False

Updating = False

yAlerts = False

strPath = "C:temp"

MkDirstrPath





状态栏文字表示

双击单元格内容变换

Bar = "计算中"

PrivateSubWorksheet_BeforeDoubleClick(ByVal Target As Range, Cancel

AsBoolean)

If (>= <= 8) Then

= "●"Then

= ""

Else

= "●"

EndIf

Cancel = True

EndIf

End Sub



文件夹选择框方法1

SetobjShell = CreateObject("ation")

SetobjFolder = ForFolder(0, "文件", 0, 0)

IfNotobjFolderIsNothing

Then path= &""

endif