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

В письме от Sun, 04 Apr 2010 09:34:00 +0400, Tatyana Ivanova
сообщал:
что-то подобное я и делал.
Жаль, нельзя туда добавить
Cells(x, y+1).Formula = "=10*RC[-1]"
> Привет, 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
>

--
Форум читаю почтой: http://www.myopera.net Офис качаю бесплатно:
http://www.i-rs.ru
У кого Outlook Express - не прячьте кодировку -
http://faqs.org.ru/softw/inetsoft/oe.htm#a21
Если вас не понимают - http://maddog.sitengine.ru/smart-question-ru.html



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

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

Ответы

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

Похожие сообщения

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

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

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

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

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



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

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