كيف تحافظ على نافذة 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 الخيار، وانقر يجري .
4. وبعد ذلك ستكون نافذة Excel دائمًا في مقدمة التطبيقات الأخرى.
ملاحظات: إذا كنت تريد إعادة نافذة Excel إلى وضعها الطبيعي ، فما عليك سوى الضغط على F5 مفتاح لفتح وحدات الماكرو الحوار، اختر SetX عادي ثم انقر يجري.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!