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

Страницы: 1
Недоступна печать сквозных строк
 
#
24.02.2023 12:49:09
Цитата
написал:
Всем спасибо! Проблема разрешилась сама собой. Закрыла файл, открыла другой и проделала аналогичную операцию. А потом открыла проблемный файл - и стало все нормально. Видимо глюк был где-то в самом файле.
Аналогично, все документы закрыл, открыл, порядок
 
Перейти    
Доработка макроса по поиску нужного столбца на листе и вставке в него формулы.
 
#
06.09.2019 15:00:05
Цитата
Sanja написал:
Тогда лучше так, без цикла по ячейкам
Многоуважаемый Sanja при много  благодарен Вам.
Вы мне очень сильно помогли..!
Дай Бог Вам здоровья.
 
Перейти    
Доработка макроса по поиску нужного столбца на листе и вставке в него формулы.
 
#
06.09.2019 14:06:56
Цитата
Sanja написал:
А вообще, вставлять макросом формулы это не комильфо  
Огромнейшее Вам СПАСИБО! то что нужно.
а по поводу вставлять формулу, я не нашёл ничего иного как вставив формулу следом вставить только её значения, внизу код.
Как вы считаете это рациональное решение..?
Большое спасибо за помощь..!
Код
Sub вставка_формулы2()
Dim iCl As Range, iRow&
With ActiveSheet
    lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set iCl = .UsedRange.Find("столб")
    If Not iCl Is Nothing Then
        iCl.Offset(1).Resize(lRow - iCl.Row).FormulaR1C1 = "=RC[-2]+RC[-1]"
`вот моё решение
        iCl.Offset(1).Resize(lRow - iCl.Row).Activate
            For Each ar In Selection.Areas
            ar.Value = ar.Value
            Next ar
    Else
        MsgBox "Заголовок `столб`не найден!", vbCritical
        Exit Sub
    End If
End With
End Sub
Изменено: murad.v.mir - 06.09.2019 14:07:32
 
Перейти    
Доработка макроса по поиску нужного столбца на листе и вставке в него формулы.
 
#
06.09.2019 11:05:23
Ищу четвертый день решение в интернете, к сожалению не получается.
Я начинающий в программировании VBA, прошу быть по снисходительнее, пожалуйста.

На активном листе следующий макрос:
Код
Sub Вставка_формулы_в_область()
' Поиск
    Cells.Find(What:="столб").Activate
'вставка формулы в выделенную область
    ActiveCell.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub

ищет слово "столб" и проставляет формулу в столбце до последней строки, где есть данные, анализируя столбец "А".

Суть проблемы в том, что от первой строки до строки в которой находится слово "столб" есть пропущенные строки, их я удалить не могу (нужны в процессе работы), так вот макрос проставляет формулу в столбце ниже ровно на столько сколько я отступил сверху строк, т.е. выходит за нужный мне диапазон.
И не получается поставить "If" в совокупе с "MxBox" для вывода окошка "заголовок "столбец" не найден"

Буду очень признателен за помощь.
Изменено: murad.v.mir - 06.09.2019 12:28:52 (Увидел что код заключается в скобки)
 
Перейти    
Страницы: 1
Наверх