Подстановка знаков и замена символов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подстановка знаков и замена символов (Макросы Sub)

kirillka

Дата: Среда, 09.10.2013, 12:38 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день,

С Екселем, а конкретно с VBA я совсем на "Вы".
Поэтому, прошу помощи, сам к сожалению разобраться не смог.

Задача в следующем:
Необходимо, что бы в ячейках колонки B, со значениями (для примера) "64/24/13.2", после включения скрипта
менялись значения на "R64-24-132".
Т.е. шла автоматическая подстановка перед значением символа "R", далее слэш заменялся на "-", а точка просто удалялась.

Каким образом это можно реализовать?
Заранее спасибо!

Ответить

KuklP

Дата: Среда, 09.10.2013, 12:48 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Макросом можно. Но пример за Вас рисовать лениво.
[a1]="R" & replace(replace([a1],"/"," - "),".","")

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Среда, 09.10.2013, 12:51

Ответить

ShAM

Дата: Среда, 09.10.2013, 15:00 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Сергей, тогда уж:
[vba]

Код

[b1]="R" & replace(replace([b1],"/"," - "),".","")

[/vba]
Так как:

Цитата (kirillka, 09.10.2013 в 12:38, в сообщении № 1)

что бы в ячейках колонки B

Сообщение отредактировал ShAM - Среда, 09.10.2013, 15:01

Ответить

KuklP

Дата: Среда, 09.10.2013, 15:17 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Ну да.

Спасибо, Алишер.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

kirillka

Дата: Среда, 09.10.2013, 16:30 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

ShAM, KuklP,
Спасибо за Вашу помощь.

Еще момент, а как мне расширить поле действие макроса, что бы он поменял значения, к примеру в 100 ячейках или до конца документа (где есть значения) колонки B?

Ответить

KuklP

Дата: Среда, 09.10.2013, 16:45 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Читайте внимательно:

Цитата (KuklP, 09.10.2013 в 12:48, в сообщении № 2)

можно. Но пример за Вас рисовать лениво.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

ShAM

Дата: Среда, 09.10.2013, 17:11 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата (kirillka, 09.10.2013 в 16:30, в сообщении № 5)

Еще момент, а как мне расширить поле действие макроса, что бы он поменял значения, к примеру в 100 ячейках или до конца документа (где есть значения) колонки B?

Например, циклом:
[vba]

Код

For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row

[/vba]

Ответить

kirillka

Дата: Пятница, 11.10.2013, 14:37 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Вновь обращаюсь за советом.

Как мне объединить в один- 2 макроса, представленные в примере (прикрепленный файл)?
Т.е. что бы символы и подстановка "R" работали одновременно.

И как сделать так, что бы макрос заканчивал работу, когда встречают пустую строку (или первую ячейку пустой строки).

К сообщению приложен файл: 0341841.xls (38.0 Kb)

Ответить

SkyPro

Дата: Пятница, 11.10.2013, 14:41 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Так?

Цитата kirillka, 11.10.2013 в 14:37, в сообщении № 8

И как сделать так, что бы макрос заканчивал работу, когда встречают пустую строку (или первую ячейку пустой строки).

Правда не понял этот моммент. У вас в примере пустые строки встречаются много раз. Вам ножно срабатывание в диапазоне непустых ячеек всего столбца? Или до первой пустой (считая сверху)?