Informasi migunani ing garis status

Ana sing seneng, nanging aku butuh bar status mung ing 2-3 kasus:

  • sawise nyaring, nampilake jumlah nilai sing isih ana sawise pilihan
  • nalika sawetara dipilih, nampilake jumlah, rata-rata, lan jumlah sel sing dipilih
  • ing cilik saka file abot, sampeyan bisa ndeleng kemajuan ing recalculating rumus ing buku.

Ora dadi luwih kanggo baris sing njupuk munggah meh kabeh jembaré layar lan macet ing kabeh wektu. Ayo dadi nyoba kanggo nggedhekake dhaftar andhap asor iki lan nambah sawetara fitur liyane migunani kanggo iku 🙂

Prinsip umum kanggo ngatur bar status

Ngatur garis status kanthi Visual Basic gampang banget. Kanggo nampilake teks, sampeyan bisa nggunakake makro sing prasaja:

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

Sawise mlaku, kita entuk:

Informasi migunani ing garis status

Kanggo mulihake status bar status asli, sampeyan butuh "anti-makro" sing padha:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Ing versi dhasar, sampeyan bisa ndeleng, kabeh iku prasaja banget. Saiki ayo nyoba ngembangake ide kasebut ...

Alamat kisaran sing dipilih ing garis status

 Ing pojok kiwa ndhuwur jendhela Excel ing garis rumus, sampeyan bisa tansah ndeleng alamat sel saiki. Nanging yen sawetara kabeh dipilih, sayangé, kita ora bakal weruh alamat pilihan ing kana - siji sel aktif sing padha ditampilake:

Informasi migunani ing garis status

Kanggo ngatasi masalah iki, sampeyan bisa nggunakake makro prasaja sing bakal nampilake alamat wilayah sing dipilih ing garis status. Kajaba iku, makro iki kudu diluncurake kanthi otomatis, kanthi owah-owahan pilihan ing sheet apa wae - kanggo iki kita bakal nyelehake ing panangan acara PilihanGanti buku kita.

Bukak Editor Visual Basic nggunakake tombol kanthi jeneng sing padha ing tab pangembang (Pengembang) utawa trabasan keyboard Ngiwa Alt + F11. Temokake buku sampeyan ing pojok kiwa ndhuwur panel Project lan bukak modul kasebut kanthi ngeklik kaping pindho Buku iki (Buku Kerja Iki):

Ing jendhela sing mbukak, salin lan tempel kode makro ing ngisor iki:

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

Saiki, yen sawetara sawetara dipilih (kalebu luwih saka siji!), alamate bakal ditampilake ing garis status:

Informasi migunani ing garis status

Kanggo nyegah alamat sawetara kisaran sing dipilih nganggo Ctrl saka gabung, sampeyan bisa nambah dandan cilik - gunakake fungsi Ganti kanggo ngganti koma karo koma kanthi spasi:

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

Jumlah sel sing dipilih ing garis status

Nalika sawetara kisaran dipilih, jumlah sel sing dipilih sing ora kosong bakal ditampilake ing sisih tengen garis status kanthi standar. Kadhangkala sampeyan kudu ngerti nomer sing diparengake. Tugas iki uga bisa ditindakake kanthi makro prasaja kanggo nangani acara buku SelectionChange, kaya ing conto sadurunge. Sampeyan butuh makro kaya:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Minangka Obyek, ByVal Target Minangka Range) Dim CellCount Minangka Varian, rng Minangka Range Kanggo Saben rng Ing Selection.Areas 'Iterate liwat kabeh pilihan RowsCount = rng.Rows.Count 'jumlah baris ColumnsCount = rng.Columns . Cacah 'jumlah kolom CellCount = CellCount + RowsCount * ColumnsCount 'nglumpukake jumlah total sel Sabanjure 'tampilan ing baris status Application.StatusBar = "Dipilih: " & CellCount & " sel" End Sub

Daur ulang makro iki liwat kabeh wilayah sing dipilih Ctrl (yen ana luwih saka siji), nyimpen jumlah larik lan kolom ing saben wilayah ing variabel RowsCount lan ColumnsCount, lan nglumpukake jumlah sel ing variabel CellCount, sing banjur ditampilake. ing garis status. Ing karya bakal katon kaya iki:

Informasi migunani ing garis status

Mesthi, sampeyan bisa gabungke iki lan makro sadurunge kanggo nampilake alamat kisaran sing dipilih lan jumlah sel ing wektu sing padha. Sampeyan mung kudu ngganti siji baris penultimate dadi:

Application.StatusBar = "Dipilih: " & Ganti(Selection.Alamat(0, 0), ",", ", ") & " - total " & CellCount & " sel"

Banjur gambar bakal apik banget:

Informasi migunani ing garis status

Inggih, aku mikir sampeyan entuk ide. Saran ing komentar - apa maneh sing migunani kanggo ditampilake ing garis status?

  • Apa macro, cara kerjane, carane nggunakake lan nggawe
  • Pilihan koordinat sing trep ing lembar Excel
  • Carane nggawe rumus Komplek luwih visual

Ninggalake a Reply