Kuldeep musí vybrat každou třetí buňku v rozsahu 1 500 buněk. poskytuje šílené řešení.
Sledovat video
- Kuldeep chce vybrat každou třetí buňku pro 1500 buněk
- Kód makra pro sjednocení všech 500 buněk je příliš dlouhý a způsobuje chybu kompilace!
- Řešení: Sestavte 1, prázdné, prázdné. Zkopírujte tyto tři buňky a vložte je do 1 500 buněk
- Vyberte 1 500 buněk. Domů, Najít a vybrat, Přejít na speciální, Konstanty pro výběr každé třetí buňky
- Poté jeden řádek VBA přesuňte výběr N řádků nebo sloupců pryč.
- A konečně, makro VBA, které dělá celou věc
- Skvělý tip: Pokud používáte Ctrl + G pro dialog Přejít na, zobrazí se naposledy vybrané rozsahy.
- Skvělý tip: V dialogovém okně Přejít na podržte klávesu Shift a vyberte z aktuální buňky do buňky Přejít na.
- Tip VBA: Použití UsedRegion k vyhledání posledního řádku v listu
Přepis videa
Learn Excel from, Podcast Episode 2108: Select Every Third Cell.
To je doozy. Kuldeep pošle otázku. Říká, že má data v E24 až BEV24. To je 1500 buněk. Musí vybrat každou třetí buňku. (nesrozumitelné - 00:14) sjednocovací makro je příliš dlouhé a generuje chyby. O čem to mluví, unijní makro?
Mluví o tom, už to zkusil, HOWTOSELECTEVERYTHIRDCELL. Zde nahrajte malé makro. Vyberte tuto buňku a poté klávesy CONTROL, buňku, buňku, buňku, buňku, buňku. (nesrozumitelné - 00:33) jdou příliš daleko. Chci jen vidět, jak zaznamenávají kód. Zastavit nahrávání. ALT + F8. HOWTOSELECTEVERYTHIRDCELL, EDIT, a to je opravdu špatné. Neexistuje žádný kouzelný způsob, jak vybrat každou třetí buňku. Musíte pouze uvést všech 500 buněk tam, což by trvalo déle než výběr 500 buněk, že? Prostě zbytečné. Zbytečné, zbytečné, zbytečné. (Aby záznamník maker - 01:00) neměl lepší způsob, jak to udělat.
Takže jsem řekl Kuldeepovi, že to, co budeme muset udělat, věc, kterou musíme využít, jsou speciální buňky. Řekl jsem, náhodou, je každá třetí buňka číselná a všechno ostatní je text? Ne, říká. Dobře, takže tady budu dělat. Půjdu do úplně nové řady a vložím 1 a pak nic, nic a zkopíruji tyto tři buňky, tyto tři buňky, jako je to, a pak to, co udělám, je já ' jdu na konec a vyberu všechny ty buňky. Nyní je to 1 500 buněk, což je násobek 3, a vložte, a to, co pro mě udělá, je, že mi dá každá třetí buňka, bude taková numerická, a krásná věc je, co my můžete udělat, je, vybrat odtud, zadejte BEV26 a podržím klávesu SHIFT, když kliknu na OK, a to vybere až do konce a poté HOME,NAJDĚTE A VYBERTE, PŘEJDĚTE NA SPECIÁL a chci KONSTANTY, klikněte na OK a to, co jsem teď udělal, je, že se mi podařilo velmi rychle vybrat každou třetí buňku.
Říkáte, no, k čemu je to dobré? Jak posunout výběr nahoru, což je skvělá otázka, ale tady budeme dělat. Přepneme na VBA. ALT + F11, ALT + F11, CONTROL + G a tento krásný kousek kódu zde. Z výběru posuneme určitý počet řádků dolů, nějaký počet sloupců nad a vybereme, dobře? Když se podívám na data, chci jít nahoru k Billovi Jelenovi v E23. Vlastně chci jít na Kuldeep v E24, což je o 2 řádky výše. Takže řeknu jít o 2 řádky nahoru, stisknout ENTER a ten výběr, který byl každou třetí buňkou, se nyní posune nahoru.
Není to prostě úžasné a ve skutečnosti jsem napsal čtyři malá makra, jedno s názvem pohyb nahoru, pohyb dolů, pohyb doleva, pohyb doprava, protože když jsem ukázal Kuldeepovi tuto metodu, je jako, ach ne, je tu 20 věcí muset udělat. Tady tedy klikneme na makro pro přesun nahoru, které by mě mělo posunout nahoru na řádek 23, a pak makro pro posun vpravo, makro pro posun doprava, posun dolů, doleva, doleva, doprava? Podívej, mohli bychom … můžeme … jakmile tu věc dostaneme, jsme opravdu v pohodě, že dokážeme věci hýbat, víš, a odtamtud tam byla spousta dalších věcí, které Kuldeep chtěl udělat . Chtěl zkopírovat a vložit (nesrozumitelný - 03:14) transponovat někam jinam, správně, a to je všechno relativně snadné. Vybírá se každá třetí buňka.
Co vám teď ukážu - protože mám podezření, že Kuldeep to chce dělat všechno v makru a nechce dělat kroky znovu a znovu a znovu, a hej, tleskám tomu, to je úžasné - řeknu Kuldeepovi, první věc, kterou chci udělat, je, že chci, abys vybral všechny buňky. (Where - 03:35) you want to select every third cell, I want you to select all the cells like that, alright, and then we say count how many columns we have, come out where we started, and then figure z dalšího dostupného řádku a já používám USEDRANGE k zjištění, kde je poslední řádek. Přidávám k tomu 2 řádky, a to, co by mělo udělat, je jen najít pěkný prázdný řádek dole v řádku 27. Pojďme se podívat, a tak 27 je prázdný řádek. Kód vloží 1 do sloupce 5 tohoto prázdného řádku,a potom to zkopíruje 3 buňky. Takže E, F a G jsou ve 3 buňkách, které tam zkopírujeme, a zkopírujeme to do 1500 sloupců, které vygenerují řadu 1 s a prázdné, prázdné, 1, prázdné, prázdné, 1, prázdné, prázdné, až na konec našich dat, a pak SPECIALCELLS, to je doma, najděte a vyberte, přejděte do zvláštních buněk, vyberte konstanty, .SELECT.
Dobře, takže teď jsou vybrána ta data a pak víme, že chceme jít o 4 řádky nahoru, a bam, takhle, jde to nahoru, v tomto případě na řádek 23. Kuldeep chce řádek 24, (upravit kód jeden bit - 04:43) a poté stiskněte šipku dolů a můžeme vyrazit.
To je nejlepší způsob, jak to udělat. Pokud má někdo lepší způsob, jak vybrat každou třetí buňku (nesrozumitelný - 04:52), skvělý způsob, jak to udělat, nebo každou jinou buňku nebo každou čtvrtou buňku, nechte všechny komentáře v komentářích YouTube.
No, hej. Nepropagoval jsem knihu Power Excel With ani knihu VBA s makry, ani jednu. V těchto knihách najdete spoustu skvělých tipů a triků pro Excel. Kliknutím na toto písmeno i v pravém horním rohu si přečtete více o knize.
V pořádku. Takže v této epizodě chce Kuldeep vybrat každou třetí buňku pro 1500 buněk. Pokusil se napsat makro na sjednocení všech 500 buněk, ale je příliš dlouhý a způsobí chybu kompilace. Řešení 1: sestavte 3článkové pole s 1, prázdné, prázdné; zkopírujte tyto 3 buňky a vložte do 1 500 buněk; , který vytvoří rozsah 1 500 buněk široký sloupcový rozsah s 1, prázdné, prázdné, 1, prázdné prázdné; vyberte 1 500 buněk, najděte a vyberte, přejděte na speciální, konstanty, vybere každou třetí buňku; pak ten jeden řádek VBA, selection.offset.select, pro posun o určitý počet řádků nebo sloupců nebo cokoli jiného; a nakonec (nesrozumitelné - 05:52) makro VBA, které provede celou věc.
Chci poděkovat Kuldeepovi za zaslání této otázky a chci vám poděkovat za to, že jste se zastavili. Uvidíme se příště na dalším netcastu z.
Stáhnout soubor
Stáhněte si ukázkový soubor zde: Podcast2108.xlsm
