调用 KeyUp 事件

Question

我继承了一个相当深入和复杂的 Excel 工作簿，我的任务是添加到该工作簿上。

该工作簿旨在让用户在第一张纸上的文本框中输入信息，然后按 Enter 会触发 keyup 事件。

我很好奇是否有办法从另一张纸上的按钮事件中调用该例程？

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

我想避免发送密钥，因为它根本不可靠，具体取决于重点。尤其是回车键。

我试过了：

txtbx_length_KeyUp

和

call txtbx_length_KeyUp

但两者都给出错误提示“未定义子或函数”

我很好奇是否有办法从另一张纸上的按钮事件中调用该例程？

Answer 1

只是为了看看它是否/如何工作，请尝试下一个方法：

1. KeyCode 不是 Integer，就像看起来一样。它是一个对象/类！具有由键盘传递的单个 (value) 属性。因此，如果您能够使用/创建必要的参数，则可以从另一个 Sub 调用事件。请复制下一个声明标准模块：

     Public ReturnIntegerObj As MSForms.ReturnInteger
   

   2. 在现有事件代码中添加一个新行，就像你拥有它一样：

   Public Sub txtbx_length_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       If ReturnIntegerObj Is Nothing Then Set ReturnIntegerObj = KeyCode 'the necessary line, to set the necessary objec (to be used when calling the event)
       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
   

   3. 在任何代码模块中复制下一个能够调用上述事件的代码：

   Private Sub callKeyUpEvent()
       ReturnIntegerObj.Value = vbKeyReturn 'Enter key. It may be any key code...
       Call Worksheets("Report").txtbx_length_KeyUp(ReturnIntegerObj, 8)
   End Sub
   

   现在，在txtbx_length 文本框中写入任何内容，以设置必要的ReturnIntegerObj 对象。

   然后，运行callKeyUpEvent 过程来调用事件。

   注意：由于ReturnIntegerObj 变量是易失性的（仅存在于Excel 内存中），因此在出现错误后代码中断的情况下它可能会消失。因此，可能需要一些检查和重新设置对象变量的方法。即使不是那么简单，也需要在相应的文本框中进行真正的按键操作。也许，这样的模拟可能是可能的，但它不会成为问题的对象，我会说:)