軟體: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)
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)")
ActiveChart.Legend.Select
ActiveChart.ChartArea.Select
End Sub
感謝~
--
錢會變薄，資產會縮水。
通通花光才有100%的享受，
這就是活在當下。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.213.86