判断单元格颜色

ba3259878266

判断单元格颜色并显示代码  谢谢

2801959927

1. Option Explicit
   
2. Function Fcolor(rng As Range) As Integer
   
3.     Select Case rng.Interior.Color
   
4.         Case 255
   
5.         Fcolor = 3
   
6.         Case 16777215
   
7.         Fcolor = 0
   
8.         Case 5287936
   
9.         Fcolor = 10
   
10.         Case Else
    
11.         Fcolor = 99999
    
12.     End Select
    
13. End Function

复制代码

ba3259878266

2801959927 发表于 2023-2-13 08:54

师傅你好  代码不能启用  怎样做  谢谢

2801959927

ba3259878266 发表于 2023-2-13 09:21
师傅你好  代码不能启用  怎样做  谢谢

是不是excel设置了禁用宏？

ba3259878266

2801959927 发表于 2023-2-13 09:26
是不是excel设置了禁用宏？

师傅 没有啊  你看看

ykcbf1100

颜色数字提取。

ba3259878266

2801959927 发表于 2023-2-13 09:26
是不是excel设置了禁用宏？

师傅 你看看我的对不对

ba3259878266

ykcbf1100 发表于 2023-2-13 09:46
颜色数字提取。

师傅 你好  我打开没有变化  谢谢 怎样设置

ba3259878266

ykcbf1100 发表于 2023-2-13 09:46
颜色数字提取。

师傅 你好  我打开没有变化  谢谢 怎样设置

ykcbf1100

ba3259878266 发表于 2023-2-13 10:00
师傅 你好  我打开没有变化  谢谢 怎样设置

你对VBA是小白吗？运行VBA代码啊。或者，直接在表上放个按钮。