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

Da minuscole a Maiuscole

0 views
Skip to first unread message

Gaetano

unread,
Oct 5, 2006, 3:55:01 AM10/5/06
to
Ciao a tutti,
ho la necessità di trasformare in una colonna formato testo tutte le celle
da minuscolo a maiuscolo.
Qualcuno può dirmi come si fa ?
Ringrazio anticipatamente
--
Gaetano

Norman Jones

unread,
Oct 5, 2006, 4:13:18 AM10/5/06
to
Ciao Gaetano,

> ho la necessità di trasformare in una colonna formato testo tutte le celle
> da minuscolo a maiuscolo.
> Qualcuno può dirmi come si fa ?

Prova:
'=============>>
Public Sub MakeUpperCase()
Dim rCell As Range
On Error Resume Next
With Selection
For Each rCell In Intersect(.Cells, _
.SpecialCells(xlCellTypeConstants, 2))
rCell.Value = UCase(rCell)
Next rCell
End With
End Sub
'<<=============

Per utilizzare questa macro:

Alt-F11 per aprire l'Editor di VBA
Menu | Inserisci | Modulo
Incollarci il suddeto codice
Alt-F11 per tornare in Excel
Seleziona le celle di interesse
Alt-F8
Seleziona "MakeUpperCase")
Esegui


---
Regards,
Norman


0 new messages