Bagaimana cara menampilkan/menyembunyikan bilah status menggunakan vba?

Di VBA, terdapat properti “Status Bar” yang dapat membantu Anda menampilkan nilai di status bar dan ada juga “DisplayStatusBar” untuk menyembunyikan dan menampilkan status jendela Excel. Saat menggunakan properti ini, Anda harus mengatur ulang bilah status sampai akhir, jika tidak, pesan atau pengaturan terakhir akan tetap ada.

Dalam tutorial kita akan melihat beberapa contoh yang bisa kita gunakan saat bekerja di Excel.

Tampilkan nilai di bilah status

Seperti yang saya katakan, Anda dapat menggunakan properti StatusBar untuk menampilkan nilai di bilah status. Pada kode di bawah ini, Anda telah menggunakan nilai “Halo” untuk ditambahkan ke bilah status.

1. Gunakan kata kunci “Aplikasi” untuk merujuk pada aplikasi Excel.
2. Ketikkan titik untuk mendapatkan daftar properti dan metode.
3. Pilih properti “StatusBar”.
4. Pada akhirnya, gunakan tanda sama dengan untuk menentukan nilai yang ingin Anda tampilkan di bilah status.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

Sembunyikan bilah status menggunakan VBA

Sekarang anggaplah jika Anda ingin menyembunyikan bilah status, Anda dapat menggunakan DisplayStatusBar dan menentukan properti ini ke “False” ( pertimbangkan kode berikut ).

1. Gunakan kata kunci “Aplikasi” untuk merujuk pada aplikasi Excel.
2. Ketikkan titik untuk mendapatkan daftar properti dan metode.
3. Pilih properti “DisplayStatusBar”.
4. Pada akhirnya, gunakan tanda sama dengan untuk menentukan “False”.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Perbarui kemajuan di bilah status

Eksekusi kode selanjutnya menampilkan penghitung kemajuan pada bilah status menggunakan angka dari 1 hingga 100, yang dapat Anda ubah sesuai kebutuhan.

 Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub

Poin penting untuk diingat

1. Anda perlu menggunakan “aplikasi” dengan properti bilah status untuk menggunakannya.
2. Setelah Anda melihat pesan tentang status, Anda perlu menghapus pesan itu.