给单元格填色

sheen328

在8*9的区域内，随机出现个数不限的1-5的数字，按规则给单元格填上颜色

规则如图，表格版本wps16929

单元格内有5时，如5图单元格，即给所在行列上下左右四部分内，若各部分行列①没有其它数不填色，②只有一个其它数，则隔着此数填色，③有其它两个或者以上，则在与自己最近的第一个数（不包含此数所在单元格）和第二个数（包含此数所在单元格）之间的单元格填色，其它区域不填色。

hxj119

建议去VBA版块问问

sheen328

hxj119 发表于 2024-5-31 11:03
建议去VBA版块问问

谢谢你

sheen328

单元格内有5时，如左图单元格，即给所在行列上下左右四部分内，若各部分行列①没有其它数不填色，②只有一个其它数，则隔着此数填色，③有其它两个或者以上，则在与自己最近的第一个数（不包含此数所在单元格）和第二个数（包含此数所在单元格）之间的单元格填色，其它区域不填色。

大灰狼1976

只对1-4感兴趣，简单示例

1. Sub test()
   
2. Dim n&, i&, rw&, clm&
   
3. rw = 8: clm = 13
   
4. n = 3
   
5. For i = Int(n / 2) To -Int(-n / 2)
   
6.   r = i
   
7.   c = n - i
   
8.   Union(Cells(rw + r, clm + c), Cells(rw + r, clm - c), Cells(rw - r, clm + c), Cells(rw - r, clm - c)).Interior.Color = vbRed
   
9. Next i
   
10. End Sub

复制代码