求助！单元格颜色判断并转换

jjgxbd · 发表于 2022-7-2 06:41

本帖最后由 jjgxbd 于 2022-7-2 06:45 编辑

大师：能否根据变量，通过某列单元格的颜色判断，如黄色设为数据0，其它颜色设为数值1，依次将它们找出，并显示出来（如下图）？又有劳大师帮助了！

我的EXCEL是 2003版本，还请大师用函数处理。谢谢！

xiangbaoan · 发表于 2022-7-2 09:04

本帖最后由 xiangbaoan 于 2022-7-2 09:46 编辑

函数版块有位大版主说，函数是色盲……

补一个猜想的.zip (12.23 KB, 下载次数: 1)

jjgxbd · 发表于 2022-7-2 11:17

xiangbaoan 发表于 2022-7-2 09:04
函数版块有位大版主说，函数是色盲……

老师：您的《补一个猜想的》中没有函数呀

xiangbaoan · 发表于 2022-7-2 11:22

jjgxbd 发表于 2022-7-2 11:17
老师：您的《补一个猜想的》中没有函数呀

改E2单元格，会自动变化
函数做不出来。

jjgxbd · 发表于 2022-7-2 12:31

xiangbaoan 发表于 2022-7-2 11:22
改E2单元格，会自动变化
函数做不出来。

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$E$2" Then Exit Sub
  Dim Ran As Range, Cel As Range
  Set Cel = Range(Range("E2"))
  Set Ran = Cel.Offset(1).Resize(Range("A:D").SpecialCells(xlCellTypeLastCell).Row - Cel.Row)
  For Each Cel In Ran
If Cel.Interior.ColorIndex = 6 Then Cells(Cel.Row, 6) = 0 Else Cells(Cel.Row, 6) = 1
  Next
End Sub
------------------------------------------------------
老师：好像执行不下去

jjgxbd · 发表于 2022-7-2 13:28

谢谢老师！但程序执行时有错误，执行不下去。

xiangbaoan · 发表于 2022-7-3 07:05

jjgxbd 发表于 2022-7-2 12:31
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$E$2" Then Exit Sub
...

你要改变E2单元格的值，才会有结果，如改为 c2 、d2 ……

jjgxbd · 发表于 2022-7-3 07:28

jjgxbd 发表于 2022-7-2 13:28
谢谢老师！但程序执行时有错误，执行不下去。

谢谢老师！懂了

		自动登录	找回密码
密码			免费注册