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 IfEnd Sub

 

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

调用方法：

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

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

扩展：

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