Excel VBA缺失过程错误修复及多点击宏功能实现求助

错误根源 #

你当前的Number3过程带有Target As Range参数，这种带参数的过程无法直接绑定到按钮触发——按钮调用的宏必须是无参数的，这就是“缺失过程”错误的直接原因。同时原代码逻辑仅监听G15单元格点击，和你“点击按钮后复制参考单元格值到后续点击单元格”的需求不匹配。

一、修复错误并实现基础功能 #

需将代码拆分为按钮触发的无参数宏和工作表选择事件，配合模块级变量控制填充状态，以下是完整实现：

步骤1：添加标准模块代码 #

按Alt+F11打开VBA编辑器，右键点击工程窗口→插入→模块，粘贴以下代码：

' 模块级变量：控制填充状态、参考值、剩余点击次数
Dim isFillActive As Boolean
Dim referenceValue As Variant
Dim remainingClicks As Integer

' 绑定到按钮：启动填充模式
Sub ActivateFillMode()
    ' 指定参考单元格（可根据需求修改为其他单元格）
    referenceValue = Range("G15").Value
    ' 初始化最多10次点击额度
    remainingClicks = 10
    ' 开启填充状态
    isFillActive = True
    MsgBox "填充模式已启动，剩余可点击单元格次数：10"
End Sub

' 绑定到按钮：手动退出填充模式
Sub DeactivateFillMode()
    isFillActive = False
    MsgBox "已退出填充模式"
End Sub

步骤2：添加工作表事件代码 #

双击工程窗口中的目标工作表（如Sheet1），粘贴以下代码：

' 监听单元格选择事件，处理填充逻辑
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅在填充模式激活且选中单个单元格时执行
    If isFillActive And Target.Count = 1 Then
        ' 判断是否还有剩余点击次数
        If remainingClicks > 0 Then
            Target.Value = referenceValue
            remainingClicks = remainingClicks - 1
            MsgBox "已填充，剩余可点击次数：" & remainingClicks
        Else
            ' 次数用尽，自动关闭填充模式
            isFillActive = False
            MsgBox "已达到10次点击上限，自动退出填充模式"
        End If
    End If
End Sub

二、扩展功能说明 #

• 通过模块级变量remainingClicks控制最多10次点击，每次填充后递减计数，归零后自动关闭填充模式。
• 保留手动退出按钮，方便中途终止操作。

使用方法 #

1. 返回Excel界面，点击「开发工具」→「插入」→「表单控件按钮」，添加两个按钮，分别绑定ActivateFillMode和DeactivateFillMode宏。
2. 在G15单元格输入1-99之间的数字，点击“启动填充”按钮，随后依次点击需要填充的单元格即可。

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