| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
All Caps, / All Lower, not the function
Hi, am wondering if there is Custom Format, or a obtainable button (as in
ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
All Caps, / All Lower, not the function
No special button in Excel, you have to use one of the existing functions or write one. However, why not use the Caps Lock key on the keyboard? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming - check out "XL Extras") "Nastech" wrote in message Hi, am wondering if there is Custom Format, or a obtainable button (as in ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
All Caps, / All Lower, not the function
changes from 1 col to the next, lower, upper..
"Jim Cone" wrote: No special button in Excel, you have to use one of the existing functions or write one. However, why not use the Caps Lock key on the keyboard? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming - check out "XL Extras") "Nastech" wrote in message Hi, am wondering if there is Custom Format, or a obtainable button (as in ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
All Caps, / All Lower, not the function
Generally, I just use =UPPER(A1) in an empty cell, copy it down, then
copy/paste special/values over my original data and delete the helper column. If you want a button, you could use a small macro and assign it to a button: Sub UpperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = UCase(rngCell.Value) Next rngCell End Sub Sub LowerCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = LCase(rngCell.Value) Next rngCell End Sub Sub ProperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = Application.Proper(rngCell.Value) Next rngCell End Sub "Nastech" wrote: changes from 1 col to the next, lower, upper.. "Jim Cone" wrote: No special button in Excel, you have to use one of the existing functions or write one. However, why not use the Caps Lock key on the keyboard? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming - check out "XL Extras") "Nastech" wrote in message Hi, am wondering if there is Custom Format, or a obtainable button (as in ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
All Caps, / All Lower, not the function
Be aware the this code will wipe out any formulas you may have in the range.
Best to go with this revision to look for formulas............. Sub Upper() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Selection If Not Cell.HasFormula Then Cell.Value = UCase(Cell.Value) End If Next Application.ScreenUpdating = True End Sub Or this one which is slightly shorter.................... Sub Upper() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Selection Cell.Formula = UCase(Cell.Formula) Next Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Sun, 6 Jan 2008 21:44:03 -0800, JMB wrote: Generally, I just use =UPPER(A1) in an empty cell, copy it down, then copy/paste special/values over my original data and delete the helper column. If you want a button, you could use a small macro and assign it to a button: Sub UpperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = UCase(rngCell.Value) Next rngCell End Sub Sub LowerCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = LCase(rngCell.Value) Next rngCell End Sub Sub ProperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = Application.Proper(rngCell.Value) Next rngCell End Sub "Nastech" wrote: changes from 1 col to the next, lower, upper.. "Jim Cone" wrote: No special button in Excel, you have to use one of the existing functions or write one. However, why not use the Caps Lock key on the keyboard? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming - check out "XL Extras") "Nastech" wrote in message Hi, am wondering if there is Custom Format, or a obtainable button (as in ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
All Caps, / All Lower, not the function
good call - thanks!
"Gord Dibben" wrote: Be aware the this code will wipe out any formulas you may have in the range. Best to go with this revision to look for formulas............. Sub Upper() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Selection If Not Cell.HasFormula Then Cell.Value = UCase(Cell.Value) End If Next Application.ScreenUpdating = True End Sub Or this one which is slightly shorter.................... Sub Upper() Dim Cell As Range Application.ScreenUpdating = False For Each Cell In Selection Cell.Formula = UCase(Cell.Formula) Next Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Sun, 6 Jan 2008 21:44:03 -0800, JMB wrote: Generally, I just use =UPPER(A1) in an empty cell, copy it down, then copy/paste special/values over my original data and delete the helper column. If you want a button, you could use a small macro and assign it to a button: Sub UpperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = UCase(rngCell.Value) Next rngCell End Sub Sub LowerCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = LCase(rngCell.Value) Next rngCell End Sub Sub ProperCase() Dim rngCell As Range For Each rngCell In Selection.Cells rngCell.Value = Application.Proper(rngCell.Value) Next rngCell End Sub "Nastech" wrote: changes from 1 col to the next, lower, upper.. "Jim Cone" wrote: No special button in Excel, you have to use one of the existing functions or write one. However, why not use the Caps Lock key on the keyboard? -- Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming - check out "XL Extras") "Nastech" wrote in message Hi, am wondering if there is Custom Format, or a obtainable button (as in ms-word for all caps). Have a strong need to have some columns data entered just lower case, and some upper. Guesse would suggest include a "proper" button as well. thanks. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Change from mixed caps and upper lower to all upper lower case | Excel Worksheet Functions | |||
| Formula for changing all caps to lower case | Excel Discussion (Misc queries) | |||
| Convert all caps to lower case | New Users to Excel | |||
| Caps to lower case | Excel Discussion (Misc queries) | |||
| Change source text in Excel from all caps to upper and lower case. | Excel Discussion (Misc queries) | |||
Linear Mode
