Kuldeep mora odabrati svaku treću ćeliju kroz raspon od 1500 stanica. pruža ludo rješenje.
Gledaj video
- Kuldeep želi odabrati svaku treću ćeliju za 1500 stanica
- Kôd makronaredbe za objedinjavanje svih 500 ćelija predugačak je i uzrokuje pogrešku u kompajliranju!
- Rješenje: Građa 1, prazno, prazno. Kopirajte te tri stanice i zalijepite u 1500 ćelija
- Odaberite 1500 ćelija. Početna, Pronađi i odaberi, Idi na posebno, Konstante za odabir svake treće ćelije
- Zatim, jedan redak VBA za pomicanje odabranih N redaka ili stupaca.
- Napokon, VBA makronaredba koja će odraditi cijelu stvar
- Super savjet: Ako za dijalog Idi na koristite Ctrl + G, prikazuju se nedavno odabrani rasponi.
- Kul savjet: U dijaloškom okviru Go To držite pritisnutu tipku Shift za odabir iz Current Cell do Go To cell.
- VBA savjet: Korištenje UsedRegion za pronalaženje posljednjeg reda na radnom listu
Prijepis videozapisa
Learn Excel From, Podcast Episode 2108: Odaberite svaku treću ćeliju.
Ovo je doozy. Kuldeep šalje pitanje. Kaže da ima podatke u E24 do BEV24. To je 1500 ćelija. Treba odabrati svaku treću ćeliju. (nerazumljivo - 00:14) makronaredba sindikata je predugačka i generira pogreške. O čemu on govori, sindikalni makro?
Govori o tome, to je već isprobao, HOWTOSELECTEVERYTHIRDCELL. Snimite malo makronaredbe ovdje. Odaberite ovu ćeliju, a zatim tipke CONTROL, tu ćeliju, tu ćeliju, tu ćeliju, tu ćeliju. (nerazumljivo - 00:33) otići predaleko. Samo želim vidjeti kako snimaju kod. Zaustavite snimanje. ALT + F8. HOWTOSELECTEVERYTHIRDCELL, EDIT, a ovo je stvarno loše. Ne postoji čarobni način odabira svake treće stanice. Jednostavno morate navesti svih 500 ćelija tamo, što bi trajalo duže od odabira 500 ćelija, zar ne? Samo besmisleno. Besmisleno, besmisleno, besmisleno. (Tako da makro snimač - 01:00) nema bolji način za to.
Tako sam rekao Kuldeepu, ono što ćemo morati učiniti, stvar koju moramo iskoristiti, su posebne stanice. Rekao sam, kojim slučajem je li svaka treća ćelija numerička, a sve ostalo tekst? Ne, kaže on. U redu, pa evo što ću učiniti. Otići ću u potpuno novi red i staviti 1, a zatim ništa, ništa, i kopirat ću ove tri stanice, te tri stanice onako, a onda ću učiniti " ići ću do kraja i odabrati sve te stanice. Ovo je 1500 ćelija što je višestruko od 3, i zalijepite, a ono što će mi učiniti je da će mi svaka treća ćelija biti numerička, onako, i lijepa stvar je, ono što mi to možete učiniti je, odaberite odavde, upišite BEV26, a ja ću pritisnuti tipku SHIFT kad kliknem U redu, i to će odabrati do kraja, a zatim HOME,PRONAĐI I ODABERI, IDI NA POSEBNO, a ja želim KONSTANTE, kliknite U redu i ono što sam sada učinio je da sam vrlo brzo uspio odabrati svaku treću ćeliju.
Kažete, pa, kakva je to korist? Kako potiskujete odabir, što je sjajno pitanje, ali evo što ćemo učiniti. Prebacit ćemo se na VBA. ALT + F11, ALT + F11, CONTROL + G, i ova prekrasna mala ovdje kodna oznaka. Iz odabira ćemo pomaknuti određeni broj redaka prema dolje, određeni broj stupaca i odabrati, u redu? Dakle, gledajući podatke, želim otići do Billa Jelena u E23. Zapravo, želim ići do Kuldeepa u E24, koji je dva reda gore. Dakle, reći ću da se pomaknete za 2 reda, pritisnite ENTER i taj će se odabir, koji je bio svaka treća ćelija, sada pomaknuti prema gore.
Nije li to sjajno, i zapravo, napisao sam četiri mala makronaredbe, jednu koja se zvala pomakni gore, pomakni se dolje, pomakni se ulijevo, pomakni se udesno, jer kad sam Kuldeepu pokazala ovu metodu, on je, oh ne, ima 20 stvari morati obaviti. Dakle, ovdje ćemo kliknuti makronaredbu za pomicanje prema gore koja bi me trebala pomaknuti do retka 23, a zatim makronaredbu za pomicanje udesno, makronaredbu za pomicanje udesno, pomicanje prema dolje, lijevo, lijevo, zar ne? Pazi, mogli bismo jednostavno … možemo … jednom kad tu stvar unesemo, stvarno smo cool kad možemo stvari pomicati, znate, a odatle je postojala čitava hrpa drugih stvari koje je Kuldeep želio učiniti . Želio je kopirati i zalijepiti (nerazumljivo - 03:14) transponirati negdje drugdje, zar ne, i to je sve relativno lako, relativno. Odabire se svaka treća stanica.
Sad, ono što ću vam ovdje pokazati - jer sumnjam da Kuldeep želi sve ovo raditi u makronaredbi i ne želi iznova i iznova raditi korake, i hej, pozdravljam to, to je strašno - hoću li reći Kuldeepu, prvo što želim je da želim da odabereš sve stanice. (Gdje - 03:35) želite odabrati svaku treću ćeliju, želim da tako odaberete sve ćelije, u redu, a onda ćemo reći prebrojimo koliko stupaca imamo, shvatimo odakle smo započeli, a zatim shvatimo izvući sljedeći dostupni redak, a ja koristim USEDRANGE kako bih otkrio gdje je zadnji redak. Tome dodajem 2 retka, pa bi to trebalo samo pronaći lijep prazan red dolje u retku 27. Idemo pogledati, i tako je 27 prazan red. Kôd će staviti 1 u stupac 5 tog praznog retka,a zatim će kopirati 3 stanice. Dakle, E, F i G su u 3 ćelije koje ćemo tamo kopirati i kopirat ćemo ih u 1500 stupaca, koji će generirati niz 1 i praznih, praznih, 1, praznih, prazno, 1, prazno, prazno, sve do kraja naših podataka, a zatim POSEBNE STANICE, ovo je dom, pronađite i odaberite, idite u posebne ćelije, odaberite konstante, .IZBOR.
U redu, sada su odabrani ti podaci i tada znamo da želimo ići 4 reda gore i, bam, onako, idemo gore, u ovom slučaju u red 23. Kuldeep želi red 24, (prilagodite kod jedan bit - 04:43), a zatim pritisnite strelicu prema dolje i spremni smo za polazak.
To je najbolji način da to moram učiniti. Ako netko ima bolju metodu za odabir svake treće ćelije (nerazumljivo - 04:52), cool način da to učinite ili svaku drugu ćeliju ili svaku četvrtu ćeliju, svakako ostavite neke komentare u komentarima na YouTubeu.
Pa, hej. Nisam promovirao Power Excel With book ili VBA with macros book, niti jedan. Mnogo izvrsnih izvrsnih savjeta i trikova u tim knjigama. Kliknite i u gornjem desnom kutu da biste pročitali više o knjizi.
Alright. So, in this episode, Kuldeep wants to the select every third cell for 1500 cells. He tried to write a macro to union all 500 cells, but it's too long and causes a compile error. So, solution 1: build a 3-cell array with 1, blank, blank; copy those 3 cells and paste to 1500 cells; that creates a range of 1500 cell column wide range with 1, blank, blank, 1, blank blank; select the 1500 cells, find and select, go to special, constants, selects every third cell; then that one line of VBA, selection.offset.select, to move up some number of rows or columns or anything; and then finally (unintelligible - 05:52) a VBA Macro to do the whole thing.
I want to thank Kuldeep for sending that question in and I want to thank you for stopping by. We'll see you next time for another netcast from.
Download File
Preuzmite datoteku uzorka ovdje: Podcast2108.xlsm
