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

最新推荐文章于 2024-08-06 21:24:54 发布

沐NeMo

最新推荐文章于 2024-08-06 21:24:54 发布

阅读量3.1k

点赞数

分类专栏： 5.MS VBA

本文链接：https://blog.csdn.net/linjimu/article/details/8705175

版权

5.MS VBA 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

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）