Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена символов или знаков. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена символов или знаков. (Макросы/Sub)
Замена символов или знаков.
Stormy Дата: Среда, 01.10.2014, 11:35 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Доброго дня, уважаемые.
Возникла проблема с заменой букв/символов.
В книге Экзель ( назовем ее Шаблон) есть 5 листов. Subcontactor1, Subcontactor2,....Subcontactor5,
Во всех них в одинаковом диапазоне прописаны формулы ссылающиеся на другую книгу (Бланк) с таким же набором листов
Код
=[blank.xlsx]Subcontractor1!A19

В случае отсутствия какого-то листа в книге Бланк на листе в книге Шаблон выходит ошибка, хочу обработать ошибку сделав формулы
Код
=ЕСЛИОШИБКА([blank.xlsx]Subcontractor1!A19;0)
в таком виде. Как это можно сделать легко и просто? Заменить и Найти дает возможность добавить ЕСЛИОШИБКА( , а вот как заключительную часть дописать не знаю. Это вообще возможно?
К сообщению приложен файл: for.xlsx (15.9 Kb)

Место для рекламы.

Сообщение отредактировал Stormy - Среда, 01.10.2014, 14:11
 
Ответить
СообщениеДоброго дня, уважаемые.
Возникла проблема с заменой букв/символов.
В книге Экзель ( назовем ее Шаблон) есть 5 листов. Subcontactor1, Subcontactor2,....Subcontactor5,
Во всех них в одинаковом диапазоне прописаны формулы ссылающиеся на другую книгу (Бланк) с таким же набором листов
Код
=[blank.xlsx]Subcontractor1!A19

В случае отсутствия какого-то листа в книге Бланк на листе в книге Шаблон выходит ошибка, хочу обработать ошибку сделав формулы
Код
=ЕСЛИОШИБКА([blank.xlsx]Subcontractor1!A19;0)
в таком виде. Как это можно сделать легко и просто? Заменить и Найти дает возможность добавить ЕСЛИОШИБКА( , а вот как заключительную часть дописать не знаю. Это вообще возможно?
Автор - Stormy
Дата добавления - 01.10.2014 в 11:35
Rioran Дата: Среда, 01.10.2014, 11:55 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Stormy, привет =)

Попробуй вот это:

[vba]
Код
Sub How_About_This()

Dim strX As String

strX = Right(Cells(1, 1).FormulaR1C1, Len(Cells(1, 1).FormulaR1C1) - 1)
Cells(1, 1).FormulaR1C1 = "=IFERROR(" & strX & ",0)"

End Sub
[/vba]

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Среда, 01.10.2014, 11:57
 
Ответить
СообщениеStormy, привет =)

Попробуй вот это:

[vba]
Код
Sub How_About_This()

Dim strX As String

strX = Right(Cells(1, 1).FormulaR1C1, Len(Cells(1, 1).FormulaR1C1) - 1)
Cells(1, 1).FormulaR1C1 = "=IFERROR(" & strX & ",0)"

End Sub
[/vba]
Автор - Rioran
Дата добавления - 01.10.2014 в 11:55
Stormy Дата: Среда, 01.10.2014, 12:17 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Выдает ошибку на этой строке
Application-defined or object-defined error
[vba]
Код
Cells(1, 1).FormulaR1C1 = "=IFERROR(" & strX & ",0)"
[/vba]
По моему это из-за объеденных ячеек

Место для рекламы.

Сообщение отредактировал Stormy - Среда, 01.10.2014, 12:18
 
