Excel 自动执行全局宏

Excel 自动执行全局宏 25.04.09

步骤 1:创建个人宏工作簿(Personal.xlsb)

  1. 生成Personal.xlsb

    (如尚未存在):

    • 打开Excel → 开发工具 → 录制宏 → 选择"保存到个人宏工作簿" → 停止录制。
    • Alt + F11 进入VBA编辑器,确认左侧出现 PERSONAL.XLSB

步骤 2:在Personal.xlsb中设置全局事件监听

  1. 插入类模块

    • 右键点击 PERSONAL.XLSB → 插入 → 类模块 → 重命名为 clsAppEvents

    • 在类模块中输入以下代码:

      vba 复制代码
      Public WithEvents App As Application  ' 声明应用程序级事件
      
      ' 当任何工作簿被打开时触发
      Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
          On Error Resume Next  ' 防止错误中断
          Call YourGlobalMacro(Wb)  ' 传递当前打开的工作簿对象
      End Sub
  2. 绑定事件到Application对象

    • 双击PERSONAL.XLSB下的ThisWorkbook

      → 输入代码:

      vba 复制代码
      Private myAppHandler As clsAppEvents  ' 声明类实例
      
      ' 当Personal.xlsb加载时绑定事件
      Private Sub Workbook_Open()
          Set myAppHandler = New clsAppEvents  ' 初始化类
          Set myAppHandler.App = Application  ' 绑定到全局Application对象
      End Sub

步骤 3:编写全局宏

  1. 在Personal.xlsb中插入模块:

    • 右键插入新模块 → 输入以下代码:

      vba 复制代码
      Sub YourGlobalMacro(Wb As Workbook)
          MsgBox "检测到工作簿被打开:" & Wb.Name, vbInformation
          ' 示例:在所有工作簿中自动执行操作
          Wb.Sheets(1).Range("A1").Value = "AutoMacro Executed!"
          
          If Wb.Name <> "PERSONAL.XLSB" Then
              With ActiveWindow
                  .SplitRow = 3    ' 分割线在第1行下方
                  .SplitColumn = 1
                  .FreezePanes = True  ' 冻结窗格
              End With
              
              ' 或调整指定区域的列宽(例如A到C列)
              Range("A:Z").Columns.AutoFit
          End If
      End Sub
      
      // 版本2 
      Sub YourGlobalMacro(Wb As Workbook)
          'MsgBox "检测到工作簿被打开:" & Wb.Name, vbInformation
          ' 示例:在所有工作簿中自动执行操作
          'Wb.Sheets(1).Range("A1").Value = "AutoMacro Executed!"
          
          If Wb.Name <> "PERSONAL.XLSB" Then
              With ActiveWindow
                  .SplitRow = 3    ' 分割线在第1行下方
                  .SplitColumn = 1
                  .FreezePanes = True  ' 冻结窗格
              End With
              
              Call AutoFitSelectionWithMaxWidth
             
          End If
          
          
      End Sub
      
      
      Sub AutoFitSelectionWithMaxWidth()
          Dim maxWidth As Double
          maxWidth = 100
          
           ' 或调整指定区域的列宽(例如A到C列)
          Range("A:Z").Columns.AutoFit
              
         
             
          For Each col In Range("A:Z").Columns
              If col.ColumnWidth > maxWidth Then
                  col.ColumnWidth = maxWidth
              End If
          Next col
          
      End Sub

步骤 4:保存并验证

  1. 保存到XLSTART文件夹:

    • 按Ctrl + S→ 确保路径为:

      复制代码
      C:\Users\<用户名>\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB
  2. 重启Excel并测试:

    • 关闭所有Excel窗口,重新打开Excel。
    • 新建或打开任意Excel文件(如Test.xlsx):
      • 应弹出消息框显示文件名,且A1单元格被写入内容。

步骤 5:导出给其他人使用

复制 PERSONAL.XLSB ,可以给其他人使用,放入用户 对应目录下:

C:\Users<用户名>\AppData\Roaming\Microsoft\Excel\XLSTART

相关推荐
缺点内向12 小时前
Java:创建、读取或更新 Excel 文档
java·excel
wangbing112517 小时前
EXCEL文本数字如何批量转换为数字
excel
web守墓人1 天前
【go语言】gopls工具与LSP协议全面解析
excel
2501_930707781 天前
使用C#代码删除 Excel 中的公式但保留数值
excel
liliangcsdn1 天前
python如何写数据到excel示例
开发语言·python·excel
CNRio1 天前
将word和excel快速转换为markdown格式
python·word·excel
best_scenery2 天前
excel绘制折线图
excel·分布图
大气层煮月亮2 天前
Oracle EBS ERP开发——报表生成Excel标准模板设计
数据库·oracle·excel
葡萄城技术团队2 天前
从 Excel 到你的表格应用:保护工作表功能的嵌入实践指南
excel
番石榴AI3 天前
自己动手做一款ChatExcel数据分析系统,智能分析 Excel 数据
人工智能·python·数据挖掘·excel