Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Maiuscolo a minuscolo

36 views
Skip to first unread message

vittorio

unread,
Aug 9, 2009, 4:45:20 AM8/9/09
to
Vorrei sapere se in Excel esiste la possibilitᅵ di convertire da
Maiuscolo a minuscolo, viceversa o solamente l'iniziale. la stessa
funzione che esiste in WOrd.

Grazie
Vittorio

Mauro Gamberini

unread,
Aug 9, 2009, 4:49:39 AM8/9/09
to
> Vorrei sapere se in Excel esiste la possibilit� di convertire da Maiuscolo
> a minuscolo, viceversa o solamente l'iniziale. la stessa funzione che
> esiste in WOrd.
>

Funzioni: MAIUSC e MINUSC nella
guida di Excel.

--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads


paoloard

unread,
Aug 9, 2009, 4:56:05 AM8/9/09
to

"vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
news:4a7e8cad$0$28509$4faf...@reader2.news.tin.it...

Ciao vittorio, vedi le funzioni:
MAIUSC()
MAIUSC.INIZ()
MINUSC()
--
Fai sapere se e come hai risolto. Grazie

Ciao paoloard
http://riolab.org

Mauro Gamberini

unread,
Aug 9, 2009, 4:55:32 AM8/9/09
to
<cut>
> o solamente l'iniziale
>

Funzione: MAIUSC.INIZ

Mauro Gamberini

unread,
Aug 9, 2009, 5:17:54 AM8/9/09
to
<cut>

Se(se) vuoi puoi anche utilizzare queste macro
che agiscono sulle celle attive senza dover utilizzare
colonne di appoggio:

Public Sub mMaiuscolo()
Dim c As Range
For Each c In Selection
c.Value = UCase(c.Value)
Next
Set c = Nothing
End Sub

Public Sub mMinuscolo()
Dim c As Range
For Each c In Selection
c.Value = LCase(c.Value)
Next
Set c = Nothing
End Sub

Public Sub mPrimaMaiuscola()
Dim s As String
Dim c As Range
For Each c In Selection
s = ""
s = UCase(Left(c.Value, 1))
s = s & LCase(Mid( _
c.Value, 2, Len(c.Value)))
c.Value = s
Next
Set c = Nothing
End Sub

Puoi poi assegnare pulsanti o tasti di scelta
rapida alle macro.

vittorio

unread,
Aug 9, 2009, 8:46:21 AM8/9/09
to
paoloard ha scritto:

>
> "vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
> news:4a7e8cad$0$28509$4faf...@reader2.news.tin.it...
>> Vorrei sapere se in Excel esiste la possibilitᅵ di convertire da
>> Maiuscolo a minuscolo, viceversa o solamente l'iniziale. la stessa
>> funzione che esiste in WOrd.
>>
>> Grazie
>> Vittorio
>
> Ciao vittorio, vedi le funzioni:
> MAIUSC()
> MAIUSC.INIZ()
> MINUSC()

Ho provato Formule > Inserisci Funzione > Testo Maiusc.Iniz scrivo A2 e
sulla finestra che si ᅵ aperta si vede per VITTORIO Vittorio, ma poi
sulla cella si vede =MAIUSC:INIZ(A2)

E inoltre dovrei convertire diverse Celle
Grazie ancora
Vittorio

r

unread,
Aug 9, 2009, 9:57:01 AM8/9/09
to
"Mauro Gamberini" ha scritto:

ciao Mauro,
aggiungerei ... una visita a:

Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])
Membro di VBA.Strings

saluti
r

--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html

paoloard

unread,
Aug 9, 2009, 10:43:22 AM8/9/09
to

"vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
news:4a7ec53b$0$40017$4faf...@reader3.news.tin.it...
> paoloard ha scritto:
cut

>
> Ho provato Formule > Inserisci Funzione > Testo Maiusc.Iniz scrivo A2 e
> sulla finestra che si ᅵ aperta si vede per VITTORIO Vittorio, ma poi sulla
> cella si vede =MAIUSC:INIZ(A2)
>
> E inoltre dovrei convertire diverse Celle
> Grazie ancora
> Vittorio

ciao Vittorio, cominciamo dall'inizio.
Supponiamo che hai i dati in colonna [A], nella cella a fianco di quella che
contiene il dato da convertire (poniamo [B2] ) scrivi direttamente la
funzione =MAIUSC.INIZ(A2) e premi invio. Dopo di che copi la cella [B2] in
basso per tutta la lunghezza dell'intervallo dei dati in colonna [A].
NB: la funzione =MAIUSC.INIZ() ha le due parole separate da un "punto" non
da "due punti".

vittorio

unread,
Aug 9, 2009, 12:29:13 PM8/9/09
to
paoloard ha scritto:

OK Grazie
Adesso la seconda parte Ho dei nomi sulle due celle A e B in MAiuscolo
e dovrei farle diventare solo l'iniziale in Maiuscolo Fanno da A1 ad A
20 e da B1 a B20 come farli tutti insieme?
Grazie ancora
V.

paoloard

unread,
Aug 9, 2009, 2:03:59 PM8/9/09
to

"vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
news:4a7ef968$0$34623$4faf...@reader4.news.tin.it...

