Как результаты 50 пересчетов занести в один столбец

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Как результаты 50 пересчетов занести в один столбец - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как результаты 50 пересчетов занести в один столбец

sceptic

Дата: Воскресенье, 02.06.2013, 00:36 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте! Помогите, пожалуйста, написать один макрос. Пример в прикрепленном файле очень сильно упрощен. Есть ячейка А1, которая косвенно зависит от функции =слчис(). Нужно провести 50 пересчетов и значения этой ячейки вывести в диапазон B1:B50. То есть результаты всех 50 пересчетов нужно занести в один столбец. Заранее благодарен за помощь.

К сообщению приложен файл: 2739915.xls (17.5 Kb)

Ответить

Hugo

Дата: Воскресенье, 02.06.2013, 01:03 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

[vba]

Код

Sub tt()
      Dim i&
      Dim a(1 To 50, 1 To 1)
      For i = 1 To 50
          Application.Calculate
          a(i, 1) = [a1]
      Next
      [b1].Resize(50, 1) = a
End Sub

[/vba]
Или проще:
[vba]

Код

Sub ttt()
     Dim i&
     For i = 1 To 50
         Cells(i, 2) = Cells(1, 1)
     Next
End Sub

[/vba]