以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格绘图  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180915)

--  作者:weibu
--  发布时间:2022/10/19 21:39:00
--  单元格绘图

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20221019213730.png
图片点击可在新窗口打开查看


老师这个里面的图标可以大于5的显示红色,小于等于5的为蓝色。如何修改代码:
If e.Col.Name = "走势" Then
    Dim cns() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
    For Each cn As String  In cns
        e.Chart.AddValues(e.Row(cn))
    Next
    e.Chart.ChartType = 1 
    e.Chart.SeriesColor = Color.CadetBlue
    e.Chart.ShowHigh = True
    e.Chart.HighMarkerColor = Color.Orange
    e.DrawChart()
End If

--  作者:有点蓝
--  发布时间:2022/10/20 9:02:00
--  
If e.Col.Name = "走势" Then
    Dim cns() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
    For Each cn As String  In cns
        e.Chart.AddValues(e.Row(cn))
    Next
    e.Chart.ChartType = 1
    e.Chart.StartingValue = 5
    e.Chart.ShowNegative = True
    e.Chart.SeriesColor = Color.red
    e.Chart.NegativeColor = Color.blue
    e.DrawChart()
End If

--  作者:weibu
--  发布时间:2022/10/20 11:54:00
--  
老师能在做的分组统计表进行单元格绘图吗?主要是点击随时生成的统计表,没法做darwcell事件
[此贴子已经被作者于2022/10/20 11:55:33编辑过]

--  作者:有点蓝
--  发布时间:2022/10/20 12:07:00
--  
到全局表事件处理即可:http://www.foxtable.com/webhelp/topics/0671.htm
--  作者:weibu
--  发布时间:2022/10/20 16:52:00
--  
老师我发现打印和导出excl时,绘制的单元格都是空值。这个能处理显示出来吗?
--  作者:有点蓝
--  发布时间:2022/10/20 16:54:00
--  
这个没有办法了