如何无需进入代码视图并点击运行即可自动化Excel中的这段VBA代码？

以下是几种无需手动进入代码编辑器执行的自动/便捷运行方案，可根据需求选择：

1. 工作簿打开时自动执行 #

每次打开工作簿就自动触发排序：

• 按 Alt + F11 打开VBA编辑器
• 在左侧项目窗口找到目标工作簿，展开后双击 ThisWorkbook
• 粘贴下方代码：

  Option Explicit
  
  Private Sub Workbook_Open()
      sortononecol
  End Sub
  
  Sub sortononecol()
      Range("A1").CurrentRegion.Sort key1:=Range("C1"), order1:=xlAscending, Header:=xlYes
  End Sub
  

• 将工作簿保存为「Excel启用宏的工作簿（.xlsm）」格式，下次打开时会自动执行排序。

2. 指定工作表数据变化时自动执行 #

当目标列（比如C列）的数据修改时，自动触发排序：

• 打开VBA编辑器，双击要监控的工作表（如 Sheet1）
• 粘贴下方代码：

  Option Explicit
  
  Private Sub Worksheet_Change(ByVal Target As Range)
      ' 仅当改动发生在C列时触发，可根据需求调整列范围
      If Not Intersect(Target, Me.Columns("C")) Is Nothing Then
          Application.EnableEvents = False ' 避免排序操作重复触发事件
          sortononecol
          Application.EnableEvents = True ' 恢复事件监听
      End If
  End Sub
  
  Sub sortononecol()
      Me.Range("A1").CurrentRegion.Sort key1:=Me.Range("C1"), order1:=xlAscending, Header:=xlYes
  End Sub
  

• 保存为xlsm格式，后续C列数据变动时会自动执行排序。

3. 定时自动执行排序 #

每隔固定时间自动执行排序（示例为每5分钟）：

• 打开VBA编辑器，双击 ThisWorkbook
• 粘贴下方代码：

  Option Explicit
  Dim nextRunTime As Date
  
  Private Sub Workbook_Open()
      ' 设置首次运行时间为当前时间+5分钟，可自行修改间隔
      nextRunTime = Now + TimeValue("00:05:00")
      Application.OnTime nextRunTime, "sortononecol"
  End Sub
  
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
      ' 关闭工作簿时取消定时任务，避免残留
      On Error Resume Next
      Application.OnTime nextRunTime, "sortononecol", , False
  End Sub
  
  Sub sortononecol()
      Range("A1").CurrentRegion.Sort key1:=Range("C1"), order1:=xlAscending, Header:=xlYes
      ' 重新设置下一次运行时间
      nextRunTime = Now + TimeValue("00:05:00")
      Application.OnTime nextRunTime, "sortononecol"
  End Sub
  

• 保存为xlsm格式，打开工作簿后会按设定间隔自动排序，关闭时停止任务。

4. 添加工作表按钮一键触发（无需进入代码编辑器） #

如果不需要完全自动，但想避免打开代码编辑器，可添加按钮直接点击运行：

• 打开Excel，点击「开发工具」选项卡（未显示的话，在「文件-选项-自定义功能区」中勾选）
• 点击「插入」，选择「按钮（表单控件）」，在工作表上拖动绘制按钮
• 弹出「指定宏」窗口时，选择 sortononecol 并确定
• 修改按钮文字为「一键排序」，之后直接点击按钮即可运行代码。

注意事项 #

• 所有方案均需将工作簿保存为 .xlsm 格式，否则宏功能会被禁用
• 打开工作簿时，需在Excel顶部的安全提示中点击「启用内容」以允许宏运行

内容的提问来源于stack exchange，提问作者sunwave2272