Excel VBA应用：单元格的字母自动大写转换等操作

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'所有单元格进行字母大写转换
'    Application.EnableEvents = False
'    Target = VBA.UCase(Target)
'    Application.EnableEvents = True
'B2上面一个单元格：B1进行字母大写转换
If Target.Address(0, 0) = "B2" Then
'If Target.Column = 2 And Target.Row = 1 Then
    Target.Offset(-1, 0) = VBA.UCase(Target.Offset(-1, 0))
End If
End Sub

 

将C4单元格内容设置为：“请输入数据！”，改变背景颜色。

调用方法：

Call ShowMsg("请输入数据！", 36)

Sub ShowMsg(strMsg As String, intColorIndex As Integer)
    Sheet1.Range("C4").Value = strMsg
    Sheet1.Range("C4").Interior.ColorIndex = intColorIndex
End Sub

扩展：

ShowMsg("A1",“随便的单元格”,46）