(20个以上的表格修改,,,今天一个一个改的要吐了)
如下图,
前两行为标题行 字体加粗加黑 前N列蓝色背景 N-M列如图所示 M-L列绿色背景
后面的行0-----L列 字体 大小 行高 边框固定
最后,,,,C币好商量
(20个以上的表格修改,,,今天一个一个改的要吐了)
如下图,
前两行为标题行 字体加粗加黑 前N列蓝色背景 N-M列如图所示 M-L列绿色背景
后面的行0-----L列 字体 大小 行高 边框固定
最后,,,,C币好商量
n = Val(InputBox("N=?"))
Range("A1:" & Chr(Asc("A") + n - 1) & "2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range(Chr(Asc("A") + n) & "1:S2").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 12611584
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2:S2").Select
With Selection.Font
.Name = "SimHei"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
这只是一个演示,在这里你输入n,这个宏会自动把前n列设置为绿色,后面的设置为蓝色
而且还设置了字体为黑体。
如果你想进一步了解。采纳本回答,重新提问,提出你的需求,可以给你写一个更适合你的。