See õpetus näitab, kuidas kasutada VBA -d Exceli ridade ja veergude lisamiseks.
Ridade või veergude sisestamiseks kasutame Sisestamise meetod.
Sisestage üks rida või veerg
Sisestage uus rida
Ühe rea lisamiseks võite kasutada ridaobjekti:
| 1 | Ridad (4). Sisestage |
Või saate kasutada vahemiku objekti koos EntireRow'iga:
| 1 | Vahemik ("b4"). EntireRow.Insert |
Sisestage uus veerg
Sarnaselt ridade sisestamisega saame veeru sisestamiseks kasutada veergude objekti:
| 1 | Veerud (4). Sisestage |
Või vahemiku objekt koos kogu veeruga:
| 1 | Vahemik ("b4"). Kogu veerg. Sisesta |
Sisestage mitu rida või veergu
Sisestage mitu rida
Kui lisate objektiga Ridad mitu rida, peate need ridu sisestama tsitaatides:
| 1 | Ridad ("4: 6"). Sisestage |
Mitme rea lisamine vahemikuobjektiga toimib samamoodi nagu ühe reaga:
| 1 | Vahemik ("b4: b6"). EntireRow.Insert |
Sisestage mitu veergu
Kui lisate veeru veergudega veergude objekti, sisestage veerg kirjad tsitaatides:
| 1 | Veerud ("B: D"). Sisesta |
Mitme veeru sisestamine vahemikuobjektiga toimib samamoodi nagu ühe veeru puhul:
| 1 | Vahemik ("b4: d4"). Kogu veerg. Sisesta |
Lisa - Shift & CopyOrigin
The Sisestamise meetod sellel on kaks valikulist argumenti:
- Vahetus - Millises suunas rakke nihutada
- CopyOrigin - millist lahtri vormingut kopeerida (ülal, all, vasakul või paremal)
Argument Shift pole tervete ridade või veergude sisestamisel asjakohane. See võimaldab teil näidata ainult alla või paremale nihutamist:
- xlShiftDown - Nihutage lahtrid alla
- xlShiftToRight - Nihutage lahtreid paremale
Nagu näete, ei saa te üles ega paremale liikuda.
The CopyOrigin argumendil on kaks potentsiaalset sisendit:
- xlFormatFromLeftorAbove - (0) Äsja sisestatud lahtrid vormindatakse ülal või vasakul olevatest lahtritest
- xlFormatFromRightorBelow (1) Äsja sisestatud lahtrid vormindatakse lahtritest allpool või paremal.
Vaatame mõningaid näiteid CopyOrigin vaidlus. Siin on meie esialgsed andmed:
See näide lisab rea, võttes vormingu ülaltoodud reast.
| 1 | Ridad (5). Lisa, xlFormatFromLeftOrAbove |
See näide lisab rea, võttes vormistuse alumisest reast.
| 1 | Ridad (5). Sisestage xlFormatFromRightOrBelow |
Muud lisanäited
Sisestage kopeeritud read või veerud
Kui soovite kopeeritud rea sisestada, kasutage järgmist koodi:
| 12 | Vahemik ("1: 1"). KopeeriVahemik ("5: 5"). Sisesta |
Siin kopeerime rea 1 ja sisestame selle reale 5.
Sisestage read lahtri väärtuse alusel
See liigub läbi vahemiku, lisades lahtrite väärtuste põhjal ridu:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Hämardage rakk vahemikunaIga vahemiku lahtri kohta ("b2: b20")Kui cell.Value = "insert" Siiscell.EntireRow.InsertLõpp KuiJärgmine lahterEnd Sub |
Kustuta read või veerud
Ridade või veergude kustutamiseks kasutage lihtsalt Kustuta meetod.
| 1234567 | Ridad (1). KustutaVahemik ("a1"). EntireRow.DeleteVeerud (1). KustutaVahemik ("a1"). Kogu veerg. Kustuta |
