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

بواسطه AbuuAhmed
نوفمبر 1 في منتدى الاكسيل Excel

https://www.officena.net/ib/topic/136152-%D8%AA%D9%86%D8%B8%D9%8A%D9%81-%D9%86%D8%A7%D9%81%D8%B0%D8%A9-%D8%A3%D9%88%D8%A7%D9%85%D8%B1-%D8%A7%D9%84%D9%80-vba-%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%8A%D8%A9/

متابعين 0

اضف رد علي هذا الموضوع
أضف موضوع جديد

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

AbuuAhmed

قام بنشر نوفمبر 1

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

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