Effetto maiuscoletto in Excel

[Ricky0185]

Buongiorno, con questa macro simulo l’effetto maiuscoletto nel testo della cella attiva.

Codice: Seleziona tutto

Sub Maiuscoletto()
   For Each x In ActiveCell
      x.Value = UCase(x.Value)
   Next
   With ActiveCell.Characters(Start:=2, Length:=13).Font
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 8
    End With
End Sub


Vorrei però ottenere l’effetto Maiuscoletto anche se nella cella vi sono più di una parola, intercalate ovviamente da uno spazio. Cambiando naturalmente il Lenght13 in 100.
Grazie
R

[Anthony47]

Forse:

Codice: Seleziona tutto

Sub Maiuscoletto2()
Dim cCont As String, cSize As Single, X As Range
Dim I As Long, iSp As Long
'
For Each X In Selection
    X.Value = UCase(X.Value)
    cSize = X.Characters(1, 1).Font.Size
    X.Font.Size = cSize * 0.66                           '<<< rimpicciolire a piacere
    cCont = X.Value
    For I = 1 To Len(cCont)
        If I = 1 Then
            X.Characters(I, 1).Font.Size = cSize
        ElseIf Mid(cCont, I - 1, 1) = " " Then
            X.Characters(I, 1).Font.Size = cSize
        End If
    Next I
Next X
End Sub

Lavora sull'area Selezionata (non la sola cella Attiva)

[Ricky0185]

Naturalmente funziona, però potevi farla un più difficile così avrei potuto capirla. Dimmi solo in che punto si passa alla seconda/terza/quarta parola per poterle formattare separatamente (colore, grassetto, italico, etc).
Ciao e grazie
R

[Anthony47]

La prossima volta mi impegnero' maggiormente...

Codice: Seleziona tutto

        If I = 1 Then
            X.Characters(I, 1).Font.Size = cSize
        ElseIf Mid(cCont, I - 1, 1) = " " Then
            X.Characters(I, 1).Font.Size = cSize
        End If


Con queste istruzioni metto in evidenza la prima lettera e quelle successive il cui carattere che le precede e’ Spazio.
Se vuoi lavorare sulle "parole" allora bisogna aggiungere altro codice

[Ricky0185]

Oggi ce provo poi te sò dì.
Buona giornata
R
PS Io quando voglio risolvere una situazione Excel con una macro ma non ci riesco, prima cerco e trovo la strada in testa, poi cerco nel web la macro da applicare. Mica come te che, conoscendo Excel e tutte le sue vie macro possibili, risolvi la situazione all'istante