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

Bagaimana cara agar jendela excel selalu di atas?

Pernahkah Anda berharap agar jendela Excel Anda selalu di atas dan tidak tertutup oleh jendela lain? Sayangnya, Excel tidak menyediakan fitur untuk menyelesaikan tugas ini. Tapi, di sini, saya bisa memberi Anda kode VBA untuk menangani pekerjaan ini.

Jaga agar jendela Excel selalu di atas dengan kode VBA


panah gelembung kanan biru Jaga agar jendela Excel selalu di atas dengan kode VBA

Kode VBA berikut dapat membantu Anda menjaga jendela Excel selalu di atas, kode tersebut diterapkan ke office 32-bit dan office 64-bit.

1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Jendela Modul.

Kode VBA: Jaga agar jendela Excel selalu di atas

'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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan a Macro kotak dialog akan muncul, pilih SetXLOnTop opsi, dan klik Run .

doc-keep-excel-on-top-1

4. Dan kemudian jendela Excel Anda akan selalu berada di atas aplikasi lain.

Note: Jika Anda ingin mengembalikan jendela Excel ke normal, cukup tekan F5 kunci untuk membuka Macro dialog, pilih SetXNormal dan klik Run.


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (11)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih telah memberikan kode ini! Sangat membantu. Saya telah menggunakan kunci Judy sepuluh untuk fitur ini tetapi sekarang saya dapat menggunakan excel. Luarbiasa, terimakasih!!
Komentar ini diminimalkan oleh moderator di situs
Suka ini!! Kode yang bagus. Terima kasih! Saya seorang programmer pemula, saya hampir tidak tahu apa fungsinya. Di mana saya akan mengubah kode jika saya ingin jendela melompat ke ukuran tertentu, menyembunyikan pita, dan/atau melompat ke lembar atau rentang sel tertentu?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk bantuannya!!! Saya harus menggunakan ini sebagai solusi karena Anda tidak dapat membuka dua halaman kerja secara bersamaan. Terima kasih Anda membagikan kode Anda :)
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini. Sangat membantu saat mentranspos data dari beberapa sistem ke dalam spreadsheet. Hargai kodenya!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih.. Tuhan Memberkati..!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak untuk ini! Saya perlu menjaga lembar statistik sistem otomatis saya setiap saat sementara saya melakukan hal-hal lain berdasarkan apa yang ditunjukkannya kepada saya. Sangat membantu! :D
Komentar ini diminimalkan oleh moderator di situs
Jenius mutlak. Persis apa yang saya butuhkan. Terima kasih!!!
Komentar ini diminimalkan oleh moderator di situs
Halo

Tampaknya xHwnd didefinisikan untuk menyimpan Application.hWnd sebelum memanggil SetWindowPos seperti di bawah ini:

xHwnd = Aplikasi.hWnd
Panggil SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Atau SWP_NOMOVE)

Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Apakah kode ini harus diterapkan ke setiap file excel secara terpisah atau dapatkah makro disimpan di dalam excel untuk diaktifkan/dinonaktifkan setiap kali buku kerja Excel baru dibuka?
Komentar ini diminimalkan oleh moderator di situs
luar biasa!!!!!!
Komentar ini diminimalkan oleh moderator di situs
luar biasa!!!!!!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL