Tässä opetusohjelmassa tarkastelemme eri tapoja yhdistää solut VBA: n avulla.
Yhdistä solut VBA: n avulla
Voit yhdistää solut VBA: ssa käyttämällä Range.Merge -menetelmää. Seuraava koodi yhdistää solut A1: C1:
12345 | Yhdistämissolut ()Alue ("A1: C1"). YhdistäEnd Sub |
Tulos on:
Poista solut VBA: n avulla
Voit poistaa yhdistetyn solualueen yhdistämisen Range.UnMerge -menetelmällä. Oletetaan, että olet yhdistänyt solualueen A1: D1. Voit käyttää solujen yhdistämistä yhdellä alueen soluviittauksista. Seuraava koodi näyttää solujen A1: D1 yhdistämisen, tässä tapauksessa käytämme solua B1:
12345 | Sub UnmergeCells ()Alue ("B1"). UnMergeEnd Sub |
Lisää esimerkkejä yhdistämisestä
Yhdistä rivit VBA: n avulla
Voit yhdistää rivejä VBA: n avulla määrittämällä rivinumerot, jotka haluat yhdistää. Meillä on teksti solussa A1 alla:
Seuraava koodi yhdistää rivit 1-4:
12345 | Sub MergeRows ()Alue ("1: 4"). YhdistäEnd Sub |
Tulos on:
Yhdistä sarakkeet VBA: n avulla
Voit yhdistää sarakkeita käyttämällä VBA: ta ja sarakkeen kirjaimia. Seuraava koodi yhdistää sarakkeet A: C.
12345 | Yhdistämisen sarakkeet ()Alue ("A: C"). YhdistäEnd Sub |
Tulos on:
Yhdistä ja keskitä solun sisältö vaakasuunnassa
Voit yhdistää ja keskittää solun sisällön vaakasuunnassa solualueella. Sinun on yhdistettävä kiinnostavat solut ja asetettava myös alueobjektin vaakasuora kohdistusominaisuus keskelle. Meillä on teksti solussa A1 alla esitetyllä tavalla:
Seuraava koodi yhdistää solualue A1: D1 ja keskittää solun A1 sisällön vaakasuoraan tämän solualueen poikki:
123456 | Yhdistäminen ja keskustaContentsHorizontally ()Alue ("A1: D1"). YhdistäAlue ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
Tulos on:
Yhdistä ja keskitä solun sisältö pystysuunnassa
Voit yhdistää ja keskittää solun sisällön pystysuoraan solualueella. Sinun on yhdistettävä kiinnostavat solut ja asetettava myös alueobjektin pystysuuntainen kohdistus keskelle. Meillä on teksti solussa A1 alla esitetyllä tavalla:
Seuraava koodi yhdistää solualue A1: A4 ja keskittää solun A1 sisällön pystysuoraan tämän solualueen poikki:
123456 | Sub MergeandCenterContentsVertically ()Alue ("A1: A4"). YhdistäAlue ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
Tulos on:
Yhdistä solut solualueella
Voit yhdistää soluja solualueella. Sinun on asetettava yhdistämistavan valinnainen Across -parametri arvoon True. Meillä on teksti solussa A1 alla esitetyllä tavalla:
Seuraava koodi yhdistää solualue A1: D1:
12345 | Osien yhdistäminenSolutAcross ()Alue ("A1: D1"). Yhdistä koko: = TosiEnd Sub |
Tulos on: