Mundarija
Muammoni shakllantirish
Aytaylik, bizda shunday stol borki, biz har kuni "raqsga tushishimiz" kerak:
Jadval kimga kichkina bo'lib tuyulsa, uni maydon bo'yicha yigirma marta ko'paytiring, yana bir nechta bloklar va yigirma o'nlab yirik shaharlarni qo'shing.
Vazifa hozirda ish uchun kerak bo'lmagan satr va ustunlarni ekrandan vaqtincha olib tashlashdir, ya'ni,
- oylar bo'yicha tafsilotlarni yashirib, faqat choraklarni qoldiring
- jami ma'lumotlarni oylar va choraklar bo'yicha yashirib, faqat yarim yil davomida umumiy miqdorni qoldiring
- hozirgi paytda keraksiz bo'lgan shaharlarni yashirish (men Moskvada ishlayman - nima uchun Sankt-Peterburgni ko'rishim kerak?) va hokazo.
Haqiqiy hayotda bunday jadvallarning ko'plab misollari mavjud.
1-usul: satr va ustunlarni yashirish
Usul, ochig'ini aytganda, ibtidoiy va juda qulay emas, lekin bu haqda ikki so'z aytish mumkin. Varaqdagi avval tanlangan satrlar yoki ustunlar ustun yoki satr sarlavhasini sichqonchaning o'ng tugmasi bilan bosish va kontekst menyusidan buyruqni tanlash orqali yashirilishi mumkin. yashir (Yashirish):
Teskari ko'rinish uchun qo'shni qatorlar/ustunlarni tanlang va sichqonchaning o'ng tugmasi bilan navbati bilan menyudan tanlang, displey (Ko‘rsatish).
Muammo shundaki, siz har bir ustun va satr bilan alohida shug'ullanishingiz kerak, bu noqulay.
2-usul. Guruhlash
Agar siz bir nechta satr yoki ustunlarni tanlasangiz va keyin menyudan tanlang Ma'lumotlar - Guruh va Tuzilish - Guruh (Ma'lumotlar - guruh va kontur - guruh), keyin ular kvadrat qavs ichiga olinadi (guruhlangan). Bundan tashqari, guruhlar bir-biriga joylashtirilishi mumkin (8 tagacha joylashtirish darajasiga ruxsat beriladi):
Oldindan tanlangan satr yoki ustunlarni guruhlash uchun klaviatura yorliqlaridan foydalanish qulayroq va tezroq yo'ldir. Alt+Shift+O‘ngga strelka, va guruhni ochish uchun Alt+Shift+chapga strelkaNavbati bilan.
Keraksiz ma'lumotlarni yashirishning ushbu usuli ancha qulayroq - siz "" tugmachasini bosishingiz mumkin.+"Yoki"-", yoki varaqning yuqori chap burchagidagi raqamli guruhlash darajasi bo'lgan tugmalarda - keyin kerakli darajadagi barcha guruhlar bir vaqtning o'zida yiqilib yoki kengaytiriladi.
Bundan tashqari, agar sizning jadvalingizda qo'shni hujayralarni yig'ish funktsiyasiga ega xulosa satrlari yoki ustunlari mavjud bo'lsa, ya'ni imkoniyat (100% to'g'ri emas) Excel u barcha kerakli guruhlarni yaratadi jadvalda bir harakat bilan - menyu orqali Ma'lumotlar - Guruh va tuzilma - Strukturani yaratish (Ma'lumotlar - guruh va kontur - kontur yaratish). Afsuski, bunday funktsiya juda oldindan aytib bo'lmaydigan tarzda ishlaydi va ba'zan murakkab jadvallarda to'liq bema'nilik qiladi. Lekin sinab ko'rishingiz mumkin.
Excel 2007 va undan keyingi versiyalarida bu quvonchlarning barchasi yorliqda ma'lumotlar (Sana) guruhda tuzilma (Kontakt):
3-usul. Belgilangan satrlarni/ustunlarni makros bilan yashirish
Bu usul, ehtimol, eng ko'p qirrali. Keling, varaqning boshiga bo'sh qator va bo'sh ustun qo'shamiz va yashirmoqchi bo'lgan satr va ustunlarni istalgan belgi bilan belgilaymiz:
Endi Visual Basic muharririni ochamiz (ALT + F11), kitobimizga yangi bo'sh modul qo'shing (menyu Qo'shish - modul) va u erda ikkita oddiy makros matnini nusxa ko'chiring:
Sub Hide() xira katak diapazon sifatida Application.ScreenUpdating = False 'Har bir hujayra uchun ActiveSheet.UsedRange.Rows(1) uchun tezlashtirish uchun ekran yangilanishini o'chirib qo'ying.Cells 'Birinchi qatordagi barcha katakchalarni takrorlash Agar cell.Value = "x bo'lsa. " Keyin katak .EntireColumn.Hidden = True 'agar x katakda bo'lsa - ustunni yashirish Keyingi Har bir katak uchun ActiveSheet.UsedRange.Columns(1). Hujayralar 'birinchi ustunning barcha kataklaridan o'tadi If cell.Value = "x" Keyin cell.EntireRow.Hidden = True 'agar x katakda bo'lsa - qatorni yashirish Keyingi Application.ScreenUpdating = True End Sub Sub Show() Columns.Hidden = False 'barcha yashirilgan satr va ustunlarni bekor qilish Rows.Hidden = False End Sub
Siz taxmin qilganingizdek, makro yashir yashirish va makro show – Orqaga etiketlangan satr va ustunlarni ko'rsatadi. Agar so'ralsa, makroslarga tezkor tugmalar tayinlanishi mumkin (Alt + F8 va tugma Parameters) yoki yorliqdan ishga tushirish uchun to'g'ridan-to'g'ri varaqda tugmalar yarating Tuzuvchi - Qo'shish - tugma (Ishlab chiquvchi - Insert - tugmasi).
4-usul. Berilgan rang bilan satrlarni/ustunlarni yashirish
Aytaylik, yuqoridagi misolda biz, aksincha, jamlamalarni, ya'ni binafsha va qora qatorlarni va sariq va yashil ustunlarni yashirishni xohlaymiz. Keyin bizning oldingi makrosimiz "x" mavjudligini tekshirish o'rniga, to'ldirish rangini tasodifiy tanlangan namuna hujayralariga mos kelishini tekshirishni qo'shish orqali biroz o'zgartirilishi kerak:
Sub HideByColor() xira katak diapazon sifatida Application.ScreenUpdating = False ActiveSheet.UsedRange.Rows(2) dagi har bir katak uchun). = True If cell.Interior.Color = Range("K2").Interior.Color Keyin cell.EntireColumn.Hidden = True Keyingi Har bir katak uchun ActiveSheet.UsedRange.Columns(2).Cells If cell.Interior.Color = Range ("D2").Interior.Color Keyin hujayra.EntireRow.Hidden = True If cell.Interior.Color = Range("B6").Interior.Color Keyin hujayra.EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub Biroq, biz bir ogohlantirish haqida unutmasligimiz kerak: bu so'l faqat manba jadvalining kataklari qo'lda rang bilan to'ldirilgan bo'lsa va shartli formatlashdan foydalanmasa ishlaydi (bu Interior.Color xususiyatining cheklanishi). Masalan, agar siz shartli formatlash yordamida jadvalingizdagi raqam 10 dan kam bo'lgan barcha bitimlarni avtomatik ravishda ajratib ko'rsatsangiz:
... va siz ularni bir harakatda yashirishni xohlasangiz, oldingi so'lni "tugatish" kerak bo'ladi. Agar sizda Excel 2010-2013 bo'lsa, u holda mulk o'rniga foydalanib chiqib ketishingiz mumkin interyer mulk DisplayFormat.Interyer, u qanday o'rnatilganidan qat'i nazar, hujayraning rangini chiqaradi. Moviy chiziqlarni yashirish uchun so'l quyidagicha ko'rinishi mumkin:
Sub HideByConditionalFormattingColor() Displey yacheyka diapazon sifatida Application.ScreenUpdating = False ActiveSheet.UsedRange.Columns(1) dagi har bir katak uchun). .EntireRow.Hidden = Haqiqiy keyingi dastur.ScreenUpdating = True End Sub
Rangni taqqoslash uchun namuna sifatida G2 uyasi olinadi. Afsuski mulk Displey formati Excelda faqat 2010 versiyasidan boshlab paydo bo'ldi, shuning uchun agar sizda Excel 2007 yoki undan kattaroq bo'lsa, boshqa yo'llarni o'ylab topishga to'g'ri keladi.
- Makros nima, makro kodni qayerga kiritish, ulardan qanday foydalanish kerak
- Ko'p darajali ro'yxatlarda avtomatik guruhlash