Note: The other languages of the website are Google-translated. Back to English

كيف تحافظ على نافذة Excel دائمًا في المقدمة؟

هل سبق لك أن رغبت في إبقاء نوافذ Excel دائمًا في المقدمة وعدم تغطيتها بنوافذ أخرى؟ لسوء الحظ ، لا يوفر Excel ميزة لحل هذه المهمة. لكن ، هنا ، يمكنني أن أعطيك رمز VBA للتعامل مع هذه الوظيفة.

حافظ على نافذة Excel دائمًا في المقدمة باستخدام رمز VBA


السهم الأزرق الحق فقاعة حافظ على نافذة Excel دائمًا في المقدمة باستخدام رمز VBA

يمكن أن يساعدك رمز VBA التالي في الحفاظ على نافذة Excel دائمًا في المقدمة ، ويتم تطبيق الكود على كل من Office 32 بت و Office 64 بت.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز فبا: حافظ على نافذة Excel دائمًا في المقدمة

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal hwndInsertAfter As LongPtr, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#Else
    Public Declare Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal hwndInsertAfter As Long, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، و وحدات الماكرو سيظهر مربع الحوار ، حدد SetXLOnTop الخيار، وانقر يجري .

doc-keep-excel-on-top-1

4. وبعد ذلك ستكون نافذة Excel دائمًا في مقدمة التطبيقات الأخرى.

ملاحظة: إذا كنت تريد إعادة نافذة Excel إلى وضعها الطبيعي ، فما عليك سوى الضغط على F5 مفتاح لفتح وحدات الماكرو الحوار، اختر SetX عادي ثم انقر يجري.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقديم هذا الرمز! مفيدة جدا. لقد كنت أستخدم مفتاح جودي عشرة لهذه الميزة ولكن يمكنني الآن استخدام برنامج Excel. رائع شكرا لك!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احب هذا!! كود رائع. شكرًا! أنا مبرمج مبتدئ ، بالكاد أعرف ما يفعله. أين يمكنني تغيير الكود إذا أردت أن تنتقل النافذة إلى حجم معين ، وإخفاء الشريط ، و / أو الانتقال إلى ورقة أو نطاق خلية معين؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا للمساعدة!!! اضطررت إلى استخدام هذا كحل بديل لأنه لا يمكنك فتح صفحتي عمل في نفس الوقت. أقدر لك مشاركة الرمز الخاص بك :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا. مفيد جدًا عند نقل البيانات من أنظمة متعددة إلى ورقة انتشار. نقدر الرمز!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا .. بارك الله فيكم ..!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على هذا! كنت بحاجة إلى الاحتفاظ بإحصائيات نظامي الآلي في جميع الأوقات بينما كنت أفعل أشياء أخرى بناءً على ما كان يعرضه لي. مفيد جدا! :د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عبقرية مطلقة. بالضبط ما احتاجه. شكرًا!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا

يبدو أن xHwnd تم تعريفه لتخزين Application.hWnd قبل استدعاء SetWindowPos على النحو التالي:

xHwnd = Application.hWnd
استدعاء SetWindowPos (xHwnd، xStype، 0، 0، 0، 0، SWP_NOSIZE أو SWP_NOMOVE)

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يجب تطبيق هذا الرمز على كل ملف Excel على حدة أم يمكن حفظ الماكرو داخل Excel ليتم تشغيله / إيقاف تشغيله عند فتح مصنف Excel جديد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش!!!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش!!!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا كان العثور على هذا لسنوات.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL