Макрос, удаление ₽ из ячеек

@pmike367 · Регистрация: 16.07.2015

Author24 — интернет-сервис помощи студентам

Добрый день,
Помогите написать макрос, который будет удалять значок ₽, из ячеек его содержащих, по всех книге
Не могу понять, как это сделать учитывая факт, что VBA не распознает его

@Казанский · 24.07.2015, 14:35

Выделите и скопируйте этот значок в режиме редактирования ячейки, потом Ctrl+H, найти: вставьте значок, заменить на пусто, искать в книге, НЕ ячейка целиком, заменить все.

@pmike367 · 24.07.2015, 14:41 **[ТС]**

Казанский, пробовал уже так. Дело в том, что есть скрипт, который формирует этот экселевский файл. Значок рубля всплывает только в 13 офисе.
При последующем использовании этого макроса, он будет удалять содержимое всех ячеек

@Казанский · 24.07.2015, 14:55

pmike367, а, это знак рубля?

У меня на XP он выглядит прямоугольником.
Так я не понял суть проблемы. Какая разница, как удалять символ - через Ctrl+H или макросом (собсно Cells.Replace ChrW(8381), ...)?

@pmike367 · 24.07.2015, 15:05 **[ТС]**

Казанский, Да знак рубля с черточкой, он поддерживается Unicode и html.
Проблема в том что, в скрипте vbs, который формирует Книгу, ячейке передаются данные из массива и имеет тип данных Money. В старом офисе появляется "р.", а в 13 офисе уже новый значок, который ни vbs, ни vba не воспринимает

@Казанский · 24.07.2015, 15:10

pmike367, я в предыдущем посте показал, как в VBA(VBS, VB6) вводится этот символ: ChrW(8381)

@pmike367 · 27.07.2015, 09:50 **[ТС]**

Казанский, большое спасибо

@pmike367 0 / 0 / 0 Регистрация: 16.07.2015 Сообщений: 11
		1
	Макрос, удаление ₽ из ячеек 24.07.2015, 14:28. Показов 4758. Ответов 6 Метки нет (Все метки) Добрый день, Помогите написать макрос, который будет удалять значок ₽, из ячеек его содержащих, по всех книге Не могу понять, как это сделать учитывая факт, что VBA не распознает его 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.07.2015, 14:35	2
	Выделите и скопируйте этот значок в режиме редактирования ячейки, потом Ctrl+H, найти: вставьте значок, заменить на пусто, искать в книге, НЕ ячейка целиком, заменить все. 0

@pmike367 0 / 0 / 0 Регистрация: 16.07.2015 Сообщений: 11
	24.07.2015, 14:41 [ТС]	3
	Казанский, пробовал уже так. Дело в том, что есть скрипт, который формирует этот экселевский файл. Значок рубля всплывает только в 13 офисе. При последующем использовании этого макроса, он будет удалять содержимое всех ячеек 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.07.2015, 14:55	4
	pmike367, а, это знак рубля? У меня на XP он выглядит прямоугольником. Так я не понял суть проблемы. Какая разница, как удалять символ - через Ctrl+H или макросом (собсно Cells.Replace ChrW(8381), ...)? 0

@pmike367 0 / 0 / 0 Регистрация: 16.07.2015 Сообщений: 11
	24.07.2015, 15:05 [ТС]	5
	Казанский, Да знак рубля с черточкой, он поддерживается Unicode и html. Проблема в том что, в скрипте vbs, который формирует Книгу, ячейке передаются данные из массива и имеет тип данных Money. В старом офисе появляется "р.", а в 13 офисе уже новый значок, который ни vbs, ни vba не воспринимает 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.07.2015, 15:10	6
	pmike367, я в предыдущем посте показал, как в VBA(VBS, VB6) вводится этот символ: ChrW(8381) 0

@pmike367 0 / 0 / 0 Регистрация: 16.07.2015 Сообщений: 11
	27.07.2015, 09:50 [ТС]	7
	Казанский, большое спасибо 0