Informasi yang berguna di bilah status

Seseorang suka, tetapi saya pribadi membutuhkan bilah status hanya dalam 2-3 kasus:

  • setelah penyaringan, ini akan menampilkan jumlah nilai yang tersisa setelah pemilihan
  • ketika rentang dipilih, ini menampilkan jumlah, rata-rata, dan jumlah sel yang dipilih
  • dalam kasus file berat, Anda dapat melihat kemajuan dalam menghitung ulang rumus dalam buku.

Tidak terlalu banyak untuk garis yang menghabiskan hampir seluruh lebar layar dan selalu menggantung di atasnya. Mari kita coba untuk memperluas daftar sederhana ini dan menambahkan beberapa fitur yang lebih berguna ke dalamnya

Prinsip umum untuk mengelola bilah status

Mengelola bilah status dengan Visual Basic sangat mudah. Untuk menampilkan teks Anda di dalamnya, Anda dapat menggunakan makro sederhana:

Sub MyStatus() Application.StatusBar = "Привет!" Akhir Sub

Setelah menjalankannya, kita mendapatkan:

Informasi yang berguna di bilah status

Untuk mengembalikan status bilah status asli, Anda memerlukan "anti-makro" pendek yang sama:

Sub MyStatus_Off() Aplikasi.StatusBar = Salah End Sub

Dalam versi dasar, seperti yang Anda lihat, semuanya sangat sederhana. Sekarang mari kita coba mengembangkan ide…

Alamat rentang yang dipilih di bilah status

 Di sudut kiri atas jendela Excel di bilah rumus, Anda selalu dapat melihat alamat sel saat ini. Tetapi jika seluruh rentang dipilih, sayangnya, kami tidak akan melihat alamat pemilihan di sana – satu sel aktif yang sama ditampilkan:

Informasi yang berguna di bilah status

Untuk mengatasi masalah ini, Anda dapat menggunakan makro sederhana yang akan menampilkan alamat area yang dipilih di bilah status. Selain itu, makro ini harus diluncurkan secara otomatis, dengan perubahan apa pun dalam pemilihan pada lembar apa pun - untuk ini kami akan menempatkannya di pengendali acara PilihanUbah buku kita.

Buka Editor Visual Basic menggunakan tombol dengan nama yang sama pada tab pembangun (Pengembang) atau pintasan keyboard Alt Kiri+F11. Temukan buku Anda di sudut kiri atas panel Proyek dan buka modul di dalamnya dengan mengklik dua kali Buku ini (Buku Kerja Ini):

Di jendela yang terbuka, salin dan tempel kode makro berikut:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Sekarang, ketika rentang apa pun dipilih (termasuk lebih dari satu!), alamatnya akan ditampilkan di bilah status:

Informasi yang berguna di bilah status

Untuk mencegah penggabungan alamat beberapa rentang yang dipilih dengan Ctrl, Anda dapat menambahkan sedikit peningkatan – gunakan fungsi Ganti untuk mengganti koma dengan koma dengan spasi:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub

Jumlah sel yang dipilih di bilah status

Saat rentang apa pun dipilih, jumlah sel terpilih yang tidak kosong ditampilkan di sisi kanan bilah status secara default. Terkadang Anda perlu mengetahui jumlah yang dialokasikan. Tugas ini juga dapat diselesaikan dengan makro sederhana untuk menangani acara buku SelectionChange, seperti pada contoh sebelumnya. Anda akan membutuhkan makro seperti:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount Sebagai Varian, rng As Range Untuk Setiap rng Dalam Selection.Areas 'Iterate melalui semua pilihan RowsCount = rng.Rows.Count 'number of rows ColumnsCount = rng.Columns . Hitung 'jumlah kolom CellCount = CellCount + RowsCount * ColumnsCount' mengumpulkan jumlah total sel Berikutnya 'tampilan di status bar Application.StatusBar = "Dipilih: " & CellCount & " sel" End Sub

Makro ini mengulang semua area yang dipilih Ctrl (jika ada lebih dari satu), menyimpan jumlah baris dan kolom di setiap area dalam variabel RowsCount dan ColumnsCount, dan mengakumulasi jumlah sel dalam variabel CellCount, yang kemudian ditampilkan di bilah status. Di tempat kerja akan terlihat seperti ini:

Informasi yang berguna di bilah status

Tentu saja, Anda dapat menggabungkan makro ini dan makro sebelumnya untuk menampilkan alamat rentang yang dipilih dan jumlah sel secara bersamaan. Anda hanya perlu mengubah satu baris kedua dari belakang menjadi:

Application.StatusBar = "Dipilih: " & Ganti(Selection.Address(0, 0), ",", ", ") & " - total " & Jumlah Sel & " sel"

Maka gambarnya akan sangat indah:

Informasi yang berguna di bilah status

Yah, saya pikir Anda mendapatkan ide. Sarankan di komentar – apa lagi yang berguna untuk ditampilkan di bilah status?

  • Apa itu makro, cara kerjanya, cara menggunakan dan membuatnya
  • Pilihan koordinat yang nyaman pada lembar Excel
  • Cara membuat rumus kompleks lebih visual

Tinggalkan Balasan