View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default CHANGE CASE COMMAND IN MICROSOFT EXCEL

Until MS gets around to making Excel into a word processing application see
help on UPPER, LOWER and PROPER functions.

Or store this macro for use on a range of cells.

Sub TextConvert()
'By Ivan F Moala
'will change the text that you have selected,
'if no text is selected it will change the whole sheet
Dim ocell As Range
Dim Ans As String

Ans = Application.InputBox("Type in Letter" & vbCr & _
"(L)owercase, (U)ppercase, (P)ropercase ")

If Ans = "" Then Exit Sub

For Each ocell In Selection.SpecialCells(xlCellTypeConstants, 2)
Select Case UCase(Ans)
Case "L": ocell = LCase(ocell.Formula)
Case "U": ocell = UCase(ocell.Formula)
Case "P": ocell = Application.Proper(ocell.Formula)
End Select
Next
End Sub


Gord Dibben MS Excel MVP

On Sat, 13 Dec 2008 01:57:00 -0800, Wahaish
wrote:

Microsoft Word contains the command of CHANGE CASE which is very useful, but
Microsoft Excel does not contain this command due to which its too much
difficult as rewrite the whole content of a cell. Cant this command be
available in Microsoft Excel too, I think its not hard for Microsoft
Corporation. Or if this command is available in Microsoft Excel what is the
command.

----------------
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/comm...lic.excel.misc