推 topgunguy:感謝F大的回文，不過出現 執行階段錯誤424 此處需要物件 02/17 21:41
※ 編輯: foolkids 來自: 59.115.231.157 (02/18 00:40)
推 topgunguy:謝謝~ 02/18 00:42
※ 引述《topgunguy (上面的槍手)》之銘言：
: 軟體:excel
: 版本:2010
: 各位版友大家好，我想請問關於range的問題。
: 我希望可以在點選儲存格i時，range可以變成 B(i-3):E(i+3)
: 例如點選B6這格
: range(B3:E9)
: 請問我在vba裡應該怎麼寫呢？試了好久一直試不出來orz
: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
: Dim i As Integer
: i = Val(Target.Column)
i = Val(Target.Row)
: Range(""B" & (i - 3) & ":E"&(i + 3)").Select
Range("B" & i - 3 & ":E" & i + 3).Select
: ActiveSheet.Shapes.AddChart.Select
: ActiveChart.ChartType = xlStockOHLC
: ActiveChart.SetSourceData Source:=Range(""B" & (i - 3) & ":E"&(i + 3)")
Range("B" & i - 3 & ":E" & i + 3).Select
^^^^^^^ 拿掉 sorry 打錯
: ActiveChart.Legend.Select
: ActiveChart.ChartArea.Select
: End Sub
: 感謝~
改這三行 應該可以
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.249.243.250