U ovom vodiču ćemo pogledati različite načine na koje možete spojiti ćelije pomoću VBA.
Spoji ćelije pomoću VBA
Možete spojiti ćelije u VBA pomoću metode Range.Merge. Sljedeći kôd će spojiti ćelije A1: C1:
12345 | Sub MergingCells ()Raspon ("A1: C1"). SpojiKraj podm |
Rezultat je:
Odvojite ćelije pomoću VBA
Spojeni raspon ćelija možete ukloniti pomoću metode Range.UnMerge. Recimo da ste spojili raspon ćelija A1: D1. Za uklanjanje ćelija možete upotrijebiti jednu od referenci ćelija u rasponu. Sljedeći kôd pokazuje vam kako ukloniti ćelije A1: D1, u ovom slučaju koristimo ćeliju B1:
12345 | Sub UnmergeCells ()Raspon ("B1"). Poništi spajanjeKraj podm |
Više primjera spajanja
Spoji redove pomoću VBA
Možete spojiti retke pomoću VBA -a navođenjem brojeva redaka koje želite spojiti. U donjoj ćeliji A1 imamo tekst prikazan ispod:
Sljedeći kôd će spojiti retke 1-4:
12345 | Sub MergeRows ()Raspon ("1: 4"). SpojiKraj podm |
Rezultat je:
Spoji stupce pomoću VBA
Možete spojiti stupce pomoću VBA i slova stupaca. Sljedeći kôd će spojiti stupce A: C.
12345 | Sub MergeColumns ()Raspon ("A: C"). SpojiKraj podm |
Rezultat je:
Spoji i centriraj sadržaj ćelije vodoravno
Sadržaj ćelije možete spojiti i centrirati vodoravno u rasponu ćelija. Morate spojiti ćelije od interesa i također postaviti svojstvo vodoravnog poravnanja objekta raspona u središte. Imamo tekst u ćeliji A1 kako je dolje prikazano:
Sljedeći će kôd spojiti raspon ćelija A1: D1 i centrirati sadržaj ćelije A1 vodoravno po cijelom rasponu ćelija:
123456 | Sub MergeandCenterContentsHorizontally ()Raspon ("A1: D1"). SpojiRaspon ("A1: D1"). HorizontalAlignment = xlCenterKraj podm |
Rezultat je:
Spajanje i centriranje sadržaja ćelije okomito
Sadržaj ćelije možete spojiti i centrirati okomito u rasponu ćelija. Morate spojiti ćelije od interesa i također postaviti svojstvo okomitog poravnanja objekta raspona u središte. Imamo tekst u ćeliji A1 kako je dolje prikazano:
Sljedeći će kôd spojiti raspon ćelija A1: A4 i centrirati sadržaj ćelije A1 okomito po cijelom rasponu ćelija:
123456 | Sub MergeandCenterContentsVertical ()Raspon ("A1: A4"). SpojiRaspon ("A1: D1"). Vertikalno poravnanje = xlCenterKraj podm |
Rezultat je:
Spoji ćelije u čitavom rasponu ćelija
Možete spojiti ćelije u rasponu ćelija. Opcijski parametar Across metode Merge morate postaviti na True. Imamo tekst u ćeliji A1 kako je dolje prikazano:
Sljedeći kôd će spojiti raspon ćelija A1: D1:
12345 | Sub MergeCellsAcross ()Raspon ("A1: D1"). Spajanje preko: = IstinaKraj podm |
Rezultat je: