Re: [算表] range 必須是 :清單分除字元
※ 引述《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
推
02/17 21:41, , 1F
02/17 21:41, 1F
※ 編輯: foolkids 來自: 59.115.231.157 (02/18 00:40)
推
02/18 00:42, , 2F
02/18 00:42, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
