Foxtable(狐表)用户栏目专家坐堂 → [求助][求助]有点蓝老师,单选框问题


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

主题:[求助][求助]有点蓝老师,单选框问题

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/1 11:12:00 [显示全部帖子]

还得用两个复制按钮吗,我想一个就完成,可以吗,谢谢!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/1 14:38:00 [显示全部帖子]

非常感谢蓝老师,再次感谢!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/1 16:13:00 [显示全部帖子]

蓝老师,表格列的背景颜色可以用Tables("A").grid.cols("第二列").style.backcolor = color.red这行代码,如果想把某列字体单独改变大小和加粗属性,有什么代码能实现?
还有别一个问题那么如果想把某些行,加上背景颜色,(不想在表样式中设置,不能满足要求),我想这样比如,把某列“考试时间”都是201809的这些行加上一种颜色,然后把201810的这些行加上别一种颜色,那么代码应该是什么,谢谢老师,还得麻烦你!


此主题相关图片如下:1.jpg
按此在新窗口浏览图片


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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/2 7:46:00 [显示全部帖子]

非常感谢老师,我试试看,能不能弄懂,再次感谢!新春快乐!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/2 7:50:00 [显示全部帖子]

是在样式中设置我需要的一些行的颜色吧,看代码中没有体现哪些行啊,嗯我看看,谢谢老师!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/2 8:46:00 [显示全部帖子]

Tables("A").grid.cols("第二列").style.backcolor = color.red
蓝老师,能不能用这个代码改一下,比如第二列中如果都是201809字符的背景设置成一种,再把同列都201910的字符背景设置成另一种颜色
我感觉用上面的代码达不到目的,谢谢蓝老师!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/2 9:19:00 [显示全部帖子]

有上千行啊,看来是不行,嗯好的,谢谢老师!

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


加好友 发短信
等级:幼狐 帖子:186 积分:1470 威望:0 精华:0 注册:2018/3/5 10:34:00
  发帖心情 Post By:2019/2/2 10:17:00 [显示全部帖子]

是 的,蓝老师说的太对了,我没有表述清楚,用 Drawcell,加上这行代码,很好的实现了,谢谢老师啦!
If e.Col.Name = "kssj" Then 
    If e.Row("kssj") = 201809 Then
        e.Style = "201809"
    End If
End If


 回到顶部
总数 29 上一页 1 2 3