Переход на следующую строку

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переход на следующую строку (Макросы/Sub)

slonuu

Дата: Четверг, 21.08.2014, 20:31 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2010

Добрый день. Подскажите пожалуйста как исправить код макроса, так чтобы при каждом нажатии кнопки ячейка $А прибавляла 1, т.е. переходила на нижнюю строку?

[vba]

Код

Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$A$2:$A$116"), _
ActiveSheet.Range("$B$2:$B$116"), False, False, , ActiveSheet.Range("$G$1") _
, False, False, False, False, , False

[/vba]

Заранее спасибо.
Игорь
Удалено. Нарушение Правил форума

Ответить

wild_pig

Дата: Четверг, 21.08.2014, 21:20 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 516

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

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

2003, 2013

Это что за покемон?
Это параметры с которыми запускается никому не известный макрос?

Ответить

ikki

Дата: Четверг, 21.08.2014, 21:38 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

Алексей, ну почему же "никому не известный"?
ATPVBAEN.XLAM - стандартная надстройка Пакет анализа VBA
вот только что и где менять - из кода непонятно.
а

Цитата slonuu, 21.08.2014 в 20:31, в сообщении № 1

ячейка $А

- даже неизвестно, что такое

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

slonuu

Дата: Четверг, 21.08.2014, 21:49 | Сообщение № 4

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

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

Сообщений: 6

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

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

Excel 2010

При каждом нажатии кнопки должен меняться верхний диапазон $A$2 , $A$3, $A$4 и т.д. , а нижний должен оставаться прежним $A$116.

Ответить

slonuu

Дата: Четверг, 21.08.2014, 21:51 | Сообщение № 5

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

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

Сообщений: 6

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

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

Excel 2010

Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$A$2:$A$116"), _
ActiveSheet.Range("$B$2:$B$116"), False, False, , ActiveSheet.Range("$G$1") _
, False, False, False, False, , False

При каждом нажатии кнопки должен меняться верхний диапазон ($A$2 , $A$3, $A$4 и т.д.) и ($B$2 , $B$3, $B$4 и т.д.) , а нижний должен оставаться прежним $A$116 и $B$116.
Если кто знает подскажите.

Ответить

ikki

Дата: Четверг, 21.08.2014, 21:59 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

файл не желаете приложить?
ибо по сто раз переписывать неохота.

примерно так:

[vba]

Код

public n& ' глобальная переменная

sub t() ' вешаем на кнопку
     if n=0 then
         n=2
     elseif n<116 then
         n=n+1
     else
         exit sub
     end if
     Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$A$" & n & ":$A$116"), _
     ActiveSheet.Range("$B$" & n & ":$B$116"), False, False, , ActiveSheet.Range("$G$1") _
     , False, False, False, False, , False
end sub

[/vba]