Excel 教學 - 如何將所有儲存格內的小楷英文轉成大楷

Excel 教學 - 如何將所有儲存格內的小楷英文轉成大楷

http://hk.knowledge.yahoo.com/question/question?qid=7009052701983

Code used in the video:

Sub up_all()
' Avoid error when no cells selected
On Error Resume Next ' Turn off screen update to avoid flickering
Application.ScreenUpdating = False ' Turn off auto calculation to improve performance
Application.Calculation = xlCalculationManual Dim Cell As Range

' Select cells with text in the selection
For Each Cell In Intersect(Selection, _ Selection.SpecialCells(xlConstants, xlTextValues)) 'Cell.Formula = UCase(Cell.Formula) Cell = UCase(Cell)
Next Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Code modified from:

http://www.mvps.org/dmcritchie/excel/proper.htm#upper

Category:

Howto & Style

Tags:

• Microsoft
• Excel
• VBA
• Change
• Case
• Upper
• Lower