在worksheet_calculate中向textbox模拟发送回车键

露露德

在使用以下代码的过程中提示   编译错误：类型不匹配

请大神指导。

想完成的效果是 在公式计算以后自动的将textbox1里的内容清除。

1. Private Sub textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. With textbox1
   
3. .Value = ""
   
4. End With
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Calculate()
   
8. Call textbox1_KeyDown(13)
   
9. End Sub

复制代码

xjl565135022

干什么要多此一举呀，直接在 Worksheet_Calculate 里面清空textbox1的内容就行了呀

xjl565135022

1. Private Sub Worksheet_Calculate()
   
2. 窗体名称.textbox1.value=""
   
3. End Sub

复制代码

露露德

xjl565135022 发表于 2024-10-29 09:42

因为textbox里回车键的内容被我简化了，除了清空textbox内容外还附加了计算内容等。我是有想过直接在calculate里复制那段代码。不过在那之前我在尝试有没有办法向textbox里发送模拟的回车键，试了几天都失败了。

lss001

露露德 发表于 2024-10-29 10:09
因为textbox里回车键的内容被我简化了，除了清空textbox内容外还附加了计算内容等。我是有想过直接在calc ...

'以下代码仅供参考**********
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode Is Nothing Then
    With TextBox1
        .Value = ""
    End With
    End If
End Sub

Private Sub Worksheet_Calculate()
    Set myKey = Nothing
    Call TextBox1_KeyDown(myKey, 0)
End Sub