Добрый день.
Никак не получается в макросе прописать функцию ВПР чтобы в ячейке вместо формулы выводились уже результаты работы (значение ).
Формулу вставлять получается но есть риск что в дальнейшем при использовании пользователи могут что-то исправить в формуле.
Да и думаю что это должно облегчить файл. При открытии не будут происходить повторные вычисления. В заполненных ячейках уже будет текст.
Чтобы было понятнее опишу порядок действий.
В столбце D листа Заполнять вводятся наименования материалов и согласно им из листа Каталог при помощи ВПР заполняются столбцы B и C.
Почему-то простые формулы типа сложить или умножить выдают в ячейку результаты, а ВПР постоянно выводит ошибку.
С программированием не знаком. Обычно беру готовые решения и переделываю под свои нужды.
А тут зашел в тупик)))
Вот код который я смог найти. Он состоит из двух частей одна из которых выдает ошибку.
В этой части кода имеется ошибка.
Ниже все работает но вставляется только формула. Чего я хотел бы избежать.
Никак не получается в макросе прописать функцию ВПР чтобы в ячейке вместо формулы выводились уже результаты работы (значение ).
Формулу вставлять получается но есть риск что в дальнейшем при использовании пользователи могут что-то исправить в формуле.
Да и думаю что это должно облегчить файл. При открытии не будут происходить повторные вычисления. В заполненных ячейках уже будет текст.
Чтобы было понятнее опишу порядок действий.
В столбце D листа Заполнять вводятся наименования материалов и согласно им из листа Каталог при помощи ВПР заполняются столбцы B и C.
Почему-то простые формулы типа сложить или умножить выдают в ячейку результаты, а ВПР постоянно выводит ошибку.
С программированием не знаком. Обычно беру готовые решения и переделываю под свои нужды.
А тут зашел в тупик)))
Вот код который я смог найти. Он состоит из двух частей одна из которых выдает ошибку.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("D8:D10000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 |
В этой части кода имеется ошибка.
| Код |
|---|
With cell.Offset(0, -1) 'вводим в соседнюю справа ячейку дату .Value = VLOOKUP([@Наименование], База, 3) .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With |
Ниже все работает но вставляется только формула. Чего я хотел бы избежать.
| Код |
|---|
With cell.Offset(0, -2) 'вводим в соседнюю справа ячейку дату .Value = "=IFERROR(VLOOKUP(RC[2],База,2,),"""")" .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub |
Изменено: - 09.06.2019 12:34:10
