admin管理员组

文章数量:1530842

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://m.elefans.com/xitong/1719553261a784654.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。