判断单元格颜色

ba3259878266

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

师傅 麻烦你帮我写一下第二个按钮代码  谢谢  本人水平有限  麻烦了

tanglf188

tanglf188

tanglf188 发表于 2023-2-13 19:44

补充二合一代码：

1. Sub 二合一()
   
2.     For Each mc In Union(Sheet1.Range("B1:B10"), Sheet1.Range("H6:P6"))
   
3.         If mc.Column > 3 Then mc.Offset(2, 0) = mc.Interior.ColorIndex
   
4.         If mc.Column < 3 Then mc.Offset(0, 1) = mc.Interior.ColorIndex
   
5.     Next
   
6. End Sub
   

复制代码

准提部林

填完色, 跳出單元格, 自動變更公式值
xxx333.rar (12.41 KB, 下载次数: 4)

2023-2-13 21:09 上传

点击文件名下载附件

ba3259878266

tanglf188 发表于 2023-2-13 19:44

师傅 非常感谢  谢谢

ba3259878266

准提部林 发表于 2023-2-13 21:10
填完色, 跳出單元格, 自動變更公式值

师傅 这个更加实用  谢谢  能不能具体注明一下怎样标示 B2:B20 和在对应的D列显示 H6:P6 和在对应的第9行显示  本人水平有限  请教了  因为需要用到别个地方操作

Function GetColor(R As Range)
Application.Volatile
GetColor = R.Interior.ColorIndex
End Function



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Item(1).Calculate
End Sub

ba3259878266

准提部林 发表于 2023-2-13 21:10
填完色, 跳出單元格, 自動變更公式值

师傅 这个更加实用  谢谢  能不能具体注明一下怎样标示 B2:B20 和对应的D列显示 H6:P6 和对应的第9行显示  本人水平有限  请教了  因为需要用到别个地方操作



Function GetColor(R As Range)
Application.Volatile
GetColor = R.Interior.ColorIndex
End Function



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Item(1).Calculate
End Sub

ba3259878266

准提部林 发表于 2023-2-13 21:10
填完色, 跳出單元格, 自動變更公式值

师傅 已经解决了  谢谢你