Kun kirjoitamme VBA -koodausta pelastaaksemme itsemme toistuvasta työstä, tietojen valinnalla on erittäin tärkeä rooli. Joten tässä artikkelissa opit valitsemaan tiedot rivi-, sarake- ja kokonaisasiakirjatietojen mukaan VBA -koodauksen avulla Microsoft Excelissä.
Opit:
- Kuinka valita koko sarake?
- Kuinka valita koko rivi?
- Kuinka valita koko data?
Kuinka valita koko sarake VBA: n kautta?
Meillä on tietoja alueella A1: C19, jossa sarake A sisältää nimen, sarake B Sukupuoli ja sarake C sisältää iän.
Valitse näiden tietojen koko sarake A noudattamalla alla annettuja ohjeita ja koodia:-
- Avaa VBA -sivu painamalla näppäinyhdistelmää Alt+F11
- Aseta moduuli
- Kirjoita alla mainittu koodi:
Alasarakkeen valinta () -alue ("A1"). Koko sarake.Valitse Lopeta ala
- Suorita makro Excelissä painamalla näppäintä F5
- Sarake A valitaan
Jos haluat, että tiedot valitaan sarakkeen viimeiseen aktiiviseen soluun asti, seuraa alla mainittuja vaiheita ja koodia:-
- Kirjoita alla mainittu koodi:-
Alasarakkeen valinta () lastrow = laskentataulukot ("Sheet1"). Solut (Rows.count, 1) .End (xlUp) .Row Worksheets ("Sheet1"). Range ("A1: A" & lastrow) .Valitse End Sub
Koodin selitys:- Ensin määritellään, mikä on datan viimeinen aktiivinen solu, ja sitten viimeisellä rivillä määritetään alue koodauksessa.
- Suorita makro Excelissä painamalla näppäintä F5
- Sarake A1: A19 valitaan
Tällä tavalla käyttämällä VBA: ta voit valita koodin sarakkeen valitsemiseksi viimeiseen aktiiviseen soluun asti. Kun emme tiedä, mikä on viimeinen aktiivinen solu, voimme käyttää tätä koodia kirjoittaessamme valinnan VBA -koodia Microsoft Excelissä.
Kuinka valita koko rivi VBA: n kautta?
Meillä on tietoja alueella A1: C19, jossa sarake A sisältää nimen, sarake B Sukupuoli ja sarake C sisältää iän.
Voit valita näiden tietojen koko rivin noudattamalla alla olevia ohjeita ja koodia:-
- Avaa VBA -sivu painamalla näppäinyhdistelmää Alt+F11
- Aseta moduuli
- Kirjoita alla mainittu koodi:-
Alirivin valinta () -alue ("A2") .EtireRow.Valitse End Sub
- Suorita makro Excelissä painamalla näppäintä F5
- Sarake A valitaan
Jos haluat, että tiedot valitaan viimeiseen aktiiviseen soluun asti, seuraa alla mainittuja vaiheita ja koodia:-
- Kirjoita alla mainittu koodi:-
Alarivivalinta () Dim lastcolumn As Long lastcolumn = Laskentataulukot ("Sheet1"). Solut (1, Columns.count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (1, lastcolumn) Valitse Lopeta alaosa
Koodin selitys: Tässä koodissa olimme määritelleet viimeisen sarakkeen ensin, sitten käytämme sitä alueen määrittämiseen.
- Suorita makro Excelissä painamalla F5 -näppäintä
- Ensimmäinen rivi valitaan rivin viimeiseen aktiiviseen soluun asti
Tällä tavalla voimme valita koko rivin tai valita rivin viimeiseen aktiiviseen soluun Microsoft Excelissä VBA: n kautta.
Kuinka valita koko data VBA: n kautta?
Otetaan esimerkki ja ymmärretään:-
Meillä on tietoja alueella A1: C19, jossa sarake A sisältää nimen, sarake B Sukupuoli ja sarake C sisältää iän.
Voit valita tiedot ensimmäisestä solusta viimeiseen aktiiviseen soluun noudattamalla alla olevia ohjeita ja koodia:-
- Avaa VBA -sivu painamalla näppäinyhdistelmää Alt+F11
- Aseta moduuli
- Kirjoita alla mainittu koodi:
Alavalintalastesolu () Himmennä viimeinen yhtä kauan, viimeinen sarake niin kauan viimeinen = laskentataulukot ("Taulukko1"). Solut (Rivit.luku, 1) .End (xlUp) .Rivi viimeinen sarake = laskentataulukot ("Taulukko1"). Solut (1, sarakkeet) .count) .End (xlToLeft) .Sarakkeen laskentataulukot ("Sheet1"). Alue ("A1", Solut (viimeinen, viimeinen sarake)). Valitse End Sub
Koodin selitys: Ensin olemme määrittäneet koodin aiheen nimen ja sitten kaikki muuttujat. Sitten olemme määrittäneet, mikä olisi viimeinen rivi ja viimeinen sarake.
- Suorita makro Excelissä painamalla näppäintä F5
- Laskentataulukossa kaikki tiedot valitaan
Jos haluat nyt kopioida samat tiedot ja liittää ne, käytä alla mainittua koodia:-
Alavalintalastesolu () Himmennä viimeinen yhtä kauan, viimeinen sarake niin kauan viimeinen = laskentataulukot ("Taulukko1"). Solut (Rivit.luku, 1) .End (xlUp) .Rivi viimeinen sarake = laskentataulukot ("Taulukko1"). Solut (1, sarakkeet) .count) .End (xlToLeft) .Column Worksheets ("Sheet1"). Range ("A1", Cells (lastrow, lastcolumn)). Copy Sheets ("Sheet2"). Range ("A1") End Sub
Suorita koodi, kaikki tiedot kopioidaan ja liitetään taulukkoon 2.
Tällä tavalla voimme kirjoittaa makron tietojen valitsemiseksi ensimmäisestä solusta viimeiseen aktiiviseen soluun ja liittää sitten toiseen Microsoft Excel -arkkiin.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse.