如何从其他工作表按钮事件调用Excel文本框KeyUp事件子程序？

我接手了一个结构复杂的Excel工作簿，需要对其进行扩展。该工作簿的设计逻辑是：用户在第一个工作表的文本框中输入信息，按下回车键会触发KeyUp事件，执行对应的处理子程序txtbx_length_KeyUp。

我希望从其他工作表的按钮事件中直接调用该子程序，但不想使用不可靠的SendKeys（回车键的焦点问题极易出bug）。尝试直接调用txtbx_length_KeyUp或Call txtbx_length_KeyUp均报错“sub or function not defined”，特此寻求可行的实现方法。

对应子程序代码如下：

Public Sub txtbx_length_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
         Case Asc(vbCr), Asc(vbLf), Asc(vbCrLf):
             Application.Calculation = xlCalculateManual
             process_length_val Me.txtbx_length.Value
             Me.txtbx_length.Value = ""
             Me.txtbx_length.Activate
             Application.Calculation = xlCalculationAutomatic
        Case Asc("E"):     ' , Asc("e"):
        ' In tests, regardless if I had the shift key pressed or caps lock,
        ' or nothing, I always seen "E" come across -- never "e".  
            Application.Calculation = xlCalculateManual
            process_length_val Me.txtbx_length.Value
            Me.txtbx_length.Value = ""
            Me.txtbx_length.Activate
            Application.Calculation = xlCalculationAutomatic
 End Select

方法1：重构逻辑（推荐） #

把事件中的核心处理代码提取为独立的公共子程序，彻底摆脱对事件参数的依赖，同时让代码更易维护。

1. 提取公共处理函数
   在第一个工作表的代码模块（或新建标准模块）中添加公共子程序：

Public Sub ProcessLengthInput()
    Application.Calculation = xlCalculateManual
    process_length_val Me.txtbx_length.Value
    Me.txtbx_length.Value = ""
    Me.txtbx_length.Activate
    Application.Calculation = xlCalculationAutomatic
End Sub

若放在标准模块中，需将Me.txtbx_length改为具体工作表引用，比如Sheet1.txtbx_length（Sheet1是第一个工作表的代码名，不是显示名称）。

2. 修改原事件子程序
   将原事件代码简化为调用公共函数，同时把Public改为Private（事件子程序无需对外暴露）：

Private Sub txtbx_length_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
         Case Asc(vbCr), Asc(vbLf), Asc(vbCrLf), Asc("E"):
             ProcessLengthInput
    End Select
End Sub

3. 其他工作表按钮调用
   若公共函数在第一个工作表模块中，调用方式为：

Private Sub CommandButton1_Click()
    Sheet1.ProcessLengthInput  ' 替换为实际的工作表代码名
End Sub

若公共函数在标准模块中，直接调用ProcessLengthInput即可。

方法2：直接调用事件子程序（应急用） #

若暂时不想重构代码，可通过指定工作表对象并传递正确参数的方式调用事件子程序：

1. 调用代码示例

Private Sub CommandButton1_Click()
    Dim keyCode As MSForms.ReturnInteger
    Set keyCode = New MSForms.ReturnInteger
    keyCode.Value = Asc(vbCr)  ' 模拟回车键的KeyCode
    
    Sheet1.txtbx_length_KeyUp keyCode, 0  ' 0表示Shift键未按下，Sheet1替换为实际工作表代码名
End Sub

2. 注意事项

• 需确保已引用Microsoft Forms 2.0 Object Library（路径：工具→引用→勾选对应选项）；
• 这种方式依赖事件的参数逻辑，后续事件代码修改时，调用方需同步调整，维护成本较高。

关键说明 #

你之前报错的核心原因是：工作表模块中的公共子程序，外部调用必须指定工作表代码名（而非显示名称），否则Excel无法定位到该子程序。

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