使用初始值将数据写入单元格

-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

使用初始值将数据写入单元格

回答

相关问题