اذهب الي المحتوي
أوفيسنا

تنظيف نافذة أوامر الـ vba الفورية


AbuuAhmed

الردود الموصى بها

هدية مني لكم
هذا كود يختصر الوقت لمستخدمي النافذة الفورية حيث يمسح كامل النصوص/المخرجات السابقة قبل أي إرسال نصوص أو مخرجات جديدة
جربوه وزودونا بأي مشاكل تواجهونها للتعديل عليه.
 

Sub DebugClear()
  'AbuuAhmed 2024/11/01
  Dim WshShell As Object
       
  Set WshShell = CreateObject("WScript.Shell")
  With WshShell
    .SendKeys "^g", True
    .SendKeys "^a", True
    .SendKeys "{DEL}", True
  End With
  
  Set WshShell = Nothing
End Sub


 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information