admin管理员组文章数量:1566670
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://www.elefans.com/dianzi/1719553535a784670.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论