اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تنظيف نافذة أوامر الـ 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