如果你確定使用一些VBA,一個簡單的解決方案可能是(ALT + F11在編輯器來獲得,然後插入模塊)
Sub GenerateData()
Dim curDataPt As Long, curVal As Long
Dim rngOut As Range, rngIn As Range, rngData As Range, rngVar As Range
'*** SET VALUES HERE ***'
Const maxVal As Long = 2000000
Const minVal As Long = 0
Const stepVal As Long = 1000
Set rngIn = Sheet1.Range("A1")
Set rngOut = Sheet1.Range("B1")
Set rngVar = Sheet1.Range("D1")
Set rngData = Sheet1.Range("E1")
'************************'
For curVal = minVal To maxVal Step stepVal
curDataPt = curVal/stepVal
rngIn = curVal
rngVar.Offset(curDataPt) = curVal
rngData.Offset(curDataPt) = rngOut
Next curVal
Sheet1.Names.Add "DataIn", rngVar.Resize(curDataPt + 1)
Sheet1.Names.Add "DataOut", rngData.Resize(curDataPt + 1)
End Sub
這裏假設你的儲存罐的大小會在A1上表1,總節省在B1。代碼中的Sheet1
是表單對象的代碼名稱。在VB編輯器窗口的項目瀏覽器窗格中查看,以確保這是正確的。
使用此方法的方法是運行VBA(ALT + F8)以生成數據集並使用圖表嚮導生成圖表。但是,在選擇系列選項卡上的源數據時,對於類別(X)軸標籤,請輸入=Sheet1!DataOut
,輸入=Sheet1!DataIn
。
現在,您可以使用不同的最小/最大/步進行遊戲,圖表會自動更新數據系列。
這是超級,超級酷;正是我所期待的。謝謝! – johnw188 2009-10-11 01:29:40