[算表] excel vba的簡單迴圈問題
軟體:Microsoft Excel
版本:2003
大家好請教一個迴圈的VBA問題，我要繪製一堆折線圖
我的資料表第一列是title
A1=時間
B1=標準數值 B2以下是標準的數值
C1~M1=分別為個測站的名稱 其下就是各測站的數值
以ABF欄畫折線圖為例，巨集如下，其中要改成變數的分別是selcet的欄位會變
AB欄是固定會畫的（就是時間跟標準數值線）
會變動的是繪製不同測站的欄位 從C置換到M欄
還有"圖表名稱"跟"繪出的Chart名稱"要用該測站的名稱 這個也會隨繪製的測站不同置換
我有嘗試用Cells去定位，但是語法一直錯誤不知道該怎麼改，請各位指教><
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Macro3()
'
' Macro3 Macro
' a630050 在 2011/2/21 錄製的巨集
'
' 快速鍵: Ctrl+k
'
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("北勢溪
-DO").Range("A1:B314,F1:F314"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Sheets("北勢溪
-DO").Range("F1")
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Sheets("北勢溪-DO").Range("F1")
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "時間"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "DO(mg/L)"
End With
End Sub
--
▁▁
▕小佑▏
▕之印▏
￣￣
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.69.128.66
※ 編輯: son11 來自: 210.69.128.66 (02/21 12:42)