Holat panelidagi foydali ma'lumotlar

Kimdir yoqadi, lekin shaxsan menga status paneli faqat 2-3 holatda kerak:

  • filtrlashdan so'ng, u tanlovdan keyin qolgan qiymatlar sonini ko'rsatadi
  • diapazon tanlanganda, u tanlangan katakchalar yig'indisi, o'rtacha va sonini ko'rsatadi
  • og'ir fayllar bo'lsa, kitobdagi formulalarni qayta hisoblashdagi taraqqiyotni ko'rishingiz mumkin.

Ekranning deyarli butun kengligini egallagan va doimo unga osilgan chiziq uchun unchalik ko'p emas. Keling, ushbu oddiy ro'yxatni kengaytirishga harakat qilaylik va unga yana bir nechta foydali xususiyatlarni qo'shamiz 🙂

Holat panelini boshqarishning umumiy tamoyillari

Visual Basic yordamida holat panelini boshqarish juda oson. Undagi matnni ko'rsatish uchun siz oddiy makrosdan foydalanishingiz mumkin:

Sub MyStatus() Application.StatusBar = "Privet!" End Sub

Uni ishga tushirgandan so'ng biz quyidagilarni olamiz:

Holat panelidagi foydali ma'lumotlar

Holat satrining asl holatini tiklash uchun sizga bir xil qisqa "anti-makros" kerak bo'ladi:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Asosiy versiyada, siz ko'rib turganingizdek, hamma narsa juda oddiy. Endi g'oyani rivojlantirishga harakat qilaylik ...

Holat satrida tanlangan diapazonning manzili

 Formulalar panelidagi Excel oynasining yuqori chap burchagida siz har doim joriy katakning manzilini ko'rishingiz mumkin. Ammo, agar butun diapazon tanlangan bo'lsa, unda, afsuski, biz u erda tanlov manzilini ko'ra olmaymiz - xuddi shu bitta faol hujayra ko'rsatiladi:

Holat panelidagi foydali ma'lumotlar

Ushbu muammoni hal qilish uchun siz holat satrida tanlangan maydonning manzilini ko'rsatadigan oddiy makrosdan foydalanishingiz mumkin. Bundan tashqari, ushbu makro avtomatik ravishda ishga tushirilishi kerak, har qanday varaqdagi tanlovdagi har qanday o'zgarish - buning uchun biz uni voqea ishlovchisiga joylashtiramiz. Tanlovni o'zgartirish bizning kitobimiz.

Yorliqdagi bir xil nomdagi tugma yordamida Visual Basic muharririni oching dasturchi (ishlab chiquvchi) yoki klaviatura yorliqlari Chap Alt+F11. Loyiha panelining yuqori chap burchagida kitobingizni toping va undagi modulni ikki marta bosish orqali oching Ushbu kitob (Ushbu ish kitobi):

Ochilgan oynada quyidagi so'l kodni nusxalash va joylashtirish kerak:

Private Sub Workbook_SheetSelectionChange(Obyekt sifatida Sh, ByVal maqsad diapazon sifatida) Application.StatusBar = "Vydeleno: " & Selection.Address(0, 0) End Sub

Endi, har qanday diapazon tanlanganda (shu jumladan bir nechta!), uning manzili holat satrida ko'rsatiladi:

Holat panelidagi foydali ma'lumotlar

Ctrl bilan tanlangan bir nechta diapazonlarning manzillarini birlashtirishga yo'l qo'ymaslik uchun siz kichik yaxshilanish qo'shishingiz mumkin - vergulni bo'sh joy bilan vergul bilan almashtirish uchun "Almashtirish" funksiyasidan foydalaning:

Private Sub Workbook_SheetSelectionChange(ByVal Sh ob'ekt sifatida, ByVal maqsad diapazon sifatida) Application.StatusBar = "Vydeleno: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub

Holat satrida tanlangan katakchalar soni

Har qanday diapazon tanlanganda, sukut bo'yicha holat satrining o'ng tomonida bo'sh bo'lmagan tanlangan katakchalar soni ko'rsatiladi. Ba'zan siz ajratilgan sonni bilishingiz kerak. Bu vazifani avvalgi misoldagi kabi SelectionChange kitob hodisasini boshqarish uchun oddiy makros yordamida ham bajarish mumkin. Sizga quyidagi makro kerak bo'ladi:

Private Sub Workbook_SheetSelectionChange(Obyekt sifatida Sh, ByVal maqsad diapazon sifatida) Dim CellCount Variant sifatida, rng Har bir rng uchun diapazon sifatida Selection.Arealarda 'Barcha tanlovlar bo'ylab takrorlash RowsCount = rng.Rows.Count 'satrlar soni UstunlarCountlumn =r . 'ustunlar soni CellCount = CellCount + RowsCount * ColumnsCount 'jami jami hujayralar sonini to'playdi Keyingi 'holat satrida ko'rsatiladi Application.StatusBar = "Tanlangan: " & CellCount & " hujayralar" End Sub

Ushbu makros Ctrl tugmasi bilan tanlangan barcha maydonlar (agar bir nechta bo'lsa) bo'ylab aylanadi, RowsCount va ColumnsCount o'zgaruvchilaridagi har bir sohadagi qatorlar va ustunlar sonini saqlaydi va keyin ko'rsatiladigan CellCount o'zgaruvchisidagi katakchalar sonini to'playdi. holat satrida. Ishda u quyidagicha ko'rinadi:

Holat panelidagi foydali ma'lumotlar

Albatta, siz bir vaqtning o'zida tanlangan diapazonning manzilini va hujayralar sonini ko'rsatish uchun ushbu va oldingi makroslarni birlashtira olasiz. Siz faqat oxirgidan oldingi qatorni quyidagicha o'zgartirishingiz kerak:

Application.StatusBar = "Tanlangan: " & O'zgartirish(Selection.Address(0, 0), ",", ", ") & " - jami " & CellCount & " hujayralar"

Keyin rasm juda ajoyib bo'ladi:

Holat panelidagi foydali ma'lumotlar

O'ylaymanki, siz bu fikrni tushundingiz. Izohlarda taklif qiling - holat satrida yana nimani ko'rsatish foydali bo'ladi?

  • Makroslar nima, ular qanday ishlaydi, ulardan qanday foydalanish va yaratish
  • Excel varag'ida qulay koordinata tanlash
  • Qanday qilib murakkab formulalarni ko'proq ingl

Leave a Reply