根据条件引用数据动态显示曲线图

ptjtlt260

根据多条件在数据源表里面查找符合条件的数据动态显示曲线图，请大侠帮忙

Datous

1. Sub Charting_Click()
   
2. Dim vntD, I&, N&, C&, dblS#()
   
3. vntD = Worksheets("数据源").UsedRange
   
4. For I = 3 To UBound(vntD, 2)
   
5.     If vntD(1, I) = [C3] Then N = I: Exit For
   
6. Next
   
7. For I = 2 To UBound(vntD)
   
8.     If vntD(I, 1) = [C1] Then
   
9.         If vntD(I, 2) = [C2] Then
   
10.             ReDim Preserve dblS(C)
    
11.             dblS(C) = vntD(I, N)
    
12.             C = C + 1
    
13.         End If
    
14.     End If
    
15. Next
    
16. Worksheets("查询表").ChartObjects("图表 3").Chart.SeriesCollection(1).Values = dblS()
    
17. End Sub

复制代码

加一段代码实现动态

Datous

上个附件吧。

ptjtlt260

Datous 发表于 2019-11-30 12:37
上个附件吧。

Sub Charting_Click()
2.Dim vntD, I&, N&, C&, dblS#()
3.vntD = Worksheets("数据源").UsedRange
4.For I = 3 To UBound(vntD, 2)
5.    If vntD(1, I) = [C3] Then N = I: Exit For
6.Next
7.For I = 2 To UBound(vntD)
8.    If vntD(I, 1) = [C1] Then
9.        If vntD(I, 2) = [C2] Then
10.            ReDim Preserve dblS(C)
11.            dblS(C) = vntD(I, N)
12.            C = C + 1
13.        End If
14.    End If
15.Next
16.Worksheets("查询表").ChartObjects("图表 3").Chart.SeriesCollection(1).Values = dblS()
17.End Sub

16句出错了？

Datous

我是2016版，而且 shapes.chart.seriescollection 对象也是向上兼容的，应该没问题。
把括号去掉？

1. Worksheets("查询表").ChartObjects("图表 3").Chart.SeriesCollection(1).Values = dblS

复制代码

ptjtlt260

Datous 发表于 2019-12-2 11:34
我是2016版，而且 shapes.chart.seriescollection 对象也是向上兼容的，应该没问题。
把括号去掉？

你好，换台电脑可从了。谢谢。
再请教下，如果再增加条件要什么加，我刚才在IF   vntD(I，2)=[C2]Then下面增加IF   vntD(I，3)=[C4]Then会出现Next没有For错误提示，这个要什么办？
如果条件为空就出现错误，能不能某个条件为空就跳过该条件(当作没有这个条件处理)。
帮忙再看下，感谢大侠。

Datous

ptjtlt260 发表于 2019-12-4 09:41
你好，换台电脑可从了。谢谢。
再请教下，如果再增加条件要什么加，我刚才在IF   vntD(I，2)=[C2]Then下 ...

If(boolean_expression) Then
   Statement 1
   .....
   Statement n
ElseIf (boolean_expression) Then
   Statement 1
   .....
   ....
   Statement n
Else
   Statement 1
   .....
    Statement n
End If

这是 IF 语句的语法，有 IF ，就得有 ENDIF

ptjtlt260

Datous 发表于 2019-12-4 11:26
If(boolean_expression) Then
   Statement 1
   .....

是我没看好，增加条件的可以了，谢谢。
那其中有一个条件为空的就出现错误，能不能条件为空的跳过去当作没这个条件继续执行其他条件呢？