admin管理员组

文章数量:1609530

Excel 制作色卡

先上效果图：

最近学习色卡制作，遇到一个需要根据excel单元格内RGB值批量修改对应单元格背景色的问题，翻阅了一些VBA教程，算是入了个门，写一下关于解决这个问题的过程，希望对遇到相同问题的人有所帮助。

1.打开excel文件，在第E列按照R，G，B格式填写好色卡，如图1。切记分隔符号采用英文逗号，单元格格式为文本。（对VBA非常熟的忽视这个规定，因为代码需要根据这个拆分RGB）

图1a

图1b

2.右键点击工作表sheet1，选择查看代码。

图2

3.粘贴代码，并点击小三角运行，关闭VAB对话框，效果如图4.

图3

图4

VBA代码

Sub RGB_XX()

Dim i As Integer
Dim e As Integer


Dim R As String
Dim G As String
Dim B As String

e = ActiveSheet.[E65536].End(xlUp).Row


For i = 1 To e



R = Split(Cells(i, "E"), ",")(0)
G = Split(Cells(i, "E"), ",")(1)
B = Split(Cells(i, "E"), ",")(2)

Cells(i, "E").Interior.Color = RGB(R, G, B)

Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

整理一下，完成色卡制作：

本文标签： 色卡Excel

版权声明：本文标题：Excel 制作色卡 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dongtai/1728571445a1164233.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。