Вопрос по команде Replaсe, как-то не так работает / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по команде Replaсe, как-то не так работает

2 сообщений из 2, страница 1 из 1

Вопрос по команде Replaсe, как-то не так работает

#37387467

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

Написал макрос для замены в выделенном диапазоне ячеек Римских чисел (в пределах первых двадцати I-XX) на Арабские. Цифры могут встречаться внутри текста в любом месте.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Sub Замена_Римских_цифр_на_Арабские()
 Dim i As Integer
 Dim a As Variant
 
 a = Array("I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X", "XI", "XII", "XIII", "XIV", "XV", "XVI", "XVII", "XVIII", "XIX", "XX")
 
 With Selection
 
   For i =  20  To  1  Step - 1 
    .Replace What:=a(i -  1 ), Replacement:=i, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
   Next i
   
 End With
End Sub

Но макрос работает некорректно, а точнее как-то не корректно работает команда Replace.

К примеру пусть в выделенной ячейке некий текст "текстIV", после работы макроса получиться "текст15".
Хотя к примеру код

Код: plaintext

.Replace What:="IV", Replacement:="4", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

сделает замену корректно, т.е. получиться "текст4".

Экспериментируя пришёл к выводу, что Replace по разному работает в случае когда непосредственно в коде вбиты литералы и в случае, когда вместо литералов переменные. Можно ли как-то побороть это, не хотелось бы писать 20 строк кода.

...

Рейтинг:

0 / 0

09.08.2011, 16:01

| Ответить | Цитировать | Написать

Вопрос по команде Replaсe, как-то не так работает

#37387491

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

блин, я понял. в чем беда

...

Рейтинг:

0 / 0

09.08.2011, 16:09

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вопрос по команде Replaсe, как-то не так работает

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=61&tid=2176605]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	203ms
get topic data:	7ms
get forum data:	2ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	235ms

total:	504ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы