Excel penceresi her zaman en üstte nasıl tutulur?
Hiç Excel pencerelerinizin her zaman üstte kalmasını ve diğer pencerelerle kapatılmamasını dilediniz mi? Ne yazık ki, Excel bu görevi çözmek için bir özellik sağlamaz. Ama burada, bu işle başa çıkmanız için size bir VBA kodu verebilirim.
VBA kodu ile Excel penceresini her zaman üstte tutun
VBA kodu ile Excel penceresini her zaman üstte tutun
Aşağıdaki VBA kodu, Excel penceresini her zaman üstte tutmanıza yardımcı olabilir, kod hem ofis 32 bit hem de ofis 64 bit için uygulanır.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Excel penceresini her zaman üstte tutun
'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. Daha sonra tuşuna basın. F5 bu kodu çalıştırmak için anahtar ve bir Makrolar iletişim kutusu görünecek, seçin SetXLOnTop seçeneğini işaretleyin ve tıklayın. koşmak düğmesine basın.
4. Ve sonra Excel pencereniz her zaman diğer uygulamaların üstünde olacaktır.
not: Excel penceresini normale döndürmek istiyorsanız, sadece F5 tuşuna basarak Makrolar diyalog seç Setxnormal ve tıklayın koşmak.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!