Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to change the casing of the letters in an excel cell?
shortcut for changing casing
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to change the casing of the letters in an excel cell?
"Syed Mohideen" wrote: shortcut for changing casing Syed No shortcut in Excel I'm afraid. You have to use functions Proper(This Is the Text Result) Lower(this is the text result) Upper(THIS IS THE TEXT RESULT) To change the text in place you woud have to use a macro similar to this: Sub changeCase() Dim rsp, c rsp = InputBox("Enter U, P or L to choose Upper, Proper or Lower case") For Each c In Selection If UCase(rsp) = "U" Then c.Value = UCase(c) ElseIf UCase(rsp) = "P" Then c.Value = Application.WorksheetFunction.Proper(c) ElseIf UCase(rsp) = "L" Then c.Value = LCase(c) End If Next End Sub You can assign a shortcut to the macro for ease of use. Regards Peter |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to change the casing of the letters in an excel cell?
Syed
Note that Billy's macro will destroy any formulas you may have in the range and turn them into values only. If you might have formulas in the selected range, change to................. Sub changeCase() Dim rsp, c rsp = InputBox("Enter U, P or L to choose Upper, Proper or Lower case") For Each c In Selection If UCase(rsp) = "U" Then c.Formula = UCase(c.Formula) ElseIf UCase(rsp) = "P" Then c.Formula = Application.WorksheetFunction.Proper(c.Formula) ElseIf UCase(rsp) = "L" Then c.Formula = LCase(c.Formula) End If Next End Sub Gord Dibben MS Excel MVP On Thu, 30 Nov 2006 23:49:00 -0800, Billy Liddel wrote: "Syed Mohideen" wrote: shortcut for changing casing Syed No shortcut in Excel I'm afraid. You have to use functions Proper(This Is the Text Result) Lower(this is the text result) Upper(THIS IS THE TEXT RESULT) To change the text in place you woud have to use a macro similar to this: Sub changeCase() Dim rsp, c rsp = InputBox("Enter U, P or L to choose Upper, Proper or Lower case") For Each c In Selection If UCase(rsp) = "U" Then c.Value = UCase(c) ElseIf UCase(rsp) = "P" Then c.Value = Application.WorksheetFunction.Proper(c) ElseIf UCase(rsp) = "L" Then c.Value = LCase(c) End If Next End Sub You can assign a shortcut to the macro for ease of use. Regards Peter |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel, how do I change the column headings from letters to number | Excel Discussion (Misc queries) | |||
Don't change cell content in Excel by dragging | Excel Worksheet Functions | |||
input 7 in a cell in EXCEL 2000, it will automatically change to 8 | Excel Discussion (Misc queries) | |||
Enter 1 in a cell, excel change to 0.001, WHY? | Excel Worksheet Functions | |||
How do i change column headings back to letters in excel? | Excel Discussion (Misc queries) |