Замена символа в выделенном диапазоне - Microsoft Office Excel

uralshans · 07.10.2013, 15:20

Добрый день!!
Такое дело:

Ячейки содержат сотовые номера такого вида "8-555-555-55-55" и "+7-555-555-55-55". Хочу макросом объединить эти два вида в единый.
Результат желаемый: выделяю диапазон ячеек, допустим А1:В20, жму запуск макроса, выходит юзерформ с 2 textbox.. textbox1 ввожу символ который нужно заменить, а в textbox2 ввожу символ на который нужно заменить, кликаю кнопку "ОК".

Заранее благадарю за содействие!!

Hugo121 · 07.10.2013, 15:28

Выделяете диапазон, жмёте Ctrl+H, выходит форма... Зачем макрос?

uralshans · 07.10.2013, 16:09

ничосебе! =) спасибо!

Hugo121 · 07.10.2013, 16:16

Не, ну с макросом конечно чуть удобнее - никаких лишних кнопок, настроек, вопросов... Но ведь его ещё кому-то нужно написать!
Если Вам делать нечего - изучаете формы, текстбоксы, макрорекордер, объёдиняете это в один "продукт".

uralshans · 07.10.2013, 16:29

с кнопками и текстбоксами разобрался

Код:

ActiveCell.Replace What:=Me.TextBox1.Value, Replacement:=Me.TextBox2.Value

всё работает, но только на 1 ячейку.
Как доработать до замены символа во всём диапазоне? претпалагаю что то нужно с ActiveCell.Replace сделать.. пробовал Range.Replace, выдал ошибку, мб незакнчен код мой.

Hugo121 · 07.10.2013, 16:31

Selection

!!!

uralshans · 08.10.2013, 15:23

Код:

Selection.Replace What:=Me.TextBox1.Value, Replacement:=Me.TextBox2.Value

большое спасибо!)

07.10.2013, 15:28	#2
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Выделяете диапазон, жмёте Ctrl+H, выходит форма... Зачем макрос? webmoney: E265281470651 Z422237915069 R418926282008

07.10.2013, 16:16	#4
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Не, ну с макросом конечно чуть удобнее - никаких лишних кнопок, настроек, вопросов... Но ведь его ещё кому-то нужно написать! Если Вам делать нечего - изучаете формы, текстбоксы, макрорекордер, объёдиняете это в один "продукт". webmoney: E265281470651 Z422237915069 R418926282008

07.10.2013, 16:29	#5
uralshans Пользователь Регистрация: 26.12.2012 Сообщений: 66	с кнопками и текстбоксами разобрался Код: `ActiveCell.Replace What:=Me.TextBox1.Value, Replacement:=Me.TextBox2.Value` всё работает, но только на 1 ячейку. Как доработать до замены символа во всём диапазоне? претпалагаю что то нужно с ActiveCell.Replace сделать.. пробовал Range.Replace, выдал ошибку, мб незакнчен код мой.

07.10.2013, 16:31	#6
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Selection !!! webmoney: E265281470651 Z422237915069 R418926282008

08.10.2013, 15:23	#7
uralshans Пользователь Регистрация: 26.12.2012 Сообщений: 66	благодарность Код: `Selection.Replace What:=Me.TextBox1.Value, Replacement:=Me.TextBox2.Value` большое спасибо!)

07.10.2013, 16:09	#3
uralshans Пользователь Регистрация: 26.12.2012 Сообщений: 66	ничосебе! =) спасибо!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Замена символа в строке!	Leximus	Общие вопросы Delphi	2	12.12.2011 13:13
Как найти текст в выделенном диапазоне?	Мультипликатор	Microsoft Office Word	2	15.09.2010 10:55
Замена символа в файле	Spandei	Общие вопросы C/C++	1	14.05.2010 08:21
Замена символа...	Glock	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	20.11.2009 15:13
Замена символа	Flippp	Общие вопросы C/C++	20	24.06.2009 17:18