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" kerrotaan sarakkeiden lisäämisprosessista 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ä, kertomatta, minkä sarakkeen jälkeen meidän on lisättävä, kuinka 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.
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. Se lisää uuden B-sarakkeen.
Esimerkki # 2 - Lisää useita sarakkeita
Esimerkiksi, jos haluat lisätä kaksi uutta saraketta sarakkeen A perään, meidän on mainittava kaksi sarakeosoitetta.
Koodi:
AlisarakkeenInsert_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 asetamme uuden sarakkeen, tarvitsemmeko sarakkeita siirtymään oikealle puolelle vai siirtymään alaspäin rivien tapauksessa. Tässä voimme käyttää kahta vaihtoehtoa, "xlToRight" ja "xlDownTo"
(Copy Origin): This will specify the format for the newly inserted column. Whether you need the format from the left side of the column or from the above cells. Here we can use two options “xlFormatFromLeftOrAbove” and “xlFormatFromRightOrBelow”.
Below is the example code for you.
Sub ColumnInsert_Example1() Range("B:B").Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove End Sub
Example #4 - Insert Columns Using COLUMNS Property in VBA
We have seen how to VBA insert columns using the RANGE object; now, we will show we can insert columns using the “COLUMNS” property.
Open the COLUMNS property.
Code:
Sub ColumnInsert_Example2() Columns( End Sub
We can specify the column in two ways here. One is using as usual alphabetic references, and another one is using column numbers.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
AlisarakkeessaLisää_esimerkki3 () Himmennä k kokonaislukusarakkeiksi (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ä tätä koodia suorittaaksesi tämän tehtävän.
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
