مشكلة في مفتاح num lock

[ahmad5544]

السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء المشكلة عند طلب ماكرو معين يتم الضغط على مفتاح بشكل تلقائي  num lock
يعني بشكل اوضح عند الضغط على ctrl+m وهو اختصار الماكرو  يتم فصل لوحة num lock  
وعند الضغط مرة ثانية على ctrl+m  يتم تشغل num lock  

يوجد ماكرو استخدمه بشكل كثيف عند التوجه الى شيت رئيسية في ملف الاكسل وهو كالتالي 
Sub Macro1()
'
' Macro1 ماكرو
'
' مفتاح الاختصار: Ctrl+ة
'
    Range("I1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Application.SendKeys "^f", True
End Sub

ولكم جزيل الشكر على الاهتمام والمساعدة
 

[AbuuAhmed]

23 ساعات مضت, ahmad5544 said:

SendKeys "^f", True

أضف هذه الدالة إلى الوحدة النمطية (المديول):
 

Sub mySendKeys(String_ As String, Optional Wait As Boolean = False)
    Dim WshShell As Object
       
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys String_, Wait
    
    Set WshShell = Nothing
End Sub

ليصبح الأمر أعلاه كالتالي:
 

mySendKeys "^f", True

 

[ahmad5544]

حاولت اضافت الدالة للمديول لكن لم تنجح لاعرف هل انا لم اضيفها بالشكل الصحيح 

 

[AbuuAhmed]

جرب تنشئ موديول جديد ثم الصق الدالة به.
وإذا تقدر ترفع ملفك يستطيعون الزملاء مساعدتك بشكل سريع.

[lionheart]

What about 

    Application.SendKeys "^f"
    DoEvents
    SendKeys "{NUMLOCK}{NUMLOCK}"

 

تم تعديل ديسمبر 15, 2023 بواسطه lionheart