使用ActiveX命令按钮跨工作表写数据 如何将其设置为公有

ActiveX控件的点击事件默认绑定所在工作表的私有模块，无法直接将控件本身设置为公有，但可以通过逻辑抽离的方式解除私有控件的使用限制，操作方式如下：

方法1：抽离核心逻辑到公共模块（推荐） #

• 打开VBA编辑器（快捷键Alt+F11），在左侧工程资源管理器右键点击当前工作簿名称，选择「插入」→「模块」，新建全局标准模块。
• 将核心功能代码写入公共模块的公有过程中，同时修正原代码的语法、未声明变量问题：

' 标准模块中的公有过程，可被任意位置调用
Option Explicit
Public Sub FilterRangeNumbers()
    Dim X As Integer, Y As Integer, RuntimeLR As Long
    Dim I As Long, p As Long
    
    ' 明确指定取值的工作表，可替换为你的实际工作表名
    With Worksheets("按钮所在工作表名称")
        X = .Range("J2").Value
        Y = .Range("K2").Value
        RuntimeLR = .Cells(.Rows.Count, 4).End(xlUp).Row
    End With
    
    p = 0
    For I = 2 To RuntimeLR
        If I >= X And I <= Y Then
            Worksheets("Calculate Runtime").Cells(p + 1, 1) = I
            p = p + 1
        End If
    Next I
End Sub

• 修改原工作表中ActiveX按钮的点击事件，仅保留调用公共过程的代码：

Private Sub CommandButton1_Click()
    Call FilterRangeNumbers
End Sub

调整后所有功能逻辑都在公共模块，可在工作簿任意位置直接调用FilterRangeNumbers触发功能，不再受私有控件限制。

方法2：替换为表单控件按钮 #

如果不需要ActiveX控件的特殊属性，可以直接删除原有ActiveX按钮，插入「表单控件（窗体控件）」的按钮，创建时直接选择绑定公共模块的FilterRangeNumbers过程即可，无需编写工作表私有事件代码，通用性更强。

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