→ topgunguy:解決了。第三行Sheets("工作表1").Select的下面要加上 05/12 23:29
→ topgunguy: Worksheets("工作表1").Activate。 為什麼會這樣呢？ 05/12 23:30
軟體:excel
版本:2010
各位版友大家好，我的活頁簿裡有十個Chart sheet，
Chart1~Chart10。
我想將他們換成變數 sLastDayPrice，
但在選sheet時
一直出現錯誤9 凍列索引超出範圍。
卡在下面這一行
Sheets("Chart" & i).Select
請問正確的格式應該怎麼寫呢？
我在yahoo查到的也是這樣寫，
這種格式問題會玩死人啊~_~
========
Dim sLastDayPrice(10) As String
Dim i As Integer
Sheets("工作表1").Select
'
'填值
'
For i = 1 To 10
sLastDayPrice(i) = CStr(Cells(2, 14 + i).Value)
Next i
'
'chart article、sheetname
'
For i = 1 To 10
Sheets("Chart" & i).Select
ActiveChart.ChartArea.Select
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 216.2337795276, _
25.3246456693, 72, 72).Select
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 20
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = sLastDayPrice(i)
Sheets("Chart" & i).Name = sLastDayPrice(i)
Next i
--
錢會變薄，資產會縮水。
通通花光才有100%的享受，
這就是活在當下。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.214.203