Ответить
СообщениеВыдает ошибку на этой строке
Application-defined or object-defined error
[vba]
Код
Cells(1, 1).FormulaR1C1 = "=IFERROR(" & strX & ",0)"
[/vba]
По моему это из-за объеденных ячеек
Автор - Stormy
Дата добавления - 01.10.2014 в 12:17
Alex_ST Дата: Среда, 01.10.2014, 12:52 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
Stormy,
о о структуре данных книги и о наличии на её листах объединённых ячеек тут никто не знает
Хоть Вы и нарушаете этим Правила форума, Rioran зачем-то взялся Вам помогать.
Но при этом он, естественно, написал только фрагмент кода для замены формулы в одной ячейке.


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеStormy,
о о структуре данных книги и о наличии на её листах объединённых ячеек тут никто не знает
Хоть Вы и нарушаете этим Правила форума, Rioran зачем-то взялся Вам помогать.
Но при этом он, естественно, написал только фрагмент кода для замены формулы в одной ячейке.
Автор - Alex_ST
Дата добавления - 01.10.2014 в 12:52
Stormy Дата: Среда, 01.10.2014, 14:06 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Alex_ST,
При всем уважении, но при чем тут структура данных книги?
Кратко говоря на листе в диапазон ( А1:М15) есть формулы
Код
=[blank.xlsx]Subcontractor1!A1  , =[blank.xlsx]Subcontractor1!A2  , =[blank.xlsx]Subcontractor1!A3  

То есть ссылки на другую книгу в такой же диапазон. Как можно изменить уже вписанные формулы на
Код
=ЕСЛИОШИБКА([blank.xlsx]Subcontractor1!A19;0)

Объеденные ячейки оказались не при чем.

Место для рекламы.
 
Ответить
СообщениеAlex_ST,
При всем уважении, но при чем тут структура данных книги?
Кратко говоря на листе в диапазон ( А1:М15) есть формулы
Код
=[blank.xlsx]Subcontractor1!A1  , =[blank.xlsx]Subcontractor1!A2  , =[blank.xlsx]Subcontractor1!A3  

То есть ссылки на другую книгу в такой же диапазон. Как можно изменить уже вписанные формулы на
Код
=ЕСЛИОШИБКА([blank.xlsx]Subcontractor1!A19;0)

Объеденные ячейки оказались не при чем.
Автор - Stormy
Дата добавления - 01.10.2014 в 14:06
Rioran Дата: Среда, 01.10.2014, 14:13 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Stormy, показанный мной метод работает на ячейках, в которых есть формула. Работа с пустыми ячейками может выдать сильную ошибку, но это решается проверкой на содержимое.

Как верно заметил уважаемый Alex_ST, я вооружил Вас методом, который работает только с одной ячейкой. Нужна ли Вам подсказка, как применить код ко всем листам книги?

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеStormy, показанный мной метод работает на ячейках, в которых есть формула. Работа с пустыми ячейками может выдать сильную ошибку, но это решается проверкой на содержимое.

Как верно заметил уважаемый Alex_ST, я вооружил Вас методом, который работает только с одной ячейкой. Нужна ли Вам подсказка, как применить код ко всем листам книги?
Автор - Rioran
Дата добавления - 01.10.2014 в 14:13
Stormy Дата: Среда, 01.10.2014, 14:23 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Rioran,
Буду признателен, если подскажите как применить этот код к активному листу.

Место для рекламы.
 
Ответить
СообщениеRioran,
Буду признателен, если подскажите как применить этот код к активному листу.
Автор - Stormy
Дата добавления - 01.10.2014 в 14:23
Rioran Дата: Среда, 01.10.2014, 14:36 | Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Можно использовать:

[vba]
Код
With ActiveSheet
     'Ваш код, где перед каждым обращением к ячейкам стоит точка
     'Например .Cells(1, 1)
end with
[/vba]
Для перебора ячеек можно использовать циклы.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеМожно использовать:

[vba]
Код
With ActiveSheet
     'Ваш код, где перед каждым обращением к ячейкам стоит точка
     'Например .Cells(1, 1)
end with
[/vba]
Для перебора ячеек можно использовать циклы.
Автор - Rioran
Дата добавления - 01.10.2014 в 14:36
Stormy Дата: Среда, 01.10.2014, 15:37 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Rioran,
Не тем путем я пошел. Я изначально ссылаюсь на несуществующий/удаленный лист и получаю ошибку и пытаюсь ее обработать. Придется создавать другую тему, вопрос теперь стоит иначе.

Место для рекламы.
 
Ответить
СообщениеRioran,
Не тем путем я пошел. Я изначально ссылаюсь на несуществующий/удаленный лист и получаю ошибку и пытаюсь ее обработать. Придется создавать другую тему, вопрос теперь стоит иначе.
Автор - Stormy
Дата добавления - 01.10.2014 в 15:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена символов или знаков. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!