- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]列名含壹字的列值低于60分单元格绘制颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192821)
-- 发布时间：2024/7/24 23:42:00
-- [求助]列名含壹字的列值低于60分单元格绘制颜色
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:列名含壹字的列值低于60分单元格绘制颜色.foxdb |
求助，一段代码实现（不要3列3段代码） 列名中含 壹字的列（壹1、壹2、壹3这三列）值小于60的单元格绘制颜色
[此贴子已经被作者于2024/7/24 23:42:31编辑过]
-- 发布时间：2024/7/25 8:00:00
--
If e.Col.Name.Contains("壹") AndAlso e.Row.IsNull(e.Col.Name) = False AndAlso CDbl(e.Row(e.Col.Name)) < 60 Then
e.Style = "低于60分"
End If
-- 发布时间：2024/7/25 14:01:00
--
[此贴子已经被作者于2024/7/25 14:10:11编辑过]
-- 发布时间：2024/7/25 14:11:00
--
For Each C As Col In e.Table.Cols
If C.Name.Contains("壹") andalso e.row(c.name) < 60 Then
e.Style = "低于60分"
exit for
End If
Next
-- 发布时间：2024/7/25 14:30:00
--
If e.Col.Name.Contains("壹") AndAlso e.Row.IsNull(e.Col.Name) = False AndAlso CDbl(e.Row(e.Col.Name)) < 60 AndAlso e.Row("奖" & Mid(e.Col.Name,2)) = "不及格" Then
e.Style = "低于60分"
End If
-- 发布时间：2024/7/25 14:33:00
-- 回复：（有点蓝）For Each C As Col In e.Table.Cols&...
蓝总，上面代码效果有问题，奖及格合不及格 壹不管多少分都单元格颜色绘制了，不是想要的效果
想实现的是（奖1、奖2、奖3这三列）的单元格值=不及格时，右边的1、壹2、壹3 单元格(值<60)绘制颜色
[此贴子已经被作者于2024/7/25 14:33:41编辑过]