重复行字体显色

天边2021

如何用VBA实现给指定动态区域重复行字体显红色，请大家指点

tmplinshi

zpy2

create temp table aa as
select *,group_concat(rowid) 重复 from 重复行字体颜色变红 group by 出库日期,物料编码,物料名称,规格型号,批号,生产日期,数量,库位,`行号/备注`,制表人,数量表达式,订单号 having(count(*)>1);

cli_add_css~～ .bg1{ background:yellow; } ～;
select  iif(重复 is not null,'<span class="hi">'||a.rowid||'</span>',a.rowid) rowid,重复,* from 重复行字体颜色变红 a left join aa using(出库日期,物料编码,物料名称,规格型号,批号,生产日期,数量,库位,`行号/备注`,制表人,数量表达式,订单号);
cli_add_script~～
function dom2(a){ var c = a.parentNode; var c = c.parentNode; c.classList.add("bg1"); } function dom3(){ var aa = document.querySelectorAll(".hi"); for (i = 0; i < aa.length; i++) { dom2(aa[i]); } } window.addEventListener('load',dom3());
～;