Kaip išjungti visas kitas eilutes naudojant makrokomandą
Ar norėtumėte, kad kiekviena antra ar kiekviena n eilutė lentelėje būtų nematoma? Tai galite padaryti naudodami komandą „Slėpti“. Bet jei norite tai padaryti daugeliui eilučių, tai tampa nuobodu.
Makrokomanda atlieka darbą už jus. Čia yra kodas:
Antros eilutės slėpimas ()
Dim Eilutė kaip ilgai
Eilė = 1
Nors eilutė <1000
Ląstelės (1 eilutė) .EntireRow.Hidden = Tiesa
Linija = eilutė + 2
Wend
Pabaiga Sub
Makrokomanda slepia kas antrą aktyvaus darbalapio eilutę nuo 1 iki 1000 eilutės. Jei norite kitokios apimties, komandoje pritaikykite apatinę ribą 1 Eilė = 1 ir pakeiskite viršutinę 1000 ribą komandoje Nors eilutė <1000. Tiesiog pakeiskite 1 ir 1000 pasirinktais skaičiais.
Jei nenorite slėpti kas antros eilutės, komandai taip pat galite pridėti skirtingą reikšmę 2 Linija = eilutė + 2 įeiti. 4 reikšmė slepia tik kas ketvirtą eilutę, skaičius 10 - kas dešimtą eilutę ir pan.
Norėdami vėl parodyti paslėptas eilutes, pakeiskite komandą Tiesa makrokomandoje Netiesa ir vėl paleiskite makrokomandą.