I denne opplæringen skal vi se på de forskjellige måtene du kan slå sammen celler ved hjelp av VBA.
Slå sammen celler ved hjelp av VBA
Du kan slå sammen celler i VBA ved hjelp av Range.Merge -metoden. Følgende kode vil slå sammen cellene A1: C1:
12345 | Sub MergingCells ()Område ("A1: C1"). Slå sammenSlutt Sub |
Resultatet er:
Koble sammen celler ved hjelp av VBA
Du kan fusjonere et sammenslått celleområde ved hjelp av metoden Range.UnMerge. La oss si at du har slått sammen celleområdet A1: D1. Du kan bruke en av cellereferansene i området for å slå sammen cellene. Følgende kode viser deg hvordan du slår sammen celler A1: D1, i dette tilfellet bruker vi celle B1:
12345 | Sub UnmergeCells ()Område ("B1"). UnmerggeSlutt Sub |
Flere fletteeksempler
Slå sammen rader ved hjelp av VBA
Du kan slå sammen rader ved hjelp av VBA ved å spesifisere radnummerene du vil slå sammen. Vi har teksten i celle A1 vist nedenfor:
Følgende kode vil slå sammen rad 1-4:
12345 | Sub MergeRows ()Område ("1: 4"). Slå sammenSlutt Sub |
Resultatet er:
Slå sammen kolonner ved hjelp av VBA
Du kan slå sammen kolonner ved hjelp av VBA og kolonnebokstavene. Følgende kode vil slå sammen kolonner A: C.
12345 | Sub MergeColumns ()Område ("A: C"). Slå sammenSlutt Sub |
Resultatet er:
Slå sammen og sentrer celleinnholdet horisontalt
Du kan slå sammen og sentrere celleinnhold horisontalt over et celleområde. Du må slå sammen cellene av interesse og også sette den horisontale justeringsegenskapen til områdeobjektet til å sentrere. Vi har teksten i celle A1 som vist nedenfor:
Følgende kode vil slå sammen celleområdet A1: D1 og sentrere innholdet i celle A1 horisontalt over dette celleområdet:
123456 | Sub MergeandCenterContentsHorizontally ()Område ("A1: D1"). Slå sammenOmråde ("A1: D1"). HorizontalAlignment = xlCenterSlutt Sub |
Resultatet er:
Slå sammen og sentrer celleinnhold vertikalt
Du kan slå sammen og sentrere celleinnhold vertikalt over et celleområde. Du må slå sammen cellene av interesse og også sette den vertikale justeringsegenskapen til områdeobjektet til å sentrere. Vi har teksten i celle A1 som vist nedenfor:
Følgende kode vil slå sammen celleområdet A1: A4 og sentrere innholdet i celle A1 vertikalt over dette celleområdet:
123456 | Sub MergeandCenterContentsVertically ()Område ("A1: A4"). Slå sammenOmråde ("A1: D1"). VerticalAlignment = xlCenterSlutt Sub |
Resultatet er:
Slå sammen celler over et celleområde
Du kan slå sammen celler på tvers av et celleområde. Du må sette den valgfrie Across -parameteren i flettemetoden til True. Vi har teksten i celle A1 som vist nedenfor:
Følgende kode vil slå sammen celleområdet A1: D1:
12345 | Sub MergeCellsAcross ()Område ("A1: D1"). Slå sammen: = TrueSlutt Sub |
Resultatet er: