| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 单元格样式问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186749) |
| -- 作者：lin98 -- 发布时间：2023/5/26 12:16:00 -- 单元格样式问题 \'If e.Row("第七列") = e.Row("测一") Or e.Row("第七列") = e.Row("测二") Or e.Row("第七列") = e.Row("测三") Or e.Row("第七列") = e.Row("测四") Then \' e.Style = "样式四" \'End If 上面效果是整行标识，不是需求效果，需求以“第七列“为标准，从"测一", "测二", "测三", "测四", "测五", "测六", "测七"查找相同数据标识出？ 下面代码，也没达到效果 If e.Col.Name = "第一列" Then For Each s2 As String In {"测一", "测二", "测三", "测四", "测五", "测六", "测七"} If e.Row("第一列") = e.Row(s2) Then e.Style = "样式一" Exit For End If Next ElseIf e.Col.Name = "第七列" Then For Each s2 As String In {"测一", "测二", "测三", "测四", "测五", "测六", "测七"} If e.Row("第七列") = e.Row(s2) Then e.Style = "样式四" Exit For End If Next End If |
| -- 作者：有点蓝 -- 发布时间：2023/5/26 13:29:00 -- If e.Col.Name = "测一" orelse e.Col.Name = "测二" orelse .... Then If e.Row("第七列") = e.Row(e.Col.Name) e.Style = "样式四" End If endif
|