VBA Lisää sarakkeet | Kuinka lisätä sarake Excel-laskentataulukkoon VBA: n avulla?
Normaalisti excel-laskentataulukossa meillä on kaksi erilaista tapaa lisätä tai lisätä sarakkeita, joista yksi on pikanäppäin ja toinen käyttämällä hiiren kakkospainikkeella ja lisäysmenetelmää, mutta VBA: ssa meidän on käytettävä insert-komentoa ja koko sarake-käskyä minkä tahansa sarakkeen lisäämiseksi, temppu tähän on, että jos meidän on lisättävä yksi sarake, annamme yhden sarakkeen viitteen, mutta useille sarakkeille annamme useita sarakeviittauksia.
Lisää sarakkeita Exceliin VBA: n avulla
Osana VBA-koodia meidän on ehkä lisättävä muutama sarake taulukkoon tarpeidemme mukaiseksi. Sarakkeen lisääminen on helppo pikanäppäin laskentataulukossa painamalla Ctrl +, mutta entä uuden sarakkeen lisääminen VBA-koodin kautta. Tässä artikkelissa "VBA Insert Column" näytetään sarakkeiden lisääminen Excelissä ja näytetään erilaisia esimerkkejä tilanteista.
Kuinka lisätä sarakkeita Excel-laskentataulukkoon VBA: n avulla?
Voimme lisätä sarakkeita VBA: iin käyttämällä COLUMNS-ominaisuutta ja RANGE-objektia. Sinun on, miksi tarvitsemme sarakkeita ja alueobjekteja uuden sarakkeen lisäämiseksi.
Uuden sarakkeen lisäämiseksi meidän on tunnistettava, minkä sarakkeen jälkeen meidän on lisättävä, sanomatta minkä sarakkeen jälkeen meidän on lisättävä miten VBA ymmärtää logiikan.
Esimerkiksi, jos haluat lisätä sarakkeen sarakkeen B jälkeen, voit rakentaa koodin näin.
Sarakkeet (“C”)
Huomaa: Syy, miksi olen käyttänyt C: tä sarakkeen lisäämiseen sen jälkeen, koska valittu solu siirtyy oikealle puolelle.
Kun sarakkeet on määritetty, meidän on käytettävä "Koko sarake" -ominaisuutta.
Sarakkeet (“C”). EntireColumn
Sitten meidän on valittava "Lisää" -menetelmä.
Sarakkeet (“C”). EntireColumn.Insert
Tämä lisää sarakkeen sarakkeen C jälkeen ja nykyinen sarake C siirretään kohtaan D.
Esimerkki # 1 - Lisää sarakkeita käyttämällä VBA: n Range Object -ohjelmaa
Katsokaa nyt tapaa lisätä sarake RANGE-objektilla. Harkitse tätä varten alla olevia tietoja esimerkkinä.
Haluan nyt lisätä VBA-sarakkeen A-sarakkeen jälkeen noudattamalla alla olevia ohjeita koodin rakentamiseksi.
Vaihe 1: Aloita alimenettely.
Vaihe 2: Avaa Range- objekti.
Koodi:
AlisarakkeessaLisää_esimerkki1 () Alue (Loppuosa
Vaihe 3: Mainitse sarake nyt lainausmerkeissä .
Koodi:
AlisarakeInsert_Example1 () Range ("B: B") End Sub
Vaihe 4: Valitse nyt Koko sarake -ominaisuus.
Koodi:
AlisarakeLisää_esimerkki1 () -alue ("B: B"). End End Sub
Vaihe 5: Kun olet valinnut Koko sarake -ominaisuuden, valitse Lisää- menetelmä.
Koodi:
AlisarakkeenInsert_Example1 () alue ("B: B"). EntireColumn.ins End Sub
Nyt koodisi näyttää tältä.
Koodi:
AlisarakeInsert_Example1 () -alue ("B: B"). EntireColumn.Insert End Sub
Suorita koodi, jolloin se lisää uuden B-sarakkeen.
Esimerkki # 2 - Lisää useita sarakkeita
Esimerkiksi, jos haluat lisätä kaksi uutta saraketta sarakkeen A jälkeen, meidän on mainittava kaksi sarakeosoitetta.
Koodi:
AlisarakeInsert_Example1 () -alue ("B: C"). EntireColumn.Insert End Sub
Yllä oleva koodi lisää kaksi saraketta sarakkeen A jälkeen.
Esimerkki # 3 - Vain "Lisää" -menetelmällä
Voimme lisätä uuden sarakkeen käyttämällä "Lisää" ainoaa menetelmää pääsemättä Koko sarake -ominaisuuteen. Tätä varten ymmärretään "insert" -menetelmän syntaksia.
Lauseke Lisää ([Vaihto], [Kopioi alkuperä])
[Vaihto]: Kun lisätään uusi sarake, tarvitsemmeko sarakkeita siirtymään oikealle puolelle vai siirtymään alaspäin rivien tapauksessa. Tässä voimme käyttää kahta vaihtoehtoa ”xlToRight” ja “xlDownTo”
[Kopioi alkuperä]: Tämä määrittää vasta lisätyn sarakkeen muodon. Tarvitsetko muodon sarakkeen vasemmalta puolelta vai yllä olevista soluista. Tässä voimme käyttää kahta vaihtoehtoa “xlFormatFromLeftOrAbove” ja “xlFormatFromRightOrBelow”.
Alla on esimerkkikoodi sinulle.
AlisarakkeenInsert_Example1 () alue ("B: B"). Lisää Shift: = xlToRight, Copyorigin: = xlFormatFromLeftOrAbove End Sub
Esimerkki # 4 - Lisää sarakkeita VBA: n COLUMNS-ominaisuudella
Olemme nähneet, kuinka VBA voidaan lisätä sarakkeita käyttämällä RANGE-objektia, nyt näytämme, että voimme lisätä sarakkeita käyttämällä "COLUMNS" -ominaisuutta.
Avaa OMAISUUDET SARAKKEET.
Koodi:
AlisarakeLisää_esimerkki2 () Sarakkeet (Lopeta alisarja
Voimme tässä määrittää sarakkeen kahdella tavalla. Yksi käyttää tavallisin tavoin aakkosellisia viitteitä ja toinen sarakkeiden numeroita.
Jos haluat lisätä sarakkeen sarakkeen A jälkeen, koodi on SARAKKEET (“B”). Jos käytät numeerista viitettä, koodi on SARAKKEET (2).
Koodi:
AlisarakeLisää_esimerkki2 () -saraketta ("B"). End Sub
Nyt ongelma ilmenee sinulle, koska kun käytämme COLUMNS-ominaisuutta, emme pääse IntelliSense-luetteloon.
Koodi:
AlisarakeLisää_esimerkki2 () -saraketta ("B"). Koko loppuosa
Täällä meidän on varmistettava, mitä teemme. Joten tästä syystä olen osoittanut sinulle RANGE-objektin ensin.
Koodi:
AlisarakeInsert_Example2 () sarakkeet ("B: B"). EntireColumn.Insert End Sub
Esimerkki # 5 - Lisää vaihtoehtoisia sarakkeita
Oletetaan, että sinulla on alla olevan kuvan kaltaiset tiedot.
Jos haluat lisätä uusia sarakkeita jokaisen vaihtoehtoisen rivin jälkeen, meidän on käytettävä VBA-silmukoita. Koodin alapuolella on räätälöity koodi sinulle.
Koodi:
AlasarakeInsert_Example3 () Himmennä k kokonaislukusarakkeina (2) .Valitse K = 2 - 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2) .Valitse Seuraava k End Sub
Tämä lisää sarakkeen näin.
Esimerkki # 6 - Lisää sarake solun arvon perusteella
Voimme lisätä myös sarakkeen solun arvon perusteella. Katso esimerkiksi alla olevia tietoja.
Tässä haluan lisätä sarakkeen, jos ensimmäisen rivin solun arvo on "Vuosi", ja tietoni pitäisi näyttää tältä uusien sarakkeiden lisäämisen jälkeen.
Käytä alla olevaa koodia tämän tehtävän suorittamiseen.
Koodi:
AlisarakkeessaEnsert_Example4 () Dim k kuten kokonaisluku Dim x kuten kokonaisluku x = 2 For k = 2-12 Jos solut (1, x) .Arvo = "Vuosi" ja sitten Solut (1, x) .EntireColumn.Insert x = x + 1 Loppu Jos x = x + 1 Seuraava k Lopeta ali
Voit ladata tämän VBA Insert Columns Excel -sivuston täältä. VBA Lisää sarakkeet Excel-malli