Her Sözcüğü Büyük Harfle Başlatmak

[vanroning]

Merhaba.
wordde olan "Her Sözcüğü Büyük Harfle Başlat" butonu yok heralde
Excelde bir hücredeki yazıyı nasıl dönüştürebilirim bu şekilde
teşekkürler

 

[aspava]

Merhaba;

Excel'de bildiğim kadarı =YAZIM.DÜZENİ(A1)" formüllü ile yapabilirsiniz.

 

[Korhan Ayhan]

Merhaba,

Excelde metin seçenekleri çok fazla değildir. Önerilen formülle yapabileceğiniz gibi eklenti kullanarak işlem yapabilirsiniz.

Yıllar önce hazırladığım bir eklenti linktedir. (Altın Üyelik gerektirir..)

https://www.excel.web.tr/threads/bueyuek-kuecuek-harf-uygulamasi.74825/

 

[excelokyanus500]

Formül değilde makro ile yapmak isterseniz
1. Bunu

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = False

If Target.Column = 1 Then '  Sadece birinci sütunda ilkharf büyük.

Target = StrConv(Target, vbProperCase)

End If

Application.EnableEvents = True

End Sub

2. Yada bunu

Sub Ilkharf_Buyuk()
Dim rng As Range
Dim FormatRuleInput As String

  On Error Resume Next
    Set rng = Application.InputBox( _
      Title:="Number Format Rule From Cell", _
      Prompt:="Select a cell to pull in your number format rule", _
      Type:=8)
  On Error GoTo 0

  If rng Is Nothing Then Exit Sub
 
rng.Select

For Each Cell In rng
Cell.Value = WorksheetFunction.Proper(Cell)
Next Cell
End Sub

3. Olmazsa bunu

Sub ConvertCase()

Dim rAcells As Range, rLoopCells As Range

Dim lReply As Long



    'Set variable to needed cells

    If Selection.Cells.Count = 1 Then

        Set rAcells = ActiveSheet.UsedRange

    Else

       Set rAcells = Selection

    End If





    On Error Resume Next 'In case of NO text constants.

    'Set variable to all text constants

    Set rAcells = rAcells.SpecialCells(xlCellTypeConstants, xlTextValues)

    

    If rAcells Is Nothing Then

       MsgBox "Could not find any text."

       On Error GoTo 0

       Exit Sub

    End If

          

    lReply = MsgBox("Select 'Yes' for UPPER CASE or 'No' for Proper Case.", vbYesNoCancel, "OzGrid.com")

    If lReply = vbCancel Then Exit Sub

 

    If lReply = vbYes Then ' Convert to Upper Case

          For Each rLoopCells In rAcells

              rLoopCells = StrConv(rLoopCells, vbUpperCase)

          Next rLoopCells

    Else ' Convert to Proper Case

          For Each rLoopCells In rAcells

              rLoopCells = StrConv(rLoopCells, vbProperCase)

          Next rLoopCells

    End If

    

End Sub

deneyin...