Регистры символов

[rexec]

Доброго времени суток!
Давно уже задавался вопросом как в Excel'e изменять регистр символов с заглавных в строчные и наоборот. Сейчас этот вопрос встал остро. Поделитесь, пожалуйста, опытом. Интересны любые варианты. Я, например, использую Punto Switcher. Но сейчас необходимо текст в большом количестве ячеек перевести с заглавных в строчные символы. В ячейках основном представлены наименования организация, например ООО "ФОРУМ" и т.п. Необходимо получить ООО "Форум"
С уважением!

[IgorGO]

ПРОПНАЧ из ООО "ФОРУМ" сделает Ооо "Форум". Задача на половину решена))

В любом случае необходимо формировать список исключений, исходную строку разбивать на три части ДоИсключения, Исключение и ПослеИсключения, а потом обьединить в строку ПРОПНАЧ(ДоИсключения) & Исключение & ПРОПНАЧ(ПослеИсключения)

[rexec]

Понял! Спасибо! Видно, мой словарный запас языка формул в Эксель слабоват. Все просто оказалось!

[ZORRO2005]

=ЛЕВСИМВ(A1;НАЙТИ("""";A1))&ПРОПНАЧ (ПСТР(A1;НАЙТИ("""";A1)+1;НАЙТИ(""" ";A1;НАЙТИ("""";A1)+1)-НАЙТИ("""";A1)-1))&""""

[rexec]

Сообщение от ZORRO2005

=ЛЕВСИМВ(A1;НАЙТИ("""";A1))&ПРОПНАЧ (ПСТР(A1;НАЙТИ("""";A1)+1;НАЙТИ(""" ";A1;НАЙТИ("""";A1)+1)-НАЙТИ("""";A1)-1))&""""

Спасибо, уважаемый ZORRO2005, как всегда оперативно, а я только начал экспериментировать.

[ZORRO2005]

Укоротил:
=ЛЕВСИМВ(A2;НАЙТИ("""";A2))&ПРОПНАЧ (ПРАВСИМВ(A2;ДЛСТР(A2)-НАЙТИ("""";A2)))

P.S. Название фирмы слишком знакомое

[rexec]

Сообщение от ZORRO2005

Укоротил:
=ЛЕВСИМВ(A2;НАЙТИ("""";A2))&ПРОПНАЧ (ПРАВСИМВ(A2;ДЛСТР(A2)-НАЙТИ("""";A2)))

P.S. Название фирмы слишком знакомое

Да, так проще получается! Название с потолка, т.е. не совсем, мы же все на форуме все-таки

[ocean_regata]

Всем привет!

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

[SAS888]

Пусть, например, все символы, вводимые в столбец "A", должны быть в верхнем регистре. Тогда вставьте в модуль нужного листа следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Selection.Count = 1 Then Target = UCase(Target)
End Sub

P.S. При копировании/вставке диапазона ячеек, этот метод работать не сработает.

[ocean_regata]

Сообщение от SAS888

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Selection.Count = 1 Then Target = UCase(Target)
End Sub

О!Спасибо!

а если столбцы 4,5,6 (D,E,F), тогда как? вроде и код примитивный , а все равно не получается самому докумекать