Inpo mangpaat dina bar status

Aya anu resep, tapi kuring pribadi peryogi bar status ngan dina 2-3 kasus:

  • saatos nyaring, éta mintonkeun jumlah nilai sésana sanggeus pilihan
  • lamun rentang dipilih, eta mintonkeun jumlah, rata, jeung jumlah sél dipilih
  • dina kasus file beurat, anjeun tiasa ningali kamajuan dina recalculating rumus dina buku.

Teu jadi loba pikeun garis nu nyokot nepi ampir sakabéh rubak layar tur hangs on eta sadaya waktu. Hayu urang cobaan dilegakeun daptar sederhana ieu sareng tambahkeun sababaraha fitur anu langkung mangpaat pikeun éta 🙂

Prinsip umum pikeun ngatur bar status

Ngatur bar status sareng Visual Basic gampang pisan. Pikeun nampilkeun téks anjeun di jerona, anjeun tiasa nganggo makro saderhana:

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

Sanggeus ngajalankeun éta, urang meunang:

Inpo mangpaat dina bar status

Pikeun mulangkeun kaayaan asli bar status, anjeun peryogi "anti makro" pondok anu sami:

Sub MyStatus_Off () Application.StatusBar = Palsu Tungtung Sub

Dina versi dasar, anjeun tiasa ningali, sagalana basajan pisan. Ayeuna hayu urang nyobian ngembangkeun ideu…

Alamat rentang nu dipilih dina bar status

 Di belah kénca juru luhur jandela Excel dina bar rumus, anjeun salawasna bisa ningali alamat sél ayeuna. Tapi lamun sakabeh rentang dipilih, mangka, hanjakalna, urang moal ningali alamat pilihan aya - sarua hiji sél aktif tunggal dipintonkeun:

Inpo mangpaat dina bar status

Pikeun ngabéréskeun masalah ieu, anjeun tiasa nganggo makro saderhana anu bakal nunjukkeun alamat daérah anu dipilih dina bar status. Sumawona, makro ieu kedah diluncurkeun sacara otomatis, kalayan sagala parobihan dina pilihan dina lambar naon waé - pikeun ieu kami bakal nempatkeun éta dina panangan acara. Robah Pilihan buku urang.

Buka Éditor Visual Basic nganggo tombol nami anu sami dina tab pamekar (Pamekar) atawa potong kompas keyboard Kénca Alt + F11. Milarian buku anjeun di belah kénca juru luhur panel Project sareng buka modul di jerona ku ngaklik dua kali buku (Buku Karya ieu):

Dina jandéla anu muka, salin sareng témpél kode makro ieu:

Wasta Sub Workbook_SheetSelectionChange(ByVal Sh Salaku Objék, ByVal Target Salaku Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Ayeuna, nalika sagala rentang dipilih (kaasup leuwih ti hiji!), alamatna bakal dipintonkeun dina bar status:

Inpo mangpaat dina bar status

Pikeun nyegah alamat sababaraha rentang anu dipilih sareng Ctrl tina ngahiji, anjeun tiasa nambihan sakedik perbaikan - nganggo fungsi Ganti pikeun ngagentos koma ku koma sareng spasi:

Wasta Sub Workbook_SheetSelectionChange(ByVal Sh Salaku Objék, ByVal Target Salaku Range) Application.StatusBar = "Выделено: " & Ganti(Selection.Alamat(0, 0), ",", ", ") End Sub

Jumlah sél nu dipilih dina bar status

Lamun rentang mana wae dipilih, jumlah sél dipilih non-kosong dipintonkeun dina sisi katuhu bar status sacara standar. Kadang-kadang nu peryogi kauninga jumlah allocated. tugas ieu ogé bisa dilakonan ku makro basajan pikeun nanganan acara buku SelectionChange, sakumaha dina conto saméméhna. Anjeun peryogi makro sapertos:

Swasta Sub Workbook_SheetSelectionChange(ByVal Sh Salaku Objék, ByVal Target Salaku Range) Taram CellCount Salaku Varian, rng Salaku Rentang Pikeun Unggal rng Dina Selection.Areas 'Iterate ngaliwatan sagala selections RowsCount = rng.Rows.Count 'jumlah baris ColumnsCount = rng.Columns . Itung 'jumlah kolom CellCount = CellCount + RowsCount * ColumnsCount 'akumulasi jumlah total sél salajengna 'display dina bar status Application.StatusBar = "Dipilih: " & CellCount & " sél "Tungtung Sub

Makro ieu ngagulung ka sadaya daérah anu dipilih Ctrl (upami aya langkung ti hiji), nyimpen jumlah baris sareng kolom dina unggal daérah dina variabel RowsCount sareng ColumnsCount, sareng ngumpulkeun jumlah sél dina variabel CellCount, anu teras ditampilkeun. dina bar status. Di tempat gawé bakal kasampak kawas kieu:

Inpo mangpaat dina bar status

Tangtosna, anjeun tiasa ngagabungkeun ieu sareng makro sateuacana pikeun nampilkeun alamat kisaran anu dipilih sareng jumlah sél dina waktos anu sami. Anjeun ngan ukur kedah ngarobih hiji garis penultimate ka:

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

Lajeng gambar bakal rada éndah:

Inpo mangpaat dina bar status

Muhun, Jigana anjeun meunang ide. Nyarankeun dina koméntar - naon deui anu mangpaat pikeun dipidangkeun dina bar status?

  • Naon macros, kumaha gawéna, kumaha carana make jeung nyieun eta
  • Pilihan koordinat merenah dina lambaran Excel
  • Kumaha carana ngadamel rumus kompleks langkung visual

Leave a Reply