Re: Excel - автосоздание диапазона

Привет, Arioch.
Sub LoopRange()
Dim x, y, n As Integer
Dim a, b, h As Double
x = ActiveCell.Row
y = ActiveCell.Column
a = Range("A1").Value
b = Range("B1").Value
n = Range("C1").Value
h = (b - a) / n
Do While a < b
Cells(x, y).Value = a
a = a + h
x = x + 1
Loop
If b <= a Then
Cells(x, y).Value = b
End If
End Sub



Предыдущие сообщения

::2010-03-25 ::Excel - автосоздание диапазона

::2010-04-03 ::RE: Excel - автосоздание диапа зона

::2010-04-03 ::Re: Excel - автосоздание диапазона

Ответы

::2010-04-04 ::Re: Excel - автосоздание диапазона



Архив эхо-конференции

Страницы ::
1 ::2 ::3 ::4 ::5 ::6 ::7 ::8