按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
这时,保存并关闭工作簿,重新打开后就可以看到效果了。