powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти и заменить
10 сообщений из 10, страница 1 из 1
Найти и заменить
    #32552168
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
EXCEL !!!
Из одного файла составляю формулу и передаю её в ячейку другого. При передаче формула вставляется как текст. Поэтому перед "=" ставлю слово "ПРОБА" ("ПРОБА=ЕСЛИ(F1='W:\Logistic\[" & ss & "]Сводная'!$B$16;'W:\Logistic\[" & ss & "]ИТОГИ'!$H$10;"данные отсутствуют")" , ss-переменная) . После этого ВРУЧНУЮ делаю НАЙТИ "ПРОБА=" ЗАМЕНИТЬ "=". Всё срабатывает, формула действует, а то же на VB - игнорирует замену.
Помогите, как прописать в VB, чтобы замена срабатывала автоматически или может есть способ проще передавать составную формулу так, чтобы в ячейке сразу работала формула !!!
Спасибо.
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
Найти и заменить
    #32553398
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
может код кинешь, которым передаешь формулу.
при корректрой передаче формула должно сразу срабатывать
...
Рейтинг: 0 / 0
Найти и заменить
    #32554023
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ss = "Отчеты"
N= "ПРОБА=ЕСЛИ(F1='W:\Logistic\[" & ss & "]Сводная'!$B$16;'W:\Logistic\[" & ss & "]ИТОГИ'!$H$10;"данные отсутствуют")"
Worksheets("Итоги").Cells(4,6)=N

Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
Найти и заменить
    #32554032
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
забыл уточнить...
Если писать:
N= "=ЕСЛИ(F1='W:\Logistic\[Отчеты]Сводная'!$B$16;'W:\Logistic\[Отчеты]ИТОГИ'!$H$10;"данные отсутствуют")"
Worksheets("Итоги").Cells(4,6)=N

то всё работает. Но у меня постоянно меняется "ss" ...
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
Найти и заменить
    #32554311
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ss = "Отчеты"
N= "=IF(F1='W:\Logistic\[" & ss & "]Сводная'!$B$16,'W:\Logistic\[" & ss & "]ИТОГИ'!$H$10,""данные отсутствуют"")"
Worksheets("Итоги").Cells(4,6)=N
Вот так выводится как формула
...
Рейтинг: 0 / 0
Найти и заменить
    #32554606
Фотография Jojo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Во ...

Jojo®
...
Рейтинг: 0 / 0
Найти и заменить
    #32555451
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ирчаss = "Отчеты"
N= "=IF(F1=\'W:\\Logistic\\[" & ss & "]Сводная\'!$B$16,\'W:\\Logistic\\[" & ss & "]ИТОГИ\'!$H$10,""данные отсутствуют"")"
Worksheets("Итоги").Cells(4,6)=N
Вот так выводится как формула
НИЧАВО подобного - у меня руссифицированный Эксель и он не понимайт "IF", "," ...
Я же говорю в виде N= "=ЕСЛИ(F1=\'W:\\Logistic\\[Отчеты]Сводная\'!$B$16;\'W:\\Logistic\\[Отчеты]ИТОГИ\'!$H$10;"данные отсутствуют")" - работает. А когда составляю с переменной формулирующую строку - воспринимает как текст.
Такое было с "LIKE", но этот вопрос так и не смог решить до конца....
...
Рейтинг: 0 / 0
Найти и заменить
    #32555502
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почему тогда у меня все пашет?

ну скинь мне на мыло, я гляну,
...
Рейтинг: 0 / 0
Найти и заменить
    #32555507
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или скинь мне свое мыло, я тебе свой пример отправлю
...
Рейтинг: 0 / 0
Найти и заменить
    #32555586
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я уже решил задачу другим способом (поэтому всё переписал и скинуть пример не могу , а писать заново лень) - В ячейки собирающего файла вставил ссылочные формулы с проверкой названия файла-источника и с исключением ошибки, если такого названия файла пока не существует.... и т.п.
НО очень интересно добить эту тему ...
Мой МЫЛо открыт
Спасибо
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Найти и заменить
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]