VBA三列输入时为大写英文

柳学松

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'规定B3 D3 F3三个单元格输入大写英文
    Dim t$

    If Target.Count > 1 Then Exit Sub
    t = Target.Address(0, 0)
    Select Case t
    Case "B3", "D3", "F3"
        With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly
            .IMEMode = xlIMEModeOff
            SetKeyState (True)
        End With
    Case Else
        With Target.Validation
            .Delete
            .Add Type:=xlValidateInputOnly
            .IMEMode = xlIMEModeOn
            SetKeyState (False)
        End With
    End Select
End Sub

求助怎样规定这三个列输入时为大写英文啊！

柳学松

这是附件，求高手帮助！

sj15627581616

用UCase 改变单元格的值为大写

柳学松

那要敲两次回车键的

ykcbf1100

柳学松 发表于 2024-2-22 12:55
那要敲两次回车键的

3楼是正解。
t = UCase(Target.Address(0, 0))

taller

柳学松

或许各位老师没理解我的意思！
我上传的附件已经可以做到B3，D3，F3这三个单元格可直接输入大写英文字母，不用敲回车转换。
现在想把这B列，D列，F列全部变成这种效果，其它列需要直接中文输入。
上面各位老师给的都不是这种效果。
再上传一次附件，求各位老师修改！

大灰狼1976

1.     t = Target.Column
   
2.     Select Case t
   
3.     Case "2", "4", "6"

复制代码

柳学松

8楼正解！学习了，谢谢

柳学松

大灰狼1976 发表于 2024-2-22 16:44

谢谢 大灰狼1976  老师！
那如果要改为列的某区域呢？比如说这三列的第三行到第100行需要输入大写英文呢？