G
Guest
How do I change the text on a total page from lower to upper case? Please respond. Thanks! in advance
J
Jason Morin
MVP David McRitchie has a macro you can run on his website:
http://www.geocities.com/davemcritchie/excel/proper.htm
Scroll down until you see the header "Uppercase".
HTH
Jason
Atlanta, GA
http://www.geocities.com/davemcritchie/excel/proper.htm
Scroll down until you see the header "Uppercase".
HTH
Jason
Atlanta, GA
upper case? Please respond. Thanks! in advance!
D
Dave Peterson
My, that's an old link:
http://www.mvps.org/dmcritchie/excel/proper.htm
(I got severely chastised when I copied|pasted from an old file! <vbg>.)
http://www.mvps.org/dmcritchie/excel/proper.htm
(I got severely chastised when I copied|pasted from an old file! <vbg>.)
M
Max
One way - try the sub SwitchCase* below,
which enables one to toggle the case of selected cells
*sub posted by Frank Isaacs '97
Steps
--------
1. Press Alt + F11 to go to VBE
2. Click Insert > Module
3. Copy > Paste the sub below
(everything between the dotted lines)
into the white empty space in the right-side window
-------begin vba------
Sub SwitchCase()
'Frank Isaacs May '97
'Select the cells and run
'Cells' case toggle order:
'if Lower > Upper
'if Upper > Proper
'if Proper** > Lower
'**or neither of the 3 case types
Dim Cell As Range
For Each Cell In Selection
Select Case True
Case Cell = LCase(Cell) 'It's lowercase
Cell = UCase(Cell)
Case Cell = UCase(Cell) 'It's uppercase
Cell = Application.Proper(Cell)
Case Else 'It's neither upper nor lower
Cell = LCase(Cell)
End Select
Next
End Sub
-------end vba------
4. Press Alt + Q to return to Excel
Running the macro
----------------------
5. Select the range of cells, e.g.: select A1
200
(or to select entire sheet, press Ctrl + A)
6. Press Alt + F8 (or click Tools > Macro > Macros)
In the dialog box:
Click on "SwitchCase" > Run
(or just double-click on "SwitchCase")
7. When complete, the text-case of the
selected cells will be converted
depending on their existing case, viz.:
Cells' case toggle order:
----------------------------------
if Lower > Upper
if Upper > Proper
if Proper* > Lower
*or neither of the 3 case types
From your post, as the text are all in lower case
you will get all converted to upper case
To further toggle the case, just run / re-run the sub over
---------------------
You could also assign the sub to a button drawn
from the Forms* toolbar in sheet: Daily report
(*Activate toolbar via View > Toolbars > Forms)
Or, assign to an autoshape drawn in the sheet
(via right-click on autoshape > Assign Macro)
The above would make it easier to run / re-run the sub
which enables one to toggle the case of selected cells
*sub posted by Frank Isaacs '97
Steps
--------
1. Press Alt + F11 to go to VBE
2. Click Insert > Module
3. Copy > Paste the sub below
(everything between the dotted lines)
into the white empty space in the right-side window
-------begin vba------
Sub SwitchCase()
'Frank Isaacs May '97
'Select the cells and run
'Cells' case toggle order:
'if Lower > Upper
'if Upper > Proper
'if Proper** > Lower
'**or neither of the 3 case types
Dim Cell As Range
For Each Cell In Selection
Select Case True
Case Cell = LCase(Cell) 'It's lowercase
Cell = UCase(Cell)
Case Cell = UCase(Cell) 'It's uppercase
Cell = Application.Proper(Cell)
Case Else 'It's neither upper nor lower
Cell = LCase(Cell)
End Select
Next
End Sub
-------end vba------
4. Press Alt + Q to return to Excel
Running the macro
----------------------
5. Select the range of cells, e.g.: select A1
200(or to select entire sheet, press Ctrl + A)
6. Press Alt + F8 (or click Tools > Macro > Macros)
In the dialog box:
Click on "SwitchCase" > Run
(or just double-click on "SwitchCase")
7. When complete, the text-case of the
selected cells will be converted
depending on their existing case, viz.:
Cells' case toggle order:
----------------------------------
if Lower > Upper
if Upper > Proper
if Proper* > Lower
*or neither of the 3 case types
From your post, as the text are all in lower case
you will get all converted to upper case
To further toggle the case, just run / re-run the sub over
---------------------
You could also assign the sub to a button drawn
from the Forms* toolbar in sheet: Daily report
(*Activate toolbar via View > Toolbars > Forms)
Or, assign to an autoshape drawn in the sheet
(via right-click on autoshape > Assign Macro)
The above would make it easier to run / re-run the sub
M
Max
One way - try the sub SwitchCase* below,
which enables one to toggle the case of selected cells
*sub posted by Frank Isaacs '97
Steps
--------
1. Press Alt + F11 to go to VBE
2. Click Insert > Module
3. Copy > Paste the sub below
(everything between the dotted lines)
into the white empty space in the right-side window
-------begin vba------
Sub SwitchCase()
'Frank Isaacs May '97
'Select the cells and run
'Cells' case toggle order:
'if Lower > Upper
'if Upper > Proper
'if Proper** > Lower
'**or neither of the 3 case types
Dim Cell As Range
For Each Cell In Selection
Select Case True
Case Cell = LCase(Cell) 'It's lowercase
Cell = UCase(Cell)
Case Cell = UCase(Cell) 'It's uppercase
Cell = Application.Proper(Cell)
Case Else 'It's neither upper nor lower
Cell = LCase(Cell)
End Select
Next
End Sub
-------end vba------
4. Press Alt + Q to return to Excel
Running the macro
----------------------
5. Select the range of cells, e.g.: select A1200
(or to select entire sheet, press Ctrl + A)
6. Press Alt + F8 (or click Tools > Macro > Macros)
In the dialog box:
Click on "SwitchCase" > Run
(or just double-click on "SwitchCase")
7. When complete, the text-case of the
selected cells will be converted
depending on their existing case, viz.:
Cells' case toggle order:
----------------------------------
if Lower > Upper
if Upper > Proper
if Proper* > Lower
*or neither of the 3 case types
From your post, as the text are all in lower case
you will get all converted to upper case
To further toggle the case, just run / re-run the sub over
---------------------
You could also assign the sub to a button drawn
from the Forms* toolbar in sheet: Daily report
(*Activate toolbar via View > Toolbars > Forms)
Or, assign to an autoshape drawn in the sheet
(via right-click on autoshape > Assign Macro)
The above would make it easier to run / re-run the sub
--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <at>yahoo<dot>com for email
-----------------------------------------
which enables one to toggle the case of selected cells
*sub posted by Frank Isaacs '97
Steps
--------
1. Press Alt + F11 to go to VBE
2. Click Insert > Module
3. Copy > Paste the sub below
(everything between the dotted lines)
into the white empty space in the right-side window
-------begin vba------
Sub SwitchCase()
'Frank Isaacs May '97
'Select the cells and run
'Cells' case toggle order:
'if Lower > Upper
'if Upper > Proper
'if Proper** > Lower
'**or neither of the 3 case types
Dim Cell As Range
For Each Cell In Selection
Select Case True
Case Cell = LCase(Cell) 'It's lowercase
Cell = UCase(Cell)
Case Cell = UCase(Cell) 'It's uppercase
Cell = Application.Proper(Cell)
Case Else 'It's neither upper nor lower
Cell = LCase(Cell)
End Select
Next
End Sub
-------end vba------
4. Press Alt + Q to return to Excel
Running the macro
----------------------
5. Select the range of cells, e.g.: select A1
200(or to select entire sheet, press Ctrl + A)
6. Press Alt + F8 (or click Tools > Macro > Macros)
In the dialog box:
Click on "SwitchCase" > Run
(or just double-click on "SwitchCase")
7. When complete, the text-case of the
selected cells will be converted
depending on their existing case, viz.:
Cells' case toggle order:
----------------------------------
if Lower > Upper
if Upper > Proper
if Proper* > Lower
*or neither of the 3 case types
From your post, as the text are all in lower case
you will get all converted to upper case
To further toggle the case, just run / re-run the sub over
---------------------
You could also assign the sub to a button drawn
from the Forms* toolbar in sheet: Daily report
(*Activate toolbar via View > Toolbars > Forms)
Or, assign to an autoshape drawn in the sheet
(via right-click on autoshape > Assign Macro)
The above would make it easier to run / re-run the sub
--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <at>yahoo<dot>com for email
-----------------------------------------
respond. Thanks! in advance!Ramon said: