Dim Grp1 As Variant
Dim Idx As Long
Dim MaxCnt As Long
Text12.Text = Text12.Text & Text4.Text & ","
Grp1 = Split(Text12.Text, ",")
MaxCnt = UBound(Grp1)
MaxCnt = MaxCnt + 1
MSChart1.ColumnCount = 4
MSChart1.RowCount = MaxCnt
Idx = 0
MSChart1.Column = 1
For Each dat In Grp1
Idx = Idx + 1
MSChart1.Row = Idx
MSChart1.Data = dat
Next
不知道為什麼在末端總是在零的數值
請大大幫忙一下
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.194.82