Tämä opetusohjelma näyttää, kuinka solut muotoillaan VBA: n avulla.
Solujen muotoilu
On olemassa monia ominaisuuksia, jotka voidaan asettaa solualueille (näin):
| 1234567891011 | OsajoukkoSolumuoto ()Laskentataulukoilla ("Sheet1"). Alue ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = Totta.Font.FontStyle = "Kursivoitu".NumberFormat = "Yleistä".Interior.Color = RGB (128, 100, 250)LopetaEnd Sub |
Katsotaan ne aakkosjärjestyksessä:
AddIndent
Kun tämän ominaisuuden arvoksi on määritetty Tosi, teksti sisennetään automaattisesti, kun tekstin tasaus solussa on asetettu joko vaakasuoraan tai pystysuoraan tasavertaiseksi (katso HorizontalAlignment ja VerticalAlignment).
| 12345 | Laskentataulukoilla ("Sheet1"). Alue ("A1")Suunta = xlVertikaalinen.VerticalAlignment = xlVAlignDistributed.AddIndent = TottaLopeta |
Rajat
Voit asettaa solun reunamuodon. Katso täältä lisätietoja rajoista.
Esimerkkinä voit asettaa punaisen katkoviivan taulukon 1 solun B2 ympärille seuraavasti:
| 1 | Laskentataulukot ("Sheet1"). Alue ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Fontti
Voit säätää solun fonttimuotoa asettamalla fontin nimen, tyylin, koon, värin, lisäämällä alleviivoja ja / tai tehosteita (yliviivattu, ala- tai yläindeksi). Katso täältä lisätietoja solun kirjasimista.
Tässä muutamia esimerkkejä:
| 12345 | Alueella ("A1: C5"). Fontti.Name = "Vuosisata".FontStyle = "Lihavoitu".Yliviivaus = TottaLopeta |
KaavaPiilotettu
Tämä ominaisuus palauttaa tai asettaa muunnoksen arvon, joka osoittaa, piilotetaanko kaava, kun laskentataulukko on suojattu. Esimerkiksi:
| 1 | Laskentataulukot ("Sheet1"). Alue ("A1: B1"). FormulaHidden = True |
Vaakasuora kohdistaminen
Tämä ominaisuus solumuoto ominaisuus palauttaa tai asettaa muunnoksen arvon, joka edustaa määritetyn objektin vaakasuuntaista kohdistusta. Palautetut tai asetetut vakiot voivat olla: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Esimerkiksi:
| 1 | Laskentataulukot ("Sheet1"). Alue ("D3"). HorizontalAlignment = xlRight |
IndentLevel
Se palauttaa tai asettaa kokonaislukuarvon 0 ja 15 välillä, joka edustaa solun tai alueen sisennystasoa.
| 1 | Laskentataulukot ("Sheet1"). Alue ("A1"). IndentLevel = 7 |
Sisustus
Voit asettaa tai saada palautettuja tietoja solun sisätiloista: sen väri, ColorIndex, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, kuten tämä:
| 123 | Jos ei alue ("A1"). Interior.ThemeColor = ThemeColorLight2 SittenAlue ("A1"). Interior.Pattern = xlPatternUpLoppu Jos |
Lukittu
Tämä ominaisuus palauttaa True, jos solu tai alue on lukittu, epätosi, jos objektia voidaan muokata, kun taulukko on suojattu, tai Null, jos määritetty alue sisältää sekä lukittuja että lukitsemattomia soluja. Sitä voidaan käyttää myös solujen lukitsemiseen tai avaamiseen.
Tämä esimerkki avaa taulukon 1 solujen A1: B2 lukituksen, jotta niitä voidaan muokata, kun arkki on suojattu.
| 12 | Laskentataulukot ("Sheet1"). Alue ("A1: B2"). Lukittu = epätosiLaskentataulukot ("Sheet1"). Suojaa |
Yhdistää soluja
Aseta tämän ominaisuuden arvoksi Tosi, jos haluat yhdistää alueen. Sen arvo on tosi, jos määritetty alue sisältää yhdistettyjä soluja. Jos esimerkiksi haluat yhdistää alueen C5: D7, voit käyttää tätä koodia:
| 1 | Laskentataulukot ("Sheet1"). Alue ("C5: D7"). MergeCells = True |
NumberFormat
Voit asettaa solumuotoisen numeromuodon asetuksiksi Yleiset, Numero, Valuutta, Kirjanpito, Päivämäärä, Aika, Prosentti, Murtoluku, Tieteellinen, Teksti, Erikois ja Mukautettu.
Tässä on esimerkkejä tieteellisistä ja prosenttiluvuista:
| 12 | Alue ("A1"). NumberFormat = "0.00E+00"Alue ("B1"). NumberFormat = "0.00%" |
NumberFormatLocal
Tämä ominaisuus palauttaa tai asettaa muunnoksen arvon, joka edustaa objektin muotokoodia merkkijonona käyttäjän kielellä.
Suuntautuminen
Voit määrittää (tai palauttaa) tekstin suunnan soluissa tämän ominaisuuden avulla. Sen arvo voi olla jokin näistä vakioista: xlDownward, xlHorizontal, xlUpward, xlVertical tai kokonaisluku -90 -90 astetta.
| 1 | Laskentataulukot ("Sheet1"). Alue ("A1"). Suunta = -60 |
Vanhempi
Tämä on vain luku -ominaisuus, joka palauttaa määritetyn objektin pääobjektin.
Kutistetaan sopivaksi
Tämä ominaisuus palauttaa tai asettaa muunnoksen arvon, joka ilmaisee, kutistuuko teksti automaattisesti sopimaan käytettävissä olevaan sarakeleveyteen.
| 1 | Laskentataulukot ("Sheet1"). Alue ("A1"). ShrinkToFit = True |
Pystysuora kohdistus
Tämä ominaisuus solumuoto ominaisuus palauttaa tai asettaa muunnoksen arvon, joka edustaa määritetyn objektin pystysuuntaista kohdistusta. Palautetut tai asetetut vakiot voivat olla: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Esimerkiksi:
| 1 | Laskentataulukot ("Sheet1"). Alue ("A1"). VerticalAlignment = xlTop |
WrapText
Tämä ominaisuus palauttaa True, jos teksti on kääritty kaikkiin soluihin määritetyllä alueella, epätosi, jos teksti ei ole kääritty kaikkiin soluihin määritetyllä alueella, tai Null, jos määritetty alue sisältää joitain soluja, jotka käärivät tekstiä ja muita soluja, jotka eivät.
Jos sinulla on esimerkiksi tämä solualue:
tämä alla oleva koodi palauttaa tyhjäksi ikkunassa:
| 1 | ? Laskentataulukot ("Sheet1"). Alue ("A1: B1"). WrapText |
