Автоматически изменять первую букву в слове на заглавную для Microsoft Office Excel.

[agregator]

Как сделать, чтобы в ячейке Microsoft Office Excel первая буква в слове в начале предложения заменялась на заглавную автоматически?

[IFRSoff]

Я знаю только формульный вариант =ПРОПНАЧ(A1)

[EducatedFool]

Может, это надо сделать средствами Excel?
Например, через меню Сервис - Параметры автозамены...

[agregator]

Галочка стоит, но буква на заглавную не меняется. Почемуто.

[kipish_lp]

ПРОПНАЧ() - это каждое слово с заглавной буквы. А как сделать так, чтобы первая буква первого слова начиналась с заглавной буквы?

[agregator]

Этот код меняет первую букву в ячейке на заглавную автоматически:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCell As Range
For Each oCell In Target
On Error GoTo NoText
oCell = UCase(Left(oCell.Text, 1)) & _
Right(oCell.Text, Len(oCell.Text) - 1)
Next
Exit Sub
NoText:
End Sub
А этот код меняет регистр на ваш выбор, в выбранном диапозоне ячеек:
Sub Замена_регистра()
Dim RgText As Range
Dim oCell As Range
Dim Ans As String
Dim strTest As String
Dim sCap As Integer, _
lCap As Integer, _
i As Integer
'// Предполагается, что перед вызовом макроса
'// пользователь выделил требуемый диапазон текста.
Again:
Ans = Application.InputBox("[С]трочные" & vbCr & "[П]рописные" _
& vbCr & "[К]ак в предложениях" & vbCr & "[Н]ачинать с прописных" _
& vbCr & "[М]алые прописные", "Введите букву", Type:=2)
If Ans = "False" Then Exit Sub
If InStr(1, "СПКНМ", UCase(Ans), vbTextCompare) = 0 Or _
Len(Ans) > 1 Then GoTo Again
On Error GoTo NoText
If Selection.Count = 1 Then
Set RgText = Selection
Else
Set RgText = Selection.SpecialCells(xlCellTypeCo nstants, 2)
End If
On Error GoTo 0
For Each oCell In RgText
Select Case UCase(Ans)
Case "С": oCell = LCase(oCell.Text)
Case "П": oCell = UCase(oCell.Text)
Case "К": oCell = UCase(Left(oCell.Text, 1)) & _
LCase(Right(oCell.Text, Len(oCell.Text) - 1))
Case "Н": oCell = Application.WorksheetFunction.Prope r( _
oCell.Text)
Case "М"
lCap = oCell.Characters(1, 1).Font.Size
sCap = Int(lCap * 0.85)
'Малые прописные для всех букв.
oCell.Font.Size = sCap
oCell.Value = UCase(oCell.Text)
strTest = oCell.Value
'Большие прописные для 1-х букв слов.
strTest = Application.Proper(strTest)
For i = 1 To Len(strTest)
If Mid(strTest, i, 1) = UCase(Mid(strTest, _
i, 1)) Then
oCell.Characters(i, 1).Font.Size = lCap
End If
Next i
End Select
Next
Exit Sub
NoText:
MsgBox "Текст в диапазоне " & Selection.Address & " отсутствует"
End Sub

[kipish_lp]

Этот код меняет первую букву в ячейке на заглавную автоматически

Извините за безграмотность, а как это запустить?

[agregator]

Kipish_lp, нажмите Alt+F11 выберите "Эта книга" и скопируйте туда этот код:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim oCell As Range
For Each oCell In Target
On Error GoTo NoText
oCell = UCase(Left(oCell.Text, 1)) & _
Right(oCell.Text, Len(oCell.Text) - 1)
Next
Exit Sub
NoText: End Sub
Во вложении Книга, где это сделано, смотрите.

[agregator]

Всем здрасти.
Этот код работает, но он зацикливается, т.е. много раз повторяется

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim oCell As Range
For Each oCell In Target
On Error GoTo NoText
oCell = UCase(Left(oCell.Value, 1)) & _
Right(oCell.Value, Len(oCell.Value) - 1)
Next
Exit Sub
NoText: End Sub

Подскажите, как сделать так, чтобы он не зацикливался.

[Hugo121]

Нормально код работает. Возможно, у Вас есть ещё код в листе на изменение ячеек - тогда попробуйте вставить в этот код
Application.EnableEvents = False
...
Application.EnableEvents = True

P.S. Попробовал - на моём примере не помогает, но Вы попробуйте - вдруг с Вашим вторым кодом сработает...