基础

Range: 单元格
Selection: 被选中的单元格
Worksheets: 工作表

操作

设置单元格背景颜色

单元格.Interior.ColorIndex = 6 ' Excel 颜色代码
单元格.Interior.Color = RGB(0, 0, 255) ' RGB 颜色代码

设置单元格字体颜色

单元格.Font.ColorIndex = 6 ' Excel 颜色代码
Selection.Font.Color = RGB(0, 255, 0) ' RGB 颜色代码

出错时，继续执行后续代码

On Error Resume Next

复制与粘贴

Range("A1:A11").Select ' 选择区域
Selection.Copy ' 复制
Range("A13").Select  ' 选择一个单元格
ActiveSheet.Paste ' 粘贴

高级

取消工作表/工作薄保护

Sub DeletePW()
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    ActiveSheet.Unprotect
End Sub

参考

调色板 和 56种 Excel ColorIndex 颜色
Excel 2007 使用 ColorIndex 设置颜色

最后修改：2020 年 10 月 13 日 09 : 06 PM
© 允许规范转载
如果觉得文章帮助了您，您可以随意赞赏。