Добрый день. Подскажите пожалуйста как исправить код макроса, так чтобы при каждом нажатии кнопки ячейка $А прибавляла 1, т.е. переходила на нижнюю строку?
Заранее спасибо. Игорь Удалено. Нарушение Правил форума
Добрый день. Подскажите пожалуйста как исправить код макроса, так чтобы при каждом нажатии кнопки ячейка $А прибавляла 1, т.е. переходила на нижнюю строку?
Алексей, ну почему же "никому не известный"? ATPVBAEN.XLAM - стандартная надстройка Пакет анализа VBA вот только что и где менять - из кода непонятно. а
Алексей, ну почему же "никому не известный"? ATPVBAEN.XLAM - стандартная надстройка Пакет анализа VBA вот только что и где менять - из кода непонятно. а
При каждом нажатии кнопки должен меняться верхний диапазон ($A$2 , $A$3, $A$4 и т.д.) и ($B$2 , $B$3, $B$4 и т.д.) , а нижний должен оставаться прежним $A$116 и $B$116. Если кто знает подскажите.
При каждом нажатии кнопки должен меняться верхний диапазон ($A$2 , $A$3, $A$4 и т.д.) и ($B$2 , $B$3, $B$4 и т.д.) , а нижний должен оставаться прежним $A$116 и $B$116. Если кто знает подскажите.slonuu
файл не желаете приложить? ибо по сто раз переписывать неохота.
примерно так:
[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]
файл не желаете приложить? ибо по сто раз переписывать неохота.
примерно так:
[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