Selles õpetuses vaatame erinevaid viise, kuidas saate lahtreid VBA abil ühendada.
Ühendage lahtrid VBA abil
Saate VBA lahtreid ühendada, kasutades meetodit Range.Merge. Järgmine kood ühendab lahtrid A1: C1:
| 12345 | Alamühendavad lahtrid ()Vahemik ("A1: C1"). ÜhendaEnd Sub |
Tulemuseks on:
Lahutage lahtrid VBA abil
Ühendatud lahtrivahemiku saate ühendada, kasutades meetodit Range.UnMerge. Oletame, et ühendasite lahtrivahemiku A1: D1. Lahtrite ühendamiseks saate kasutada ühte vahemiku lahtriviidetest. Järgmine kood näitab, kuidas lahtrid A1: D1 ühendada, sel juhul kasutame lahtrit B1:
| 12345 | Sub UngeCCells ()Vahemik ("B1"). UnMergeEnd Sub |
Veel ühendamise näiteid
Ühendage read VBA abil
Saate ridu ühendada VBA abil, määrates ridade numbrid, mida soovite ühendada. Meil on tekst lahtris A1, mis on näidatud allpool:
Järgmine kood ühendab read 1-4:
| 12345 | Sub MergeRows ()Vahemik ("1: 4"). ÜhendaEnd Sub |
Tulemuseks on:
Ühendage veerud VBA abil
Veerge saate ühendada VBA ja veerutähtede abil. Järgmine kood ühendab veerud A: C.
| 12345 | Alamühendamise veerud ()Vahemik ("A: C"). ÜhendaEnd Sub |
Tulemuseks on:
Ühendage ja tsentreerige lahtrite sisu horisontaalselt
Lahtrite sisu saate ühendada ja tsentreerida horisontaalselt kogu lahtrivahemikus. Peate ühendama huvipakkuvad lahtrid ja seadma ka vahemiku objekti horisontaalse joondamise atribuudi keskele. Lahtris A1 on järgmine tekst:
Järgmine kood ühendab lahtrivahemiku A1: D1 ja tsentreerib lahtri A1 sisu horisontaalselt selle lahtrivahemiku ulatuses:
| 123456 | Sub MergeandCenterContentsHorizontally ()Vahemik ("A1: D1"). ÜhendaVahemik ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Tulemuseks on:
Ühendage ja tsentreerige lahtrite sisu vertikaalselt
Lahtrite sisu saate ühendada ja tsentreerida vertikaalselt üle lahtrivahemiku. Peate ühendama huvipakkuvad lahtrid ja seadma ka vahemiku objekti vertikaalse joondamise atribuudi keskele. Lahtris A1 on järgmine tekst:
Järgmine kood ühendab lahtrivahemiku A1: A4 ja tsentreerib lahtri A1 sisu selles lahtrivahemikus vertikaalselt:
| 123456 | Sub MergeandCenterContentsVertically ()Vahemik ("A1: A4"). ÜhendaVahemik ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Tulemuseks on:
Ühendage rakud kogu vahemikus
Lahtreid saab ühendada kogu vahemiku ulatuses. Ühendamismeetodi valikuliseks parameetriks Across peate määrama True. Lahtris A1 on järgmine tekst:
Järgmine kood ühendab lahtrite vahemiku A1: D1:
| 12345 | Sub MergeCellsAcross ()Vahemik ("A1: D1"). Ühenda risti: = TõsiEnd Sub |
Tulemuseks on:
