एक्सेल विंडो को हमेशा शीर्ष पर कैसे रखें?
क्या आपने कभी सोचा है कि आपकी एक्सेल विंडो हमेशा ऊपर रहें और अन्य विंडो से ढकी न रहें? दुर्भाग्य से, एक्सेल इस कार्य को हल करने के लिए कोई सुविधा प्रदान नहीं करता है। लेकिन, यहां, मैं आपको इस काम से निपटने के लिए एक वीबीए कोड दे सकता हूं।
वीबीए कोड के साथ एक्सेल विंडो को हमेशा शीर्ष पर रखें
वीबीए कोड के साथ एक्सेल विंडो को हमेशा शीर्ष पर रखें
निम्नलिखित वीबीए कोड आपको एक्सेल विंडो को हमेशा शीर्ष पर रखने में मदद कर सकता है, यह कोड ऑफिस 32-बिट और ऑफिस 64-बिट दोनों पर लागू होता है।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: एक्सेल विंडो को हमेशा शीर्ष पर रखें
'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 इस कोड को चलाने के लिए कुंजी, और a मैक्रोज़ डायलॉग बॉक्स दिखाई देगा, चुनें सेटएक्सएलऑनटॉप विकल्प, और क्लिक करें रन बटन.
4. और फिर आपकी एक्सेल विंडो हमेशा अन्य एप्लिकेशन के शीर्ष पर रहेगी।
नोट: यदि आप एक्सेल विंडो को सामान्य स्थिति में वापस लाना चाहते हैं, तो बस दबाएँ F5 कुंजी को खोलने के लिए मैक्रोज़ संवाद, चुनें सेटएक्सनॉर्मल और क्लिक करें रन.
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!