Question

以下代码允许我使用从tw odifferents colum中选择的数据绘制图表

定义变量

Dim DerniereLigne_B As Integer
Dim DerniereLigne_C As Integer

'Définition dernière case non vide'
DerniereLigne_B = Range("B65536").End(xlUp).Row
DerniereLigne_C = Range("C65536").End(xlUp).Row

'Creation graph
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Autoclave cycle"""

ActiveChart.SeriesCollection(1).XValues = "='feuillet 1'!$B$4:$B$" & DerniereLigne_B

ActiveChart.SeriesCollection(1).XValues = "='feuillet 1'!$C$4:$C$" & DerniereLigne_C

但是我想让它在我打开的表格上工作。为此，我创建了一个名为my actif sheet

的字符串变量

Dim nomfeuille As String
nomfeuille = ActiveSheet.Name

我想用上面创建的变量替换我的工作表名称

ActiveChart.SeriesCollection(1).XValues = _
     "='feuillet 1'!$B$4:$B$" & DerniereLigne_B

我试过这样的

ActiveChart.SeriesCollection(1).XValues = _
      "='nomfeuille'!$B$4:$B$" & DerniereLigne_B

但它不起作用。我怎样才能使它正常工作？

如果它无法工作你是否有想法让它工作。我想每次使用相同的列变量创建一个图表，但是使用活动工作表。

Answer 1

像这样：

Dim nomfeuille As String

nomfeuille = ActiveSheet.Name

ActiveChart.SeriesCollection(1).XValues = _
            "='" & nomfeuille & "'!$B$4:$B$" & DerniereLigne_B

图形Excel VBA

1 个答案: