Foxtable(狐表)用户栏目专家坐堂 → colorlabel 里选择颜色,在识别里显示出来 drallcell 应该怎么写


  共有4017人关注过本帖树形打印复制链接

主题:colorlabel 里选择颜色,在识别里显示出来 drallcell 应该怎么写

帅哥哟,离线,有人找我吗?
aaa1234
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
colorlabel 里选择颜色,在识别里显示出来 drallcell 应该怎么写  发帖心情 Post By:2021/9/13 10:17:00 [只看该作者]

老师还是不行亚

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:18:00 [只看该作者]

你看一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:33133.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:22:00 [只看该作者]

1、表B没有drawcell事件;2、没有添加样式

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:29:00 [只看该作者]

只是某一个单元格是怎么写的

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:30:00 [只看该作者]

If e.Col.Name = "标记" Then '如果正在绘制的是密码列
    e.Style = "样式"
End  If 这个是整列

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:30:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:37:00 [只看该作者]

老师我应该怎么判断是你那个是判断他是否是那一列然后添加单元格样式,我这个应该怎么判断才能,填写一个一个样式呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/13 10:41:00 [只看该作者]

比如在DrawCell事件中设置如下代码:

'如果是数值型列,且不是总分列
If
 e.Col.IsNumeric AndAlso e.Col.Name <> "总分" Then
    If
 e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        
If e.Row(e.Col.Name) < 60 Then '如果该列的值小于60
            e.Style = 
"不及格" '那么用"不及格"样式绘制单元格
        
ElseIf e.Row(e.Col.Name) > 95 Then '如果单元格的值大于95
            e.Style = 
"优秀" '那么用"优秀"样式绘制单元格
        
End If
    End
 If
End
 
If


根据需要改改优秀和不及格的样式即可

DataTables("表X").SysStyles("user不及格").BackColor = e.Sender.Color

Tables("表X").Refresh


 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:44:00 [只看该作者]

但是我这个是让用户自己添加啊,而且他colorlabel 返回来的的数字,要单个单个才不会怎么判断

 回到顶部
帅哥哟,离线,有人找我吗?
aaa1234
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:1650 威望:0 精华:0 注册:2021/7/30 8:48:00
  发帖心情 Post By:2021/9/13 10:46:00 [只看该作者]

他每填写一个他的颜色都不一样,这个判断

 回到顶部
总数 16 1 2 下一页