求助大神，满足条件时实现变色，包含存在合并单元格时合并单元格所在的所有行

WYSYJ

求助大神，编写一个代码程序

wbjjzhu

简单一些，出库标记列不合并单元格，用条件格式就可以处理。

Doris丶煉獄Hà

你这需求都没说明白,那些大神又不是神仙

spaghetti8

很简单的事,就一个for循环,两三句话.

WYSYJ

spaghetti8 发表于 2024-12-1 14:50
很简单的事,就一个for循环,两三句话.

您好，下载后不能用，显示无法运行宏，能重新发我一下吗？谢谢！

一江春水1688

WYSYJ 发表于 2024-12-1 15:13
您好，下载后不能用，显示无法运行宏，能重新发我一下吗？谢谢！

我的理解力不够，看了4楼代码，才知道楼主的要求。
可能跟vba环境下的按钮有关，在wps下安装vba试试。或者把四楼附件中的按钮，替换成wps jsa自带的按钮，应该就没问题了。

spaghetti8

WYSYJ 发表于 2024-12-1 15:13
您好，下载后不能用，显示无法运行宏，能重新发我一下吗？谢谢！

请用WPS打开,这个是JSA的代码,不是VBA的代码,我这边测试没有问题

一江春水1688

一江春水1688 发表于 2024-12-1 16:50
我的理解力不够，看了4楼代码，才知道楼主的要求。
可能跟vba环境下的按钮有关，在wps下安装vba试试。或 ...

Sorry，特意切换到另一个windows系统，该系统中的wps没有安装vba，我上述描述有误，spaghetti8大佬的附件，无需安装vba也可正常运行。
顺便练练手，用了forEach循环，代码如下：

1. function test1(){
   
2.         [...Range('a1').CurrentRegion.Rows].forEach((row, i) => {
   
3.                 let rng = row.Cells(1, 7);
   
4.                 let mergeRows = rng.MergeArea.Count;
   
5.                 rng() == "√" && (row.Resize(mergeRows,7).Interior.Color = 0x92D050);
   
6.         })
   
7. }

复制代码