Вычисления внутри макроса по формуле и присвоение результата переменной
Пользователь
Сообщений: Регистрация: 01.01.1970
05.10.2020 13:14:48
Добрый день знатоки! Подскажите как переменной присвоить результат вычисления формулы вида
Код
=(ВПР(.....) + ([rc4]/100)*([rc6]/100))*2
сейчас делаю через вставку в ячейку формулы, потом переменной присваиваю значение ячейки и потом уже использую переменную. Можно как то избежать вставки формулы в ячейку?
Santiago, здравствуйте! Вычисляйте внутри макроса и вставляйте уже значение:
Код
Sub t ()
ActiveCell.Value2=WorksheetFunction.VlookUp(…) + 2*(Range("A1").Value2/100 * Range("C4").Value2/100)
End Sub
WorksheetFunction.VlookUp() в коде также можно заменить на "чистый" VBA, но это уже вопрос для другой темы, в которой вы покажете ЧТО именно нужно сделать (какой результат получить)
Изменено: - 05.10.2020 13:32:48
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
Пользователь
Сообщений: Регистрация: 01.01.1970
05.10.2020 13:42:18
Цитата
Jack Famous написал: Вычисляйте внутри макроса и вставляйте уже значение:
это и есть "вставка" значения, только не вставка, как вы через Ctrl+V делаете, а, скорее "присвоение" ячейке указанных данных
P.S.: код оформляется тэгом "<…>" на панели и делать такие пропуски между строками совсем не нужно Название темы:Вычисления внутри макроса по формуле и вывод результат на лист
Изменено: - 05.10.2020 13:52:20
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
Пользователь
Сообщений: Регистрация: 01.01.1970
05.10.2020 13:59:53
Цитата
Jack Famous написал: Название темы: Вычисления внутри макроса по формуле и вывод результат на лист
немного не так...Вычисления внутри макроса по формуле и присвоение результата переменной так думаю будет правильнее
вместо a = "=SUMPRODUCT((INDEX( должно быть что-то вроде a = WorksheetFunction.SUMPRODUCT((WorksheetFunction.INDEX( При работе с функциями листа в ВБА ссылки на ячейки будут другие (я показал в первом ответе). Я так работать не люблю, поэтому ждите пока кто-то другой вам "расжуёт"
Изменено: - 05.10.2020 15:18:24
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел)
Пользователь
Сообщений: Регистрация: 21.12.2012
05.10.2020 15:23:52
Цитата
Jack Famous написал: приложите файл-пример и формулой (на листе) покажите, что хотите получить
Просмотрел всю тему, но файла-примера так и не увидел. Скорее всего я сюда больше не вернусь
Пользователь
Сообщений: Регистрация: 16.03.2020
13.12.2021 13:53:21
Добрый день всем! Хочу продолжить тему. У меня такая-же задача. Нужно присвоить переменной результат поиска функцией ВПР в закрытом файле. Пишу пользовательскую функцию, которая в зависимости от значения переменной Vyrobce ищет Prohlaseni для Reference на одном из листов базы данных BAZA. И, пока что уперся в проблему, что VBA выдает ошибку компиляции. Ругается на на апостроф 'D:. Я не понимаю в чем проблема. Помогите , пожалуйста.
Код
Function Prohlaseni(Vyrobce As Variant, Reference As Variant) As Variant
Select Case Vyrobce
Case GOI
Prohlaseni = WorksheetFunction.VlookUp(Reference,'D:\[BAZA.xlsx]DPG'!$D$5:$G$1000,4,0)
Case FINKLEY
Prohlaseni = WorksheetFunction.VlookUp(Reference,'D:\[BAZA.xlsx]DPF'!$D$5:$G$1000,4,0)
Case STEEL
Prohlaseni = WorksheetFunction.VlookUp(Reference,'D:\[BAZA.xlsx]DPS'!$D$5:$G$1000,4,0)
Case TESLA
Prohlaseni = WorksheetFunction.VlookUp(Reference,'D:\[BAZA.xlsx]DPT'!$D$5:$G$1000,4,0)
Case CRAVT
Prohlaseni = WorksheetFunction.VlookUp(Reference,'D:\[BAZA.xlsx]DPC'!$D$5:$G$1000,4,0)
End Select
End Function
Изменено: - 13.12.2021 14:21:19
Пользователь
Сообщений: Регистрация: 15.09.2012
13.12.2021 14:00:45
Путь - это текст, а тексты нужно заключать в кавычки
Пользователь
Сообщений: Регистрация: 16.03.2020
13.12.2021 14:18:55
Кавычки я конечно же тоже пробовал, но тогда компилятору начинает не нравиться восклицательный знак.
Function Prohlaseni(Vyrobce As Variant, Reference As Variant) As Variant
Select Case Vyrobce
Case "GOI"
Prohlaseni = WorksheetFunction.VLookup(Reference, Workbooks("D:\BAZA.xlsx").Worksheets("DPG").Range("$D$5:$G$1000"), 4, 0)
Case "FINKLEY"
Prohlaseni = WorksheetFunction.VLookup(Reference, Workbooks("D:\BAZA.xlsx").Worksheets("DPF").Range("$D$5:$G$1000"), 4, 0)
Case "STEEL"
Prohlaseni = WorksheetFunction.VLookup(Reference, Workbooks("D:\BAZA.xlsx").Worksheets("DPS").Range("$D$5:$G$1000"), 4, 0)
Case "TESLA"
Prohlaseni = WorksheetFunction.VLookup(Reference, Workbooks("D:\BAZA.xlsx").Worksheets("DPT").Range("$D$5:$G$1000"), 4, 0)
Case "CRAVT"
Prohlaseni = WorksheetFunction.VLookup(Reference, Workbooks("D:\BAZA.xlsx").Worksheets("DPC").Range("$D$5:$G$1000"), 4, 0)
End Select
End Function
Спасибо компилятор успокоился, но VLookup ищет только в открытом файле BAZA.xlsx. При закрытом файле выдает ошибку. Т.е ищет если Workbooks("BAZA.xlsx") и файл открыт, выдает ошибку, если Workbooks("D:\BAZA.xlsx") и файл закрыт. А нужно, чтобы работало с закрытым файлом BAZA. Подскажите, пожалуйста, что нужно исправить, чтобы работало с закрытым файлом.
Изменено: - 13.12.2021 15:48:29
Пользователь
Сообщений: Регистрация: 15.09.2012
Профессиональная разработка приложений для MS Office
13.12.2021 18:11:03
Цитата
написал: что нужно исправить, чтобы работало с закрытым файлом
в таком виде - ничего не сделать. Раз работаете из VBA - открывайте нужный файл кодом, получайте данные и закрывайте. На всякий случай: Можете, конечно, ADO применить, но...Лучше открыть и закрыть, если файл не большой.
Изменено: - 13.12.2021 18:11:44
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
