Поиск позиции прописной буквы в строке

Пользователь

Сообщений: 25 Регистрация: 24.12.2012

04.07.2013 11:07:05

Добрый день планета! Помогите со следующим вопросом пожалуйста: есть столбец с ячейками, в ячейках текст различной длины, в тексте (не в начале) есть заглавные буквы типа ООО, ЗАО. Можно как то вычислить позицию заглавных букв( буквы могут быть разные, единственный критерий, буква является заглавной)? Как?

Serge 007 Гость	#2 04.07.2013 11:15:46 Можно по коду символа (они разные для строчных и прописных) Пример будет?

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

04.07.2013 11:23:43

Код
Public Function UkPos&(c$) Dim i&, S S = Split(Application.Trim(c), " ") For i = 0 To UBound(S) If Asc(S(i)) = Asc(UCase(S(i))) Then UkPos& = InStr(1, c, S(i)): Exit Function Next End Function

Я сам - дурнее всякого примера! ...

Serge 007 Гость	#4 04.07.2013 11:32:20 Пришел поручик Ржевский и ...

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#5 04.07.2013 11:36:48 М-да... Я сам - дурнее всякого примера! ...

S T Пользователь Сообщений: 25 Регистрация: 24.12.2012	#6 04.07.2013 12:04:42 Кажется я вас понял, в таком случае мне придется искать по коду каждой буквы всего алфавита, правильно? Пример скинуть не могу, выйти могу только с планшета.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 04.07.2013 12:14:22 Я Вам готовую функцию выложил. Я сам - дурнее всякого примера! ...

Serge 007

Гость

04.07.2013 12:22:51

Цитата
S T пишет: Пример скинуть не могу, выйти могу только с планшета

На планшете Серёгина UDF работать не будет
Нет примера - нет решения

S T Пользователь Сообщений: 25 Регистрация: 24.12.2012	#9 04.07.2013 13:00:36 KuklP, Опа, спасибо большое, не заметил. Сейчас буду тестировать. Еще раз спасибо.

Читают тему