判断单元格颜色

ba3259878266

ykcbf1100 发表于 2023-2-13 10:26
你对VBA是小白吗？运行VBA代码啊。或者，直接在表上放个按钮。

师傅 是的  不太懂  麻烦你帮忙写一下  行排列的  谢谢了

ba3259878266

ykcbf1100 发表于 2023-2-13 10:26
你对VBA是小白吗？运行VBA代码啊。或者，直接在表上放个按钮。

师傅 是的  不太懂  麻烦你帮忙写一下  行排列的  谢谢了

ba3259878266

ba3259878266 发表于 2023-2-13 10:40
师傅 是的  不太懂  麻烦你帮忙写一下  行排列的  谢谢了

这个附件 谢谢你

ykcbf1100

ba3259878266 发表于 2023-2-13 10:40
师傅 是的  不太懂  麻烦你帮忙写一下  行排列的  谢谢了

代码我不是写了吗？你没看？
表上给你放个按键，你改变颜色后，按一下按钮就行了。
我只能帮你到这里了，祝你好运！

2801959927

ba3259878266 发表于 2023-2-13 09:46
师傅 你看看我的对不对

不需要添加按钮，启用宏之后，使用Fcolor()函数就可以，看我的附件

ba3259878266

2801959927 发表于 2023-2-13 11:32
不需要添加按钮，启用宏之后，使用Fcolor()函数就可以，看我的附件

师傅 你的附件在哪  谢谢

ba3259878266

ykcbf1100 发表于 2023-2-13 11:04
代码我不是写了吗？你没看？
表上给你放个按键，你改变颜色后，按一下按钮就行了。
我只能帮你到这里了 ...

师傅 如果是  提取第3行颜色代码  怎样写  我真不懂  麻烦你帮忙写一下   看看这个附件

2801959927

ba3259878266 发表于 2023-2-13 13:19
师傅 你的附件在哪  谢谢

看我表格里的E列，定义的Fcolor()函数可以直接在表格里使用，就像IF()函数一样

ba3259878266

2801959927 发表于 2023-2-13 14:03
看我表格里的E列，定义的Fcolor()函数可以直接在表格里使用，就像IF()函数一样

师傅 谢谢  不方便  每次改变颜色后都要刷新的

2801959927

ba3259878266 发表于 2023-2-13 14:12
师傅 谢谢  不方便  每次改变颜色后都要刷新的

代码放进sheet1的worksheet change事件里，B列颜色改变，E列就有对应数字更新。

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Target.Column <> 2 Then End
   
4.     Select Case Target.Interior.Color
   
5.         Case 255
   
6.         Target.Offset(0, 3) = 3
   
7.         Case 16777215
   
8.         Target.Offset(0, 3) = 0
   
9.         Case 5287936
   
10.         Target.Offset(0, 3) = 10
    
11.         Case Else
    
12.         Target.Offset(0, 3) = 99999
    
13.     End Select
    
14. End Sub

复制代码