基本的Excel VBA关闭数字锁定，我不知道为什么[重复]

egdjgwm8 于 2023-03-24 发布在其他

关注(0)|答案(1)|浏览(146)

此问题在此处已有答案：

Send Keys is Disabling NumLock（2个答案）
昨天关门了。
这是我经常使用的代码，从存储在PERSONAL.XLSB中的按钮（表单控件）中触发，因此在这台PC上普遍可用。

Sub Today()

    Dim Today As Date
    
    Today = Date
    
    ActiveCell.Value = Today
    
    Application.SendKeys "{TAB}"
    
End Sub

使用该按钮后，立即关闭数字锁。

excel

来源：https://stackoverflow.com/questions/75809893/basic-excel-vba-turns-number-lock-off-ive-no-idea-why

1条答案

按热度按时间

kh212irz1#

这是一个已知的问题。你可以尝试使用shell的SendKeys来代替：

Sub Today()

    Dim Today As Date
    
    Today = Date
    
    ActiveCell.Value = Today

    Dim WshShell As Object            
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{TAB}", True
    
End Sub

然而，正如FunThomas在评论中指出的那样，有更好的方法来操纵“光标”。

赞(0）回复(0）举报 2023-03-24

我来回答

基本的Excel VBA关闭数字锁定，我不知道为什么[重复]

1条答案

相关问题

热门标签

最新问答