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

Страницы: 1
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 16:01:22
Но нужно через макрос
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 15:25:53
Да вставить в столбец D формулу но через код макроса
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 15:05:33
Формула которая в столбце C на листе Исходные данные должна считаться через VBA и вставить значение. А так же подвести итоги по столбцам D C B. желтым выделил где нужно формула в ячейках. А зеленым итоги
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 14:20:49
Нужно расчет который будет в VBA и вставлять значения в ячейки в столбце C пока есть текст в ячейках столбца А
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 13:55:35
Цитата
написал:
Почему бы  не вычислять макросом и вставлять не формулы, а сразу значения?
Ну тут не столь важно, главное чтобы значение правильное было.
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 13:38:27
Не для всего столбца, а пока в 1 столбце будет значение
 
Перейти    
VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца
 
#
23.11.2021 12:33:18
Не понимаю как вставить формулу через VBA для всего столбца
Пример во вложении. Вот нужно чтобы в столбец С вставлялась формула через макрос, а не руками
А так же добавлялась строка итоги так же с формулой
 
Перейти    
Удалять строки с текстом, который не подходит условию.
 
#
22.11.2021 10:43:07
Всем Большое спасибо за помощь
 
Перейти    
Удалять строки с текстом, который не подходит условию.
 
#
22.11.2021 08:46:25
В принципе такое условие подойдет, только тогда нужно еще шапку оставить и итоги  

оставить= Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*")
Получается все что в массиве нужно оставить а все остальное удалить
 
Перейти    
Удалять строки с текстом, который не подходит условию.
 
#
22.11.2021 08:43:11
Примерно вот так
Изменено: Вадим Озем - 22.11.2021 08:45:07
 
Перейти    
Удалять строки с текстом, который не подходит условию.
 
#
22.11.2021 08:34:37
Я хочу чтобы все условия которые я ввел сохранились, а то что не подходит условию удалить
Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*") строки с таким текстом оставить, а все остальное удалить
Изменено: Вадим Озем - 22.11.2021 08:35:22
 
Перейти    
Удалять строки с текстом, который не подходит условию.
 
#
22.11.2021 07:56:08
Есть код который удаляет текст по условию из столбца А, но нужно чтобы удалялся весь текст который не подходит условию. Не знаю пробовал изменить, но не получается
Код
Dim ra As Range, delra As Range
Application.ScreenUpdating = False
Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*")
For Each ra In ActiveSheet.UsedRange.Rows
For Each word In Удалить
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next word
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
 
Перейти    
Страницы: 1
Наверх