[excel] macro x maiuscola iniziale

[marcoc]

ciao a tutti,
alla creazione di ogni nuovo foglio, vorrei che cliccando un pulsante personalizzato, si formattasse in modo che, qualsiasi cosa scrivo avesse la prima lettera maiuscola; ad esempio, se digito "numero", all'enter, mi ridà "Numero"; se scrivo "numero ordine", mi ridà "Numero ordine" (maiuscola solo la prima lettera della prima parola).
mi sapete dire che devo scrivere nel Visual Basic per avere una macro del genere?

altrimenti, sarebbe possibile che selezionando le celle che mi servono e cliccando il pulsante personalizzato, mi convertisse in maiuscolo la prima lettera della prima parola di ogni cella? (in pratica, che le celle a cui applicare la macro varino di volta in volta in base alla selezione che faccio col mouse+tasto ctrl)

[Dylan666]

http://www.ozgrid.com/VBA/change-case-text.htm
Ora come ora però quello script se selezioni una sola cella fa la conversione su tutto il foglio ma basta togliere il primo blocco "if ..End If" e lasciare solo "Set rAcells = Selection"

[Anthony47]

..oppure questa macro nostrana:

Codice: Seleziona tutto

Sub Up1only()
For Each Cella In Selection
If Len(Cella.Value) > 0 Then Cella.Value = UCase(Left(Cella.Value, 1)) & Right(Cella.Value, Len(Cella.Value) - 1)
Next Cella
End Sub

Come da richiesta mette solo la prima lettera in maiuscolo; lavora sulle celle selezionate.

Se vuoi fare in modo che quello che scrivi viene modificato automaticamente in tal modo, metterai l’ istruzione “IF LEN etc etc” in una macro di Worksheet_Change, e sostituirai “Cella” con “Target”; come in tutte le macro di evento, in testa Application.Enableevent=False e in coda Application.Enableevent=True

Se vuoi associare la macro a un pulsante sulla barra degli strumenti, crea il pulsante (tab Comandi, categoria Macro) nella barra che preferisci (o in una barra di strumenti “Personalizzata” che ti crei), poi doppioclick sul pulsante e ti sara’ chiesto a quale macro associarlo; qui ovviamente sceglierai Up1only.
La macro non consente “annulla”; se ti serve, puoi creare una macro che toglie la maiuscola iniziale usando lo stesso codice ad eccezione di “UCase(Left etc etc” che sostituirai con “lCase(Left etc etc”, che assocerai a un altro pulsante.

Ciao.