Чего не знал того не знал.
Спасибо за консультацию тему можно закрыть.
Спасибо за консультацию тему можно закрыть.
20.11.2019 10:51:54
Cells(7, Cnt) = WorksheetFunction.IfError(WorksheetFunction.VLookup(WorksheetFunction.Substitute(Range("A7") & Range("B7") & Range("C7"), " ", ""), Sheets("Pivot").Range("A:B"), 2, 0), 0) Выделил жирным)
Изменено: |
|||
|
19.11.2019 19:21:05
Предположу что речь идет об опущенном последнем аргументе, если да то его добавление вызывает runTimeError 1004.
И насколько я знаю этот аргумент можно опустить ибо он по умолчанию 0.
Изменено: |
|
|
19.11.2019 19:17:09
Да тянуться данные из Final3 в Data_rub.
Данные за 2019-11-30 должны добавляться макросом, для этого в ячейки будет циклом вставляться формула(она руками сейчас добавлена для проверки работы макроса). Так вот первой значение он считает некорректно а второе корректно.
Изменено: |
|
|
01.03.2017 09:56:15
Чего-то я недопонимаю. Первый вариант считает правильно, это точно. в нем ошибки нет. Но он вносит изменения в ячейки, этой строкой кода:
Когда я пытаюсь заменить эту строку, например этой формулой:
То получаю погрешность в расчете. А мне нужно получить такой же результат расчета, без внесения изменений в ячейку Rang(i,9). Для этого надо заменить строку кода:
Но вот на что её заменить мне не ясно.
Изменено: |
|||||||||
|
28.02.2017 16:23:09
Кнопка цитирования не для ответа.
Вам за каждым пунктом правил делать замечание или все-таки ознакомитесь с правилами полностью? [МОДЕРАТОР] Если Rang(i,9)=0 то суммировать надо без Rang(i,14). Насколько я понял из вашего ответа проблема во втором варианте в этом участке кода:
Но разве условие Case Else не означает, что если Rang(i,9)<>0 то считаем по формуле: VAR = VAR + (Rang(i, 9) + Rang(i, 14)) ? Спасибо за помощь!
Изменено: |
|||
|
28.02.2017 15:42:45
Меняю условия и расчет не верный :
Делаю макрос который по строкам считает сумму двух показателей VAR и Paym. Проблемы возникают только с VAR. Первый вариант макроса плох тем что вносит изменения в таблицу, из-за того что переменная Rang - это диапазон ячеек. Второй не вносит изменений но считает не правильно вопрос почему так? Должно быть так: Если Rang(i,9)=0 то VAR=VAR+ Rang(i,8 ) Если Rang(i,9)<>0 то VAR = VAR + (Rang(i, 9) + Rang(i, 14)). Спасибо всем!
Изменено: |
|||||
|
21.11.2016 15:15:32
Остался один вопрос и тему можно закрыть. Гипперссылку в письме отправил, но чтобы перейти по ней, получатель должен зажать ctrl и щелкнуть мышью, можно как-нибудь сделать так, чтобы ctrl зажимать было не нужно для перехода по гипперссылке?
Гипперсылка в макросе выглядит так:
Изменено: |
|||
|
21.11.2016 13:39:56
К сожалению ничего толкового не нашел, может в графу поиск вбиваю не то что надо. Если перефразировать мой вопрос то:
Как передать оутлуком письмо с гипперссылкой. Письмо отправляется легко а вот как в теле письма указать работающую гипперссылку на файл не понятно.
Изменено: |
|
|
21.11.2016 13:21:16
Всем привет!
Есть макрос в ексель 2010. Его задача отправить письмо через оутлук с гипперссылкой на файл отчета. Но при отправке письма, гипперссылка не создается а вставляется в тело пиьсма как текст. Впорос как сделать текстовую строку гипперссылкой на файл в теле письма? Чтобы получатель мог щелкнуть на ссылку и перейти к файлу отчета. Сам текст макроса на отправку не привожу, он элементарен. Мне не понятно только как задать гипперрссылку на файл.
Изменено: |
|
|
17.11.2016 11:39:34
Изменено: |
|||
|
17.11.2016 11:30:32
|
|||
|
17.11.2016 11:24:30
Привет всем!
Просьба помочь выяснить что не так в следующем коде макроса: MsgBox worksheetfunction.iserr(Application.WorksheetFunction.Search("free",Cells(2, 1), 1) )= 0 с cells(1,1) - стоит значение adadfree - тут ошибки не происходит при переходе к cells(1,2) - с содержание fort вылетает ошибка 1004. Поэтому разъясните пожалуйста, что я не так делаю? По смыслу макрос должен проверить есть ли в ячейке значение "free" если нету то iserr - вернет true. PS знаю что есть куча способов это сделать, но хочу понять что не так именно с данным вариантом. Большое спасибо! |
|
|