admin管理员组

文章数量:1531793

2024年6月28日发(作者：)

Excel VBA常用代码总结1

•

改变背景色

Range（”A1”).Interior。ColorIndex = 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

Set 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。FullName '路徑＋名稱

'或将ActiveWorkbook换成thisworkbook

•

•

•

•

隐藏文档

禁止屏幕更新

禁止显示提示和警告消息

文件夹做成

e = False

Application。ScreenUpdating = False

Application。DisplayAlerts = False

strPath = ”C：temp"

MkDir strPath

•

•

状态栏文字表示

双击单元格内容变换

Bar = ”计算中"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As

Boolean）

If ( 〉= 5 And Target。Cells。Row 〈= 8) Then

If Target。Cells。Value = ”●” Then

= ""

Else

= "●”

End If

Cancel = True

End If

End Sub

•

文件夹选择框方法1

Set objShell = CreateObject（"Shell。Application”)

Set objFolder = objShell。BrowseForFolder(0， ”文件"， 0， 0）

If Not objFolder Is Nothing

Then path= objFolder。 ＆ ”"

end if

本文标签： 选择文档文字方法改变

版权声明：本文标题：Excel VBA常用代码总结1 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1719553535a784670.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。