Board logo

標題: [發問] 關於Workbook_Open會不當觸發Num Lock使其關閉？ [打印本頁]
作者: av8d    時間: 2014-9-4 08:48     標題: 關於Workbook_Open會不當觸發Num Lock使其關閉？

  1. Private Sub Workbook_Open()
  2.     On Error Resume Next
  3.     Application.SendKeys ("%{F11}") '按下 Alt+F11 鍵
  4.    
  5.     With Application
  6.         With .VBE.MainWindow
  7.             .WindowState = vbext_ws_Minimize
  8.             .Visible = False
  9.         End With
  10.     End With
  11. End Sub
複製代碼
以上自動執行後會讓Num Lock的燈關閉？
如何讓他不關閉Num Lock的燈，再次感謝。
作者: luhpro    時間: 2014-9-4 22:10

以上自動執行後會讓Num Lock的燈關閉？
如何讓他不關閉Num Lock的燈，再次感謝。
av8d 發表於 2014-9-4 08:48

我的PC 執行時不會關閉 Num Lock的燈 耶.

或者若你確定執行 Open 程序後 NumLock 燈一定會關閉,
那就在 Open 程序 的最底下再將它打開也是一個解決的方式 :
Application.SendKeys("{NUMLOCK}")

不過我還是覺得應該不是 Open 程序造成的,
你也可以手動按下 Alt + F11 複合鍵看看 NumLock 燈 是否會跟著關閉?
若是, 那可能是其他常駐軟體或系統的設定(試試停在BIOS設定畫面時是否會發生, 還沒進 Windows 系統前呢?)造成的,
亦或是跟別人借個鍵盤來試試看是否仍舊有此情形?
交叉比對測試一下應該能找到問題點.
作者: av8d    時間: 2014-9-10 11:15

回復 2# luhpro


    Application.SendKeys("{NUMLOCK}")
解決了我的問題，受益良多，回文晚了，真是抱歉！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)