Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Changing font from lowercase to uppercase easily
In Word I know that we can change the font of an entire document from
lowercase to uppercase without having to re-type the document...is that possible in Excel? |
#2
|
|||
|
|||
Create a macro named Upper_Case any time you need to change case select the
cells and run the macro. Insert the following code in the sub routine: Sub Upper_Case() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim Cell as Range On Error Resume Next 'In case no cells in selection For Each Cell In Intersect(Selection, _ Selection.SpecialCells(xlConstants, xlTextValues)) Cell.Formula = UCase(Cell.Formula) Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub "formhelp" wrote: In Word I know that we can change the font of an entire document from lowercase to uppercase without having to re-type the document...is that possible in Excel? |
#3
|
|||
|
|||
Specifically you would install the macro in your personal.xls so
that it can be accessed from any workbook. http://www.mvps.org/dmcritchie/excel/getstarted.htm The subroutine is installed in a Standard Code Module, not a subroutine. One of the advantages of referencing a web page is all of the explanations that go with the code. http://www.mvps.org/dmcritchie/excel/proper.htm Another advantage is revisions are easily made to a webpage. This is an interesting thread -- I do not see the original message, except as include in Rachel's reply, nor does a thread with this subject appear in Google Groups, nor does the url based on the message-id http://groups.google.com/groups?thre...0microsoft.com --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Rachel" wrote... Create a macro named Upper_Case any time you need to change case select the cells and run the macro. Insert the following code in the sub routine: Sub Upper_Case() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim Cell as Range On Error Resume Next 'In case no cells in selection For Each Cell In Intersect(Selection, _ Selection.SpecialCells(xlConstants, xlTextValues)) Cell.Formula = UCase(Cell.Formula) Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub "formhelp" wrote: In Word I know that we can change the font of an entire document from lowercase to uppercase without having to re-type the document...is that possible in Excel? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing font from lowercase to uppercase easily | Excel Discussion (Misc queries) | |||
changing the width of the font drop-down menu box? | Excel Discussion (Misc queries) | |||
Changing font size in a list box | Excel Discussion (Misc queries) | |||
Changing default font in comments? | Excel Discussion (Misc queries) | |||
uppercase to lowercase | Excel Discussion (Misc queries) |