> paoloard ha scritto:
>>
>> "vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
>> news:4a7ec53b$0$40017$4faf...@reader3.news.tin.it...
>>> paoloard ha scritto:
>> cut
>
> Adesso la seconda parte Ho dei nomi sulle due celle A e B in MAiuscolo e
> dovrei farle diventare solo l'iniziale in Maiuscolo Fanno da A1 ad A 20 e
> da B1 a B20 come farli tutti insieme?
> Grazie ancora
> V.

Nella cella [C1] scrivi la formula: =MAIUSC.INIZ(A1) conferma con invio
Copia la cella [C1] e incollala in [D1]
Seleziona le due celle [C1] [D1] e copiale fino alla riga 20.
Se non ti interessa mantenere i nomi originali in colonna [A] e [B],
seleziona l'intervallo [C1:D20], fai la copia e, in [E1], incolla
speciale-->valori.
Dopo di che puoi eliminare le colonne dalla [A] alla [D].

vittorio

unread,
Aug 10, 2009, 1:53:38 AM8/10/09
to
paoloard ha scritto:
>
> "vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
> news:4a7ef968$0$34623$4faf...@reader4.news.tin.it...
>> paoloard ha scritto:
>>>
>>> "vittorio" <vl5712...@virgilio.it> ha scritto nel messaggio
>>> news:4a7ec53b$0$40017$4faf...@reader3.news.tin.it...
>>>> paoloard ha scritto:
>>> cut
>>
>> Adesso la seconda parte Ho dei nomi sulle due celle A e B in
>> MAiuscolo e dovrei farle diventare solo l'iniziale in Maiuscolo Fanno
>> da A1 ad A 20 e da B1 a B20 come farli tutti insieme?
>> Grazie ancora
>> V.
>
> Nella cella [C1] scrivi la formula: =MAIUSC.INIZ(A1) conferma con invio
> Copia la cella [C1] e incollala in [D1]
> Seleziona le due celle [C1] [D1] e copiale fino alla riga 20.
> Se non ti interessa mantenere i nomi originali in colonna [A] e [B],
> seleziona l'intervallo [C1:D20], fai la copia e, in [E1], incolla
> speciale-->valori.
> Dopo di che puoi eliminare le colonne dalla [A] alla [D].

Sei stato chiarissimo!
Grazie

Mauro Gamberini

unread,
Aug 10, 2009, 3:17:43 AM8/10/09
to
> aggiungerei ... una visita a:
>
> Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])
> Membro di VBA.Strings
>

Che, se ben ricordo per�, in una frase come
"ciao come stai?" trasforma *tutte* le prime
lettere delle parole in maiuscolo(vbProperCase?):
"Ciao Come Stai?" e non "Ciao come stai?"

Vado a memoria, non ho Excel sotto mano.

r

unread,
Aug 10, 2009, 4:38:01 AM8/10/09
to
"Mauro Gamberini" ha scritto:

> > aggiungerei ... una visita a:
> >
> > Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])
> > Membro di VBA.Strings
> >
>

> Che, se ben ricordo però, in una frase come


> "ciao come stai?" trasforma *tutte* le prime
> lettere delle parole in maiuscolo(vbProperCase?):
> "Ciao Come Stai?" e non "Ciao come stai?"

esattamente, basta leggere la guida come suggerito.
Si comporta come Maiusc.Iniziale

>
> Vado a memoria, non ho Excel sotto mano.

Nonostante l'età la memoria ti funziona ancora
bene :-)
ciao

Nur

unread,
Aug 10, 2009, 4:59:20 AM8/10/09
to

"Mauro Gamberini" <maurogsc...@RIMUOVEREaliceposta.it> ha scritto nel
messaggio news:eZstSsYG...@TK2MSFTNGP02.phx.gbl...

>
> Vado a memoria, non ho Excel sotto mano.
>
Questa l'ho gi� sentita...

Ciao, Nur


r

unread,
Aug 10, 2009, 6:07:01 AM8/10/09
to
"Mauro Gamberini" ha scritto:

> > aggiungerei ... una visita a:
> >
> > Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])
> > Membro di VBA.Strings
> >
>

> Che, se ben ricordo però, in una frase come


> "ciao come stai?" trasforma *tutte* le prime
> lettere delle parole in maiuscolo(vbProperCase?):
> "Ciao Come Stai?" e non "Ciao come stai?"

poi si potrebbe tentare di fare qualcosa
di più *intelligente* ...

Function MaiuscoInizialeMigliorato(ByVal s As String) As String
Dim v, i As Long
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Pattern = "(^|[.!?]\b|[.!?]\s\b|\r\b)(.)"
re.Global = True
MaiuscoInizialeMigliorato = re.Replace(s, "$1#$2#")
v = Split(MaiuscoInizialeMigliorato, "#", , vbTextCompare)
For i = 1 To UBound(v) Step 2
v(i) = VBA.StrConv(v(i), vbUpperCase)
Next
MaiuscoInizialeMigliorato = Join(v, "")
End Function

output
?MaiuscoInizialeMigliorato("come stai? bene! e tu? male. comunque sono
ottimista")
Come stai? Bene! E tu? Male. Comunque sono ottimista

Mauro Gamberini

unread,
Aug 10, 2009, 6:11:46 AM8/10/09
to
> Questa l'ho gi� sentita...
>

Mon capitain!!!
*Uellcomm* a casa.

Mauro Gamberini


0 new messages