OnKeyDown灬Sona 2018-05-19 09:27 采纳率: 75%
浏览 1760
已采纳

Excel/WPS,如何自定义模板,方便后期修改格式啥的?

(20个以上的表格修改,,,今天一个一个改的要吐了)
如下图,
前两行为标题行 字体加粗加黑 前N列蓝色背景 N-M列如图所示 M-L列绿色背景
后面的行0-----L列 字体 大小 行高 边框固定


最后,,,,C币好商量

图片说明

  • 写回答

6条回答

  • threenewbee 2018-05-19 10:46
    关注

    图片说明

         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列设置为绿色,后面的设置为蓝色
    而且还设置了字体为黑体。

    如果你想进一步了解。采纳本回答,重新提问,提出你的需求,可以给你写一个更适合你的。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(5条)

报告相同问题?