Range("J2:O7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Miten saan tämän solujen värinvaihdon toteutettua muuttujien avulla.
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Miten saan tämän solujen värinvaihdon toteutettua muuttujien avulla.
Vastaukset 4
Vanhimmat
haluatko käyttää muuttujia solujen valintaan (Rangen parametrissa tavalla tai toisella) vai värityksen määrittämiseen.
Tarkoitus on, että sais muuttujilla määritettyä minkä kokoinen alue väritetään.
Range("J2").Select
Selection.Resize(riveja 1, sarakkeita 1 ).Select
Helppoa se on kun osaa