以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  我们是服装行业，能帮我把下面这段代码简化下吗，tks  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180151)

--  作者：xianxin2010 --  发布时间：2022/9/30 15:33:00 --  我们是服装行业，能帮我把下面这段代码简化下吗，tks 是绘制单元格的，完整的话会很长 If e.Col.name = "刀刀" Then     If e.Row("刀刀") = "图案:"  Then         e.style = "红"     ElseIf e.Row("刀刀") = "领型:" Then         e.style = "红"     ElseIf  e.Row("刀刀") = "材质:" Then         e.style = "红"     ElseIf  e.Row("刀刀") = "袖口:" Then         e.style = "红"     End If End If

--  作者：有点蓝 --  发布时间：2022/9/30 15:40:00 --   If e.Col.name = "刀刀" Then select case e.Row("刀刀") case "图案:" ,"领型:", ....自己补齐         e.style = "红"     End  select End If

--  作者：xianxin2010 --  发布时间：2022/9/30 15:46:00 --   有点蓝 谢谢，国庆快乐！