Обработать VBA корректно строку с содержанием м²

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

Обработать VBA корректно строку с содержанием м² (Макросы/Sub)

VBAbeginer

Дата: Пятница, 12.02.2016, 09:17 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2013

Как обработать VBA корректно строку с содержанием м² (степень в верхнем регистре), VBA меняет цифру в верхнем регистре степени в символ вопросительного знака (?), при проходе макросом символ ? обрабатывает не только степень, но и любые другие символы.
Задача: требуется найти в строке м² по маске.

Ответить

Kuzmich

Дата: Пятница, 12.02.2016, 11:07 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 715

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

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

Excel 2003

Цитата

найти в строке м²

Используйте цикл по символам в ячейке, например в А1, и условие
[vba]

Код

For i = 1 To Len(Cells(1, 1))
If Cells(1, 1).Characters(i, 1).Font.Superscript = True Then

[/vba]
дальше сами.

Ответить

SLAVICK

Дата: Пятница, 12.02.2016, 11:57 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 2290

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

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

2019

Цитата VBAbeginer, 12.02.2016 в 09:17, в сообщении № 1

VBA меняет цифру в верхнем регистре степени в символ вопросительного знака (?)

Докажите.
Значит Вы неправильно обрабатываете данные.
Вот функции, которые корректно возвращают код символа, а потом из кода сам символ:
[vba]

Код

Function AscChrW_t(s$)
AscChrW_t = AscW(s)
End Function

[/vba]
[vba]

Код

Function ChrW_t(Optional i# = -32768)
If i > 65535 Or i < -32768 Then ChrW_t = "Error": Exit Function
ChrW_t = ChrW(i)
End Function

[/vba]

Цитата VBAbeginer, 12.02.2016 в 09:17, в сообщении № 1

требуется найти в строке м² по маске

Пример использования (и поиска) в файле.

К сообщению приложен файл: 4554.xlsm (18.5 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Wasilich

Дата: Пятница, 12.02.2016, 11:59 | Сообщение № 4

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

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

Сообщений: 1232

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

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

2003

А я вот подумал, если написать просто м2 неужели кто то не поймет?

Ответить

Roman777

Дата: Пятница, 12.02.2016, 12:03 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

У меня лично возникло ощущение, что это в формуле пытаются найти символ, которая идёт по "вставить-формулу". Я вродебы макро-рекордером как-то пытался это всё записать... там и получались "????"...

Много чего не знаю!!!!

Ответить

VBAbeginer

Дата: Пятница, 12.02.2016, 13:52 | Сообщение № 6

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

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

Сообщений: 5

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

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

Excel 2013

Цитата Wasilic, 12.02.2016 в 11:59, в сообщении № 4

А я вот подумал, если написать просто м2 неужели кто то не поймет?

м2 корректно отрабатывает, но не текст м² через поиск в строке не отрабатывается
есть массив Array("м2", "м?", "м. кв.", "кв. м.", "кв. м", и т. д., вариантов много
[moder]А Вам не кажется, что пора уже к реальному файлу и макросу перейти?