Need an UPPERCASE format ability in Excel just like Word

[Guest]

I use MS Excel 2003. Microsoft should update the Excel program to include
the same ability Format->UPPERCASE that is built into MS Word 2003. A user
should simply have the ability to highlight the selected cells and then
Format->UPPERCASE and then all text within the cells should uppercase.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/com...e-12a6076e6bca&dg=microsoft.public.excel.misc

 

[JMP]

There is a formula to transfer lowercase items in uppercase. Use
=UPPERCASE("Celladres which contains lowercase")

 

[Bob Phillips]

The function is UPPER, and it only applies to a single cell, not all, so it
has to copied across

To upshift it all needs code.

 

[Paul D. Simon]

Ron,

Here's a simple macro. To make it available all the time, put it in a
Module in the VBE of your Personal.xls. (I gave it the name UpCase -
you can name it anything you want.)

You can then assign it to a toolbar button, and/or a shortcut key
and/or add it to your menu. For example, if you assign it to a toolbar
button, highlight the cells you want changed to upper case and just
click the button.

I've also included a Lower Case version for you.


Sub UpCase( )
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub


Sub LowCase( )
For Each c In Selection.Cells
c.Value = LCase$(c.Value)
Next c
End Sub


This should give you what you're looking for.
Paul

 

[Paul D. Simon]

Ron,

Might as well give you a Proper Case macro while I'm at it. (Code is a
little different because there's no such syntax as PCase$.)


Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c


Paul

 

[Paul D. Simon]

Oops... Forgot the "End Sub". Here's correct code.

Sub ProperCase()
For Each c In Selection.Cells
c.Value = StrConv(c.Value, vbProperCase)
Next c
End Sub

 

[Guest]

Hi Paul

I'm receiving complie error "Variable (c) is not define" , please correct
this problem & repost the codes of upcase,lowcase & propercase.

Thanks for a handy tool

 

[Dave Peterson]

Add

Dim C as Range

to the top of each procedure, like:

Sub UpCase( )
Dim C as Range
For Each c In Selection.Cells
c.Value = UCase$(c.Value)
Next c
End Sub

 

[Gord Dibben]

Samad

Would like to point out that these macros will also convert any formulas in the
range to values only.

Might not be what you want.

I prefer C.Value = UCase$(C.Formula)


Gord Dibben MS Excel MVP

 

[David McRitchie]

Hi Samad,
here is the correction you asked for plus the correction that
Gord suggested. You can apply the same change to the
other macros. for proper you woud use
c.formula = application.proper(c.formuila)

Sub UpCase( )
dim c as range
For Each c In Selection.Cells
c.formula = UCase$(c.formula)
Next c
End Sub

If you want such macros to run a lot faster when you
select ranges involving entire columns or any other
range, see my page
http://www.mvps.org/dmcritchie/excel/proper.htm

 

[Guest]

Thanks Dave, Gord & David

Such a great kind of service you are doing.

Thanks a lot