Изменение регистра букв

[frantic150]

Помогите написать макрос для изменения регистра букв слова в ячейке
Например:

A1 = "Яблоко" >>> A1 = "ЯБЛОКО"

[Sasha_Smirnov]

Sub CaseSwitcher()
' Сочетание клавиш: Ctrl+s'
Static even As Boolean
even = Not even
    Select Case even
    Case True
        Selection = UCase(Selection)
    Case False
        Selection = LCase(Selection)
    End Select
End Sub

Выделяете ячейку — и запускаете макрос (можно по Alt-F8 или Alt-F11).

Приложенная программа работает лишь с одной ячейкой — выделенной. (Это аналог сочетания Shift-F3 в Word’е.)

[Sasha_Smirnov]

А для выделенной области, что, не надо?

(Без отзывов непонятно, как оно?)

[dzaymko]

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

А для выделенной области, что, не надо?

(Без отзывов непонятно, как оно?)

Код:

Sub CaseSwitcher()
' Сочетание клавиш: Ctrl+s'
Static even As Boolean
even = Not even
Select Case even
Case True
Selection = UCase(Selection)
Case False
Selection = LCase(Selection)
End Select
End Sub

как прописать для столбца или выделенной области????

[DiemonStar]

Sub UPCase()
  If TypeName(Selection) = "Range" Then
    For Each C In Selection.Cells
      C.Value = UCase(C.Value)
    Next C
  End If
End Sub

Изменяет регистр на верхний в выделенной области.

[dzaymko]

спасибо огромное DiemonStar


подскажите как прописать надо поменять "Autofren" на "AUTOFREN SIENA" и еще несколько слов ?

[DiemonStar]

Один из наилучших способов.

[dzaymko]

можно прописать замена текста по условию(что в этой строке есть определенный текст) ????

например:
бренд----М456
бренд1---М456
бренд2---М456

надо заменить М456 на Т456 только в строке бренд!

[users-znaika]

DiemonStar, подскажите плиз, на два вопроса:
1. как прописать у него возможность чтобы можно было менять регистр - (маленькие-большие: большие-маленькие)?
2. как сделать, чтобы данный макрос запускался по умолчанию с загрузкой Екселя?

[DiemonStar]

Private Sub Workbook_Open()
  S = MsgBox("В верхний регистр (Да), в нижний регистр (Нет)?", vbYesNoCancel, "Преобразование регистра")
  If S <> vbCancel Then
    For Each C In ActiveSheet.[A1].CurrentRegion.Cells
        Select Case S
          Case vbYes
              C.Value = UCase(C.Value)
          Case vbNo
              C.Value = LCase(C.Value)
        End Select
      Next C
  End If
End Sub

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