UPPER
将文本转换成大写形式。
语法
UPPER(text)
Text 为需要转换成大写形式的文本。Text 可以为引用或文本字符串。
如A1单元格是要转换的单元格,B1单元格输入 =UPPER(A1)
PROPER
将文本字符串的首字母及任何非字母字符之后的首字母转换成大写。将其余的字母转换成小写。
语法
PROPER(text)
Text 包括在一组双引号中的文本字符串、返回文本值的公式或是对包含文本的单元格的引用。
如A1单元格是要转换的单元格,B1单元格输入 =PROPER(A1)
LOWER
将一个文本字符串中的所有大写字母转换为小写字母。
语法
LOWER(text)
Text 是要转换为小写字母的文本。函数 LOWER 不改变文本中的非字母的字符。
如A1单元格是要转换的单元格,B1单元格输入 =LOWER(A1)
按Alt+F11,打开VBA编辑器,从左上角“工程”栏内【双击】需要设置此功能的工作表名,在右侧编辑区域内粘贴下面的代码。
'工作表激活事件
Private Sub Worksheet_Activate()
Call getRC '取得当前单元格位置,存入变量rc
End Sub
'选中单元格发生变化时
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Cells(r, c).Value = UCase(.Cells(r, c).Value) '把之前位置的单元格内容转为大写
Call getRC '把新的活动单元格位置保存下来
End With
End Sub
在左上角“工程”栏内【双击】Thisworkbook,在右侧编辑区域内粘贴下面的代码。
'工作簿打开时取得活动单元格位置
Private Sub Workbook_Open()
Call getRC
End Sub
在左上角“工程”栏内空白处点右键,【插入】-【模块】,双击新插入的【模块1】,在右侧编辑区域内粘贴下面的代码。
Public r As Long '行号
Public c As Long '列号
'将活动单元格位置存入变量的过程
Private Sub getRC()
r = ActiveCell.Row
c = ActiveCell.Column
End Sub
这时,保存并关闭工作簿,重新打开后就可以看到效果了。
你直接把大写字母键开了不就好了嘛。键盘的左边“Caps Lock”这个键。
capslock开了就全是大写