I denne vejledning vil vi se på de forskellige måder, du kan flette celler ved hjælp af VBA.
Flet celler ved hjælp af VBA
Du kan flette celler i VBA ved hjælp af metoden Range.Merge. Følgende kode vil flette celler A1: C1:
12345 | Sub FletningCeller ()Område ("A1: C1"). FletAfslut Sub |
Resultatet er:
Slå celler sammen ved hjælp af VBA
Du kan opløse et flettet celleområde ved hjælp af metoden Range.UnMerge. Lad os sige, at du har fusioneret celleområdet A1: D1. Du kan bruge en af cellereferencerne i området til at opløse cellerne. Følgende kode viser dig, hvordan du fjerner celler A1: D1, i dette tilfælde bruger vi celle B1:
12345 | Sub UnmergeCells ()Område ("B1"). Fjern fletningAfslut Sub |
Flere fletteeksempler
Flet rækker ved hjælp af VBA
Du kan flette rækker ved hjælp af VBA ved at angive de rækkenumre, du vil flette. Vi har teksten i celle A1 vist nedenfor:
Følgende kode vil flette rækker 1-4:
12345 | Sub MergeRows ()Område ("1: 4"). FletAfslut Sub |
Resultatet er:
Flet kolonner ved hjælp af VBA
Du kan flette kolonner ved hjælp af VBA og kolonnebogstaverne. Følgende kode vil flette kolonner A: C.
12345 | Sub MergeColumns ()Område ("A: C"). FletAfslut Sub |
Resultatet er:
Flet og centrer celleindhold vandret
Du kan flette og centrere celleindhold vandret på tværs af et celleområde. Du er nødt til at flette cellerne af interesse og også indstille den horisontale justeringsegenskab for områdeobjektet til at centrere. Vi har teksten i celle A1 som vist herunder:
Følgende kode vil flette celleområdet A1: D1 og centrere indholdet af celle A1 vandret på tværs af dette celleområde:
123456 | Sub MergeandCenterContentsHorizontalt ()Område ("A1: D1"). FletOmråde ("A1: D1"). HorizontalAlignment = xlCenterAfslut Sub |
Resultatet er:
Flet og centrer celleindhold lodret
Du kan flette og centrere celleindhold lodret på tværs af et celleområde. Du er nødt til at flette cellerne af interesse og også indstille egenskaben for lodret tilpasning af områdeobjektet til at centrere. Vi har teksten i celle A1 som vist herunder:
Følgende kode vil flette celleområdet A1: A4 og centrere indholdet af celle A1 lodret på tværs af dette celleområde:
123456 | Sub MergeandCenterContentsVertically ()Område ("A1: A4"). FletOmråde ("A1: D1"). VerticalAlignment = xlCenterAfslut Sub |
Resultatet er:
Flette celler på tværs af et celleområde
Du kan flette celler på tværs af et celleområde. Du skal indstille den valgfri Across -parameter for fletningsmetoden til True. Vi har teksten i celle A1 som vist herunder:
Følgende kode vil flette celleområdet A1: D1:
12345 | Sub MergeCellsAcross ()Område ("A1: D1"). Flet på tværs: = SandtAfslut Sub |
Resultatet er: