白底黑字

/db_自贡黄明儒_ · 发表于 2016-12-20 15:28:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面是我使用excel时常进行的操作，代码很简单。高手请略过...
''白底黑字

Sub Automatic1()
    On Error Resume Next '出现错误继续
    Application.ScreenUpdating = False '关闭屏幕刷新，加快程序运行
    With ActiveSheet.UsedRange.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With ActiveSheet.UsedRange.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Application.ScreenUpdating = True '打开屏幕刷新
    
End Sub

qqqincccken · 发表于 2016-12-21 00:11:26

谢谢提供，学习了，有空玩玩！！

账号		自动登录	找回密码
密码			立即注册

[分享] 白底黑字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。