Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » coreyr
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос накопительный итог из диапазона в диапазон
 
#
18.04.2022 14:21:16
Добрый день товарищи.
Прошу Вашей помощи.
Есть таблица из нескольких столбцов (диапазоны "ВсегоОпл" и "ОплСег"), в которой необходимо запуском макроса, числа из одного диапазона "ОплСег" накопительным итогом заносить в другой диапазон "ВсегоОпл" построчно игнорируя формулы и прочее (т.е. брать только цифровые константы).

Сейчас использую код который из одной ячейки перекладывает накопительным итогом в другую, вот такого плана :
Код
Range("A1") = Range("A1") + Range("A3")

Но в таблице уже очень большое количество строк и прописывать для каждой строки данный код очень тяжело.
Пытался придумать сам что то, но откровенно говоря получался всякий бред так как далек от кодонаписания  :(

Помогите пожалуйста люди добрые) Хочется просто добавлять строку в диапазоны и не париться с переписыванием макроса

Пример файла прикрепляю

Заранее преочень благодарен!
 
Перейти    
Копирование определенных листов без формул и макросов
 
#
21.09.2018 15:52:41
Добрый день уважаемые!

Вновь прошу вашей помощи.

Пытаюсь сваять макрос который будет копировать определенные листы в новую книгу и будет удалять из них формулы и макросы (макросами происходит заполнение некоторых ячеек данными.

Код прилагаю ниже (сразу скажу что пишу не сам, а беру по кускам из сети)
Код
 Sheets(Array("БДДС Факт", "БДДС Факт расшифровка", "БДДС План", "БДДС План расшифровка")).copy
   Set NewWb = ActiveWorkbook
   For Each wsSh In NewWb.Worksheets
       With wsSh
           .Visible = True
           .UsedRange.Value = .UsedRange.Value
           .Cells.Locked = True
           .Cells.FormulaHidden = True
           .EnableSelection = xlNoSelection
           End With
           Next
Так вот этот код работает только на половину, а именно удаляет только формулы.
А ячейки которые заполняются макросами получают значение Н.Д и после выполнения макроса просит указать фаил для обновления данных.

Как реализовать мне копирование в новую книгу с удалением и формул и макросов? Что бы были только значения как если бы я отправил этот лист на печать?

Заранее благодарю!
 
Перейти    
Выделение констант, замена на формулы, расчет и вывод как константы VBA
 
#
14.09.2018 15:10:30
Добрый день.
Есть макрос:
Код
Sub newww()
With Range("rere").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.Formula = "формула записанная в редакоторе"
Selection.Calculate
Selection.Value = .Value
End With
End Sub

Я этим кодом пытаюсь в диапазоне "RERE" выделить все ячейки в которых константы.

В них прописать формулу .

Пересчитать ее и потом обратно перевести все в константы не затрагивая ячейки где были формулы до этого.

Постоянно выскакивает ошибки то 424, то 1004

Сам в VBA не сильно силен, по этому все это ваяю сам что то через запись, а что то из интернета беру.

Помогите пожалуйста разобраться, что я делаю не так(
 
Перейти    
Страницы: 1
Наверх