EXCEL VBA常用代码集


1. 显示活动工作簿名称
MsgBox " 当前活动工作簿是 " & ActiveWorkbook.Name
2. 保存活动工作簿
Activeworkbook.Save
3. 保存所有打开的工作簿关闭 EXCEL
For Each W in Application.Workbooks
W.Save
Next W
Application.Quit
4. 将网格线设置为蓝色
ActiveWindow.GridlineColorIndex = 5
5. 将工作表 sheet1 隐藏
Sheet1.Visible = xlSheetVeryHidden
6. 将工作表 Shtte1 显示
Sheet1.Visible = xlSheetVisible
7. 单击某单元格 , 该单元格所在的行以蓝色背景填充 , 字体颜色为白色
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Target.Row >= 2 Then 第二行以下的区域
     On Error Resume Next
     [ChangColor_With1].FormatConditions.Delete
     Target.EntireRow.Name = "ChangColor_With1"
     With [ChangColor_With1].FormatConditions
      .Delete
      .Add xlExpression, , "TRUE"
      .Item(1).Interior.ColorIndex = 5
      .Item(1).Font.ColorIndex = 2
     End With
  End If
End Sub
8. 使窗体在启动的时候自动最大化
Private Sub UserForm_Initialize()
   Application.WindowState = xlMaximized
   With Application
       Me.Top = .Top
       Me.Left = .Left
<
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值