VB操作Excel绘制图表，当N=5时，图表横坐标为5个值，当N=i时，图表横坐标为i个值，横坐标单元格选择怎么写Char.FullSeriesCollection(i).XValues = "sheet（1）!$B$6:$F$6"，请各位前辈指教！

看看有没有帮助,简单写了一个画图表的例子

Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Dim chartPage As Excel.Chart
Dim xlCharts As Excel.ChartObjects
Dim myChart As Excel.ChartObject
Dim chartRange As Excel.Range


Private Sub Command1_Click()
  Set xlCharts = sht.ChartObjects
  Set myChart = xlCharts.Add(10, 80, 300, 250)
  Set chartPage = myChart.Chart
  Set chartRange = sht.Range("a1", "d5")
  Call chartPage.SetSourceData(Source:=chartRange)
  chartPage.ChartType = Excel.XlChartType.xlColumnClustered
End Sub

Private Sub Form_Load()
  Set EXAPP = CreateObject("excel.application")
  EXAPP.Visible = True
  Set WB = EXAPP.Workbooks.Open("c:\chart.xlsx")
  Set sht = WB.Worksheets("sheet1")
End Sub

Private Sub Form_Unload(Cancel As Integer)
  WB.Close
  Set myChart = Nothing
  Set xlCharts = Nothing
  Set sht = Nothing
  Set WB = Nothing
  Set EXAPP = Nothing
End Sub

你采用的还是固定单元格啊，我需要的是动态单元格，比如单元格cells(4,i),我想知道同一行的单元格选择“$B$6:$F$6”怎么用i表示

Set chartRange = sht.Range("a1", "d5")
内的字符串你不能换成一个变量,做成你说的动态?

我现在就纠结在这个问题上
For i = 1 To Num_Damper_Corner
       Chart_damper.SeriesCollection.NewSeries
       Set ChartRange = SheetDamper1.Range(Cells(7, Num_Damper_Mode * (i - 1) + 2), Cells(7, Num_Damper_Mode * (i - 1) + 6))
       Chart_damper.FullSeriesCollection(i).XValues = "数据!$B$6:$F$6"
       Chart_damper.FullSeriesCollection(i).Values = ChartRange
Next i
按你说的方法，定义单元格范围用rang("b7","f7")可以，但用上面的cell就不行

"sheet（1）!$B$6:$F$6"

你这个本身是字符串，按坐标的格式生成字符串再给属性可以不？

首先，列，按1＝A，2＝B 换算成 字母，
然后再加上行，就可以了。

$B$6:$F$6 = "$" & 列号转列名(2) & "$" & 行号 &":$" & 列号转列名(6) & "$" & 行号

Char.FullSeriesCollection(i).XValues = "sheet（1）!" & "$" & 列号转列名(2) & "$" & 行号 &":$" & 列号转列名(6) & "$" & 行号

Private Sub Command1_Click()

Cls
Print 1, 列号转列名(1)
Print 26, 列号转列名(26)
Print 27, 列号转列名(27)
Print 255, 列号转列名(255)


End Sub

Public Function 列号转列名(cs As Long) As String
'cs 范围 ＝1-255 ，根据你的需要定义变量类型
Dim i As Long, j As Long
Dim s As String

If cs < 1 Or cs > 255 Then
    Exit Function
End If

i = (cs - 1) Mod 26             'A要余0，Z余25
j = (cs - 1) \ 26               '26得0，27才能得1

If j > 0 Then                   '有第一位
    s = Chr(64 + j)
End If

s = s & Chr(65 + i)             '生成第二位

列号转列名 = s                  '返回结果

End Function

  Set chartRange = sht.Range(Cells(1, 1), Cells(1, 4))
我改成这样也没问题

把横坐标也定义为range对象

解决了，谢谢