作者lgla1982
我在網路上有查到一個寫法:
Dim strErrorX As String
strErrorX = "=" & ActiveSheet.Name & "!" & Range("C1:C10").Address(ReferenceStyle:=xlR1C1)
With ActiveChart.SeriesCollection(1)
.ErrorBar Direction:=xlX, Include:=xlBoth, _
Type:=xlCustom, Amount:=strErrorX, MinusValues:= _
strErrorX
.ErrorBar Direction:=xlY, Include:=xlBoth, _
Type:=xlCustom, Amount:=strErrorX, MinusValues:= _
strErrorX
End With
但是他第二段我看不懂!?
|