Spoločnosť Kuldeep musí vybrať každú tretiu bunku z rozsahu 1 500 buniek. poskytuje šialené riešenie.
Pozeraj video
- Spoločnosť Kuldeep chce vybrať každú tretiu bunku pre 1 500 buniek
- Makro kód na spojenie všetkých 500 buniek je príliš dlhý a spôsobuje chybu kompilácie!
- Riešenie: Zostavte 1, prázdne, prázdne. Skopírujte tieto tri bunky a prilepte ich do 1 500 buniek
- Vyberte 1 500 buniek. Home, Find & Select, Go To Special, Constants to select every third cell
- Potom jeden riadok VBA presunie výber N riadkov alebo stĺpcov preč.
- Nakoniec makro VBA, ktoré urobí celú vec
- Výborný tip: Ak v dialógovom okne Prejsť na použijete kombináciu klávesov Ctrl + G, zobrazí sa naposledy vybratý rozsah.
- Super tip: V dialógovom okne Prejsť na podržte stlačený kláves Shift a vyberte z aktuálnej bunky do bunky Prejsť na.
- Tip VBA: Pomocou programu UsedRegion nájdete posledný riadok v pracovnom hárku
Prepis videa
Naučte sa Excel z podcastu, epizóda 2108: Vyberte každú tretiu bunku.
Toto je doozy. Kuldeep pošle otázku. Tvrdí, že má údaje od E24 do BEV24. To je 1 500 buniek. Musí vybrať každú tretiu bunku. (nezrozumiteľné - 00:14) zjednocujúce makro je príliš dlhé a generuje chyby. O čom hovorí, odborové makro?
Hovorí o tom, už to skúsil, HOWTOSELECTEVERYTHIRDCELL. Zaznamenajte si tu malé makro. Vyberte túto bunku a potom klávesy CONTROL, bunku, bunku, bunku, bunku, bunku. (nepochopiteľné - 00:33) zachádzajú priďaleko. Chcem len vidieť, ako nahrávajú kód. Zastaviť nahrávanie. ALT + F8. HOWTOSELECTEVERYTHIRDCELL, EDIT a to je naozaj zlé. Neexistuje žiadny zázračný spôsob, ako vybrať každú tretiu bunku. Musíte iba uviesť všetkých 500 buniek, čo by trvalo dlhšie ako výber 500 buniek, však? Len nezmysel. Nezmyselné, nezmyselné, nezmyselné. (Aby záznamník makier - 01:00) nemal lepší spôsob, ako to urobiť.
Takže som povedal Kuldeepovi, že čo budeme musieť urobiť, čo musíme využiť, sú špeciálne bunky. Povedal som, že je každá tretia bunka číselná a všetko ostatné je text? Nie, hovorí. Dobre, takže tu budem robiť. Pôjdem do úplne nového riadku a vložím 1 a potom nič, nič a skopírujem tieto tri bunky, také tri bunky a potom to, čo urobím, je pôjdem na koniec a vyberiem všetky tieto bunky. Toto je 1 500 buniek, ktoré sú násobkom 3 a vložia, a to, čo pre mňa urobí, bude, že každá tretia bunka bude taká numerická a krásne na tom je, že čo potom môžete urobiť, je vybrať odtiaľto, napísať BEV26 a podržím stlačený kláves SHIFT, keď kliknem na OK, a tým sa vyberie do konca a potom DOMOV,NÁJSŤ A VYBERAŤ, ÍSŤ NA ŠPECIÁL a chcem CONSTANTS, kliknite na OK a to, čo som teraz urobil, je, že sa mi podarilo veľmi rýchlo vybrať každú tretiu bunku.
Poviete si, dobre, čo je to dobré? Ako posuniete výber hore, čo je skvelá otázka, ale tu je to, čo urobíme. Prejdeme na VBA. ALT + F11, ALT + F11, CONTROL + G a tento krásny kúsok kódu tu. Od výberu ideme vyrovnať určitý počet riadkov nadol, určitý počet stĺpcov nad a vyberieme, dobre? Takže pri pohľade na údaje chcem ísť hore na Billa Jelena v E23. Vlastne chcem ísť na Kuldeep v E24, ktorý je o 2 riadky vyššie. Takže poviem, že mám ísť hore o 2 riadky, stlačiť ENTER a ten výber, ktorým bola každá tretia bunka, sa teraz posunie nahor.
Nie je to úžasné, a v skutočnosti som napísal štyri malé makrá, jedno sa volalo posúvať hore, posúvať dole, posúvať doľava, posúvať doprava, pretože keď som Kuldeepovi ukázal túto metódu, je ako, ach nie, je tu 20 vecí, musím urobiť. Takže tu klikneme na makro posunutia nahor, ktoré by ma malo posunúť hore na riadok 23, a potom na makro presunutia doprava, makro posunutia doprava, posunutie nadol, doľava, doľava, doprava? Pozri, mohli by sme … môžeme … akonáhle tam dostaneme tú vec, sme naozaj v pohode, že dokážeme veci posúvať, viete, a potom odtiaľ bolo veľa ďalších vecí, ktoré Kuldeep chcel urobiť . Chcel skopírovať a vložiť (nezrozumiteľné - 03:14) transponovať niekam inam, no, a to je všetko, relatívne, relatívne ľahké. Získava sa každá tretia bunka.
Čo ti tu teraz ukážem - pretože mám podozrenie, že Kuldeep to chce robiť všetko v makre a nechce robiť kroky znova a znova a znova, a hej, tlieskam tomu, to je úžasné - poviem Kuldeepovi, prvá vec, ktorú chcem urobiť, je, aby som vybral všetky bunky. (Kde - 03:35) chcete vybrať každú tretiu bunku, chcem, aby ste vybrali všetky tieto bunky, dobre, a potom povieme, koľko stĺpcov máme, zistíme, kde sme začali, a potom z nasledujúceho dostupného riadku a pomocou parametra USEDRANGE zistím, kde je posledný riadok. Pridávam k tomu 2 riadky, takže to, čo by malo urobiť, je nájsť pekný prázdny riadok dole v riadku 27. Poďme sa pozrieť, a tak 27 je prázdny riadok. Kód vloží 1 do stĺpca 5 tohto prázdneho riadku,a potom ide skopírovať 3 bunky. Takže E, F a G sú v 3 bunkách, ktoré tam skopírujeme a skopírujeme ich do 1 500 stĺpcov, ktoré vygenerujú sériu 1s a blank, blank, 1, blank, prázdne, 1, prázdne, prázdne, až po koniec našich údajov, a potom ŠPECIÁLNE BUNKY, toto je domov, nájdite a vyberte, choďte do špeciálnych buniek, vyberte konštanty, .VYBER.
Dobre, takže teraz sú vybrané tieto údaje a potom vieme, že chceme ísť o 4 riadky vyššie a, bam, tak, že ide hore, v tomto prípade na riadok 23. Kuldeep chce riadok 24, (upravte kód jeden bit - 04:43) a potom stlačte šípku nadol a môžeme vyraziť.
To je najlepší spôsob, ako to musím urobiť. Ak má niekto lepšiu metódu na výber každej tretej bunky (nepochopiteľný - 04:52), je to v pohode, alebo každú druhú bunku alebo každú štvrtú bunku, všetky komentáre nechajte v komentároch YouTube dole.
No hej. Nepropagoval som knihu Power Excel With ani knihu VBA s makrami, ani jednu. V týchto knihách nájdete veľa skvelých tipov a trikov. Kliknutím na písmeno i v pravom hornom rohu si prečítate viac o knihe.
Dobre. Takže v tejto epizóde chce Kuldeep vybrať každú tretiu bunku pre 1 500 buniek. Pokúsil sa napísať makro na spojenie všetkých 500 buniek, ale je to príliš dlhé a spôsobuje to chybu kompilácie. Riešenie 1: postavte 3-bunkové pole s 1, blank, blank; skopírujte tieto 3 bunky a vložte ich do 1 500 buniek; čím sa vytvorí rozsah 1 500 stĺpcov buniek široký rozsah s 1, prázdny, prázdny, 1, prázdny prázdny; vyberte 1 500 buniek, nájdite a vyberte, choďte na špeciálne, konštanty, vyberie každú tretiu bunku; potom ten jeden riadok VBA, selection.offset.select, aby sa posunul o určitý počet riadkov alebo stĺpcov alebo čokoľvek iného; a potom nakoniec (nezrozumiteľné - 05:52) makro VBA, ktoré urobí celú vec.
Chcem poďakovať spoločnosti Kuldeep za zaslanie tejto otázky a chcem vám poďakovať, že ste sa zastavili. Uvidíme sa nabudúce pri ďalšom netcaste z.
Stiahnuť súbor
Stiahnutie vzorového súboru nájdete tu: Podcast2108.xlsm
