使用初始值將數據寫入單元格

-2

我可以獲得幫助，我試圖將數據寫入電子表格中的單元格中，使用初始值，然後添加特定增量，直到達到指定的最大值。我在下面列出了一個例子。謝謝。使用初始值將數據寫入單元格

最小：0.5 最大：1.5 增量：0.1

寫下面的代碼，但它運行無限... 子IncrementValue（）昏暗IMIN，IMAX，INC，x作爲單

iMin = Range("A1").Value 
iMax = Range("A2").Value 
Inc = Range("A3").Value 

Range("B1").Value = iMin 
x = 1 

Do 
x = x + 1 
Range("B" & x).Value = Range("B" & x - 1).Value + Inc 
Loop Until Range("B" & x).Value = iMax

末次

來源

2013-10-15 ugo

您是否也嘗試的東西已經或者你只是傾倒你的要求嗎？ – Tomalak

nope ...盡我所能努力工作...這不是一個要求..只是一個案例.. – ugo

@ugo請澄清。展示一個樣本 – 2013-10-15 15:15:30

Sub FillIncrementingSeries(rStart As Range, dMin As Double, dMax As Double, dIncr As Double) 

    rStart.Value = dMin 
    rStart.Resize(((dMax - dMin)/dIncr) + 1, 1).DataSeries xlColumns, xlDataSeriesLinear, , dIncr, dMax 

End Sub

來源

2013-10-15 16:40:14

嗨迪克，這是一個，但它無限運行..謝謝你..子循環（） Dim iMin，iMax，inc，x As Single IMIN =範圍（「A1」）。值 IMAX =範圍（「A2」）。值公司=範圍（「A3」）。值範圍（「B1」）。值= IMIN X = 1 （「B」＆x）.Value = Range（「B」＆x - 1）.Value + Inc End Sub – ugo

將其更改爲'循環直到範圍（「B」＆x）.Value> = iMax'並且它不會無限運行。但我更喜歡我的方法。 –

嗨迪克，包括>標誌，它運行得非常出色，我認爲你的方法很好，但似乎無法分配單元格地址給它..它絕對短得多......你一直很棒..感謝一大堆... – ugo

使用初始值將數據寫入單元格

回答

相關問題