admin管理员组文章数量:1565791
2024年6月28日发(作者:)
EXCELVBA常用代码集
1.显示活动工作簿名称
MsgBox "当前活动工作簿是 " &
2.保存活动工作簿
3.保存所有打开的工作簿关闭 EXCEL
For Each W in oks
Next W
4.将网格线设置为蓝色
neColorIndex = 5
5.将工作表sheet1 隐藏
e = xlSheetVeryHidden
6.将工作表Shtte1 显示
e = xlSheetVisible
7.单击某单元格,该单元格所在的行以蓝色背景填充 ,字体颜色为白
色
Private Sub Worksheet_SelectionChange(ByVal Target As
)
If >= 2 Then’第二行以下的区域
On Error Resume Next
[ChangColor_With1].
= "ChangColor_With1"
With [ChangColor_With1].FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).ndex = 5
.Item(1).ndex = 2
End With
End If
End Sub
8.使窗体在启动的时候自动最大化
Private Sub UserForm_Initialize()
State = xlMaximized
With Application
= .Top
= .Left
= .Height
= .Width
End With
End Sub
9.不保存工作簿退出EXCEL
yAlerts = False
10.使窗体的关闭按纽不好用
Private Sub UserForm_QueryClose(Cancel As Integer,
CloseMode As Integer)
If CloseMode = vbformcontrdmenu Then
MsgBox "请用关闭按钮关闭窗口 !!", 64, "提示"
Cancel = True
End If
End Sub
11.使窗体在3 秒后自动关闭
Private Sub UserForm_Activate()
Now + TimeValue("00:00:03")
End Sub
12.启动窗体的时候自动使Label1显示 Sheet1工作表3 列,8行
版权声明:本文标题:EXCELVBA常用代码集 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/xitong/1719553261a784654.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论