V tej vadnici bomo pogledali različne načine združevanja celic z uporabo VBA.
Združite celice z uporabo VBA
Celice v VBA lahko združite z metodo Range.Merge. Naslednja koda bo združila celice A1: C1:
12345 | Sub MergingCells ()Obseg ("A1: C1"). SpojiEnd Sub |
Rezultat je:
Odstranite celice z uporabo VBA
Združeni obseg celic lahko odstranite z metodo Range.UnMerge. Recimo, da ste združili obseg celic A1: D1. Za odstranitev celic lahko uporabite eno od referenc celic v obsegu. Naslednja koda prikazuje, kako odstraniti celice A1: D1, v tem primeru uporabljamo celico B1:
12345 | Sub UnmergeCells ()Razpon ("B1"). OdstraniEnd Sub |
Več primerov združevanja
Združite vrstice z uporabo VBA
Vrstice lahko združite z uporabo VBA tako, da podate številke vrstic, ki jih želite združiti. Besedilo v celici A1 je prikazano spodaj:
Naslednja koda bo združila vrstice 1-4:
12345 | Sub MergeRows ()Obseg ("1: 4"). SpojiEnd Sub |
Rezultat je:
Združite stolpce z uporabo VBA
Stolpce lahko združite z uporabo VBA in črk stolpcev. Naslednja koda bo združila stolpce A: C.
12345 | Sub MergeColumns ()Razpon ("A: C"). ZdružiteEnd Sub |
Rezultat je:
Združite in centrirajte vsebino celic vodoravno
Vsebino celic lahko združite in centrirate vodoravno po obsegu celic. Morate združiti celice, ki vas zanimajo, in lastnost vodoravne poravnave predmeta obsega nastaviti na sredino. V celici A1 imamo besedilo, kot je prikazano spodaj:
Naslednja koda bo združila obseg celic A1: D1 in vsebino celice A1 centrirala vodoravno v tem območju celic:
123456 | Sub MergeandCenterContentsHorizontally ()Obseg ("A1: D1"). SpojiObseg ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Rezultat je:
Združi in centriraj vsebino celice navpično
Vsebino celic lahko združite in centrirate navpično po obsegu celic. Morate združiti zanimive celice in lastnost navpične poravnave predmeta obsega nastaviti na sredino. V celici A1 imamo besedilo, kot je prikazano spodaj:
Naslednja koda bo združila obseg celic A1: A4 in vsebino celice A1 usmerila navpično v to območje celic:
123456 | Sub MergeandCenterContentsVertical ()Obseg ("A1: A4"). ZdružiteObseg ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Rezultat je:
Združite celice v celičnem območju
Celice lahko združite v celični obseg. Izbirni parameter Across metode Merge morate nastaviti na True. V celici A1 imamo besedilo, kot je prikazano spodaj:
Naslednja koda bo združila obseg celic A1: D1:
12345 | Sub MergeCellsAcross ()Obseg ("A1: D1"). Spojite čez: = TrueEnd Sub |
Rezultat je: