Question

以下是给我带来麻烦的代码部分。我收录了messagebox，让我知道事情正在发挥作用。所以当我输入“MsgBox xaxis.Address（）”时，它就像$ C $ 20：$ C $ 42。这就是我想要在x轴上绘制的图形。问题是，我的图形实际上并没有在x轴上显示出来......它的图形就像整张纸一样。我猜我的问题在于我正在使用的xaxis的语法。

    Dim StartTime As Range
    Dim EndTime As Range


    Set StartTime = wb1.Sheets("Sheet2").Range("C:C").Find(wb1.Sheets("Sheet1").Range("$B$2").Text, MatchCase:=False, lookat:=xlWhole)
    Set EndTime = wb1.Sheets("Sheet2").Range("C:C").Find(wb1.Sheets("Sheet1").Range("B3").Text, MatchCase:=False, lookat:=xlWhole)
    'If Not StartTime Is Nothing Then
    'End If


     MsgBox StartTime.Address()
     MsgBox EndTime.Address()
     MsgBox StartTime.Value
     MsgBox EndTime.Value
     MsgBox "Hi"

     Dim xaxis As Range
     Dim yaxis As Range
     Set xaxis = Range(StartTime.Address & ":" & EndTime.Address)
     MsgBox xaxis.Address
    'Set xaxis = Range("$C$16", Range("$C$16").End(xlDown))
     Set yaxis = xaxis.Offset(0, ColumnOffset:=1)

     MsgBox yaxis.Address

     '''''''''''''''''''''''

     'Dim x As String
     'Dim y As String

     ' x = xaxis.Address
     'MsgBox "Hi"
     'y = yaxis.Address
     'MsgBox x

     Set Chrt = Charts.Add
     With Chrt
         .ChartType = xlXYScatter
         .SeriesCollection.NewSeries
                '.SeriesCollection(1).Name = "=""Scatter Chart"""
                .SeriesCollection(1).Values = yaxis
                .SeriesCollection(1).XValues = xaxis


                'Titles
                .HasTitle = True
                .ChartTitle.Characters.Text = "Platen1"
                .Axes(xlCategory, xlPrimary).HasTitle = True
                .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (Seconds)"
                .Axes(xlValue, xlPrimary).HasTitle = True
                .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Temp (Deg. C)"
                .Axes(xlCategory).HasMajorGridlines = True

                'Formatting
                .Axes(xlCategory).HasMinorGridlines = False
                .Axes(xlValue).HasMajorGridlines = True
                .Axes(xlValue).HasMinorGridlines = False
                .HasLegend = False
            End With

我的总体目标：我的电子表格中包含每日更新的数据。我需要用户能够输入开始时间，结束时间和机器编号。这需要用于从该数据生成图表。开始和结束时间始终在C列中，但特定行始终在变化。所以我所做的是从数据中找到匹配的开始时间和结束时间，然后创建此范围（StartTime或EndTime）。机器将确定用于y轴的数据列，它只是偏离x轴。

非常感谢任何帮助。

编辑：我通过在图表创建下添加以下代码来解决上述问题：

      Do Until .SeriesCollection.Count = 0
      .SeriesCollection(1).Delete
      Loop

我意识到的问题是“xaxis”和“yaxis”正在从Sheet1获取数据，而我希望它从工作表2中获取数据。如何声明它应该从Sheet2中绘制图形？

Answer 1

这样做

 Set xaxis = Sheets("Sheet2").Range(StartTime.Address & ":" & EndTime.Address)
 Set yaxis = xaxis.Offset(0, ColumnOffset:=1)

Scatter Plot graphing excel VBA - 不会绘制我的数据范围

1 个答案: