Регистры

[Волк]

Как сделать чтобы при нажатии на кнопку все буквы писались в текстовом поле в верхнем регистре????

[IgorGO]

нажмите CapsLock

[Marchuk]

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

нажмите CapsLock

я думаю что он имеет ввиду типа в степени. (как вариант )

[Волк]

Народ мне нужно создать форму на которой будет находиться кнопка при нажатии на которую все буквы будут вводится как при Caps Lock-е

[Marchuk]

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

UCase Function

вставь код на лист , дальше сам. И кстати зачем на форме кнопка?

[Волк]

Такое задание.

[Волк]

Спасибо за помощь UCase работает, но все вводимые после этого символы пишутся нижним регистром.Как сделать чтобы после нажатия кнопки все уже набранные символы переходили в верхний регистр (что и делает UCase) и все вводимые после символы тоже были в верхнем регистре

[Marchuk]

кинь в архиве свою книгу где этот пример.

[Волк]

все выполняется на форме

[EducatedFool]

Вот весь код:

Dim формат As VbStrConv

Private Sub UserForm_Initialize(): формат = 0: End Sub

Private Sub CBNR_Click(): формат = vbLowerCase: Me.TB.SetFocus: End Sub
Private Sub CBPB_Click(): формат = vbProperCase: Me.TB.SetFocus: End Sub
Private Sub CBPBV_Click(): формат = 0: Me.TB.SetFocus: End Sub
Private Sub CBVR_Click(): формат = vbUpperCase: Me.TB.SetFocus: End Sub

Private Sub TB_Change()
    If формат <> 0 Then
        Me.TB.Text = StrConv(Me.TB.Text, формат)
    Else
        Me.TB.Text = UCase(Left(Me.TB.Text, 1)) & Mid(StrConv(Me.TB.Text, vbLowerCase), 2)
    End If
End Sub

По умолчанию (при запуске формы) включен режим "Только первая буква в верхнем регистре"

Пример во вложении: