怎样使用VBA用F4键重复执行——批量添加批注？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub auto_close()

 

 Application.CommandBars(1).Reset '关闭工作簿时恢复菜单

 

End Sub

 

Sub auto_open()  '开启工作簿时生成菜单

 

    Dim Menu As CommandBarControl, SubMenu As CommandBarControl

 

    Set SubMenu=Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , 1)

 

    SubMenu.Caption="添加批注(&C)"

 

    With SubMenu.Controls.Add(msoControlButton, 1, , , True)

 

      .Caption="批量添加批注(&Batch)"

 

      .OnAction="批注"

 

      .Style=msoButtonIconAndCaption

 

      .FaceId=484

 

      End With

 

    Application.OnKey "^w", "生成批注"

 

  End Sub

 

Sub生成批注() '添加批注的主程序

 

On Error Resume Next

 

Dim cell As Range, texts As String

 

texts=Application.InputBox("请输入前缀：", "批注前缀", "", , , , , 3)

 

'允许输入数字和文本，也可以省略

 

For Each cell In Selection

 

If cell.Offset(0, 1) <> "" Then '忽略空白

 

  cell.AddComment            '添加批注

 

  cell.Comment.Text Text:=texts & cell.Offset(0, 1).Text  '指定批注内容

cell.Comment.Shape.TextFrame.AutoSize=True          '让批注自动缩放

 

  End If

 

Next

 

End Sub

 

Sub批注()  '通过快捷键执行添加批注

 

Application.SendKeys "^w"  '快捷键为Ctrl+W

 

End Sub

5、选中区域中的文字，如A3:A10，单击菜单【加载项】\【添加批注】\【批量添加批注】，程序弹出“批注前缀”对话框，在文本框中输入“成绩：”，如图