VBA三列输入时为大写英文

大灰狼1976

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Not Application.Intersect(Target, Union([b3:b100], [d3:d100], [f3:f100])) Is Nothing Then
   
4.         With Target.Validation
   
5.             .Delete
   
6.             .Add Type:=xlValidateInputOnly
   
7.             .IMEMode = xlIMEModeOff
   
8.             SetKeyState (True)
   
9.         End With
   
10.     Else
    
11.         With Target.Validation
    
12.             .Delete
    
13.             .Add Type:=xlValidateInputOnly
    
14.             .IMEMode = xlIMEModeOn
    
15.             SetKeyState (False)
    
16.         End With
    
17.     End If
    
18. End Sub

复制代码

大灰狼1976

柳学松 发表于 2024-2-22 21:48
谢谢 大灰狼1976  老师！
那如果要改为列的某区域呢？比如说这三列的第三行到第100行需要输入大写英文呢 ...

审核中，等几个小时你就能看到了

柳学松

大灰狼1976 发表于 2024-2-23 12:10
审核中，等几个小时你就能看到了

刚发现，用了这段语句后，点击规定的这三列任意一个单元格后，这些列的数据有效性的下拉列表会自动消失，不知为什么？  

大灰狼1976

因为你代码中设定的数据有效性Type:=xlValidateInputOnly，下拉列表的话是Type:=xlValidateList，当然如何设定要根据你的实际情况调整设置。

柳学松

大灰狼1976 发表于 2024-2-26 10:42
因为你代码中设定的数据有效性Type:=xlValidateInputOnly，下拉列表的话是Type:=xlValidateList，当然如何 ...

    要在sheet2工作表B列的B2至B22各个单元格设置数据有效性的下拉列表，列表内容是下拉列表数据工作表的A列（A1至A5）内容。
    但是，用了这段语句，再点B列击单元格后，下拉列表怎么就消失了呢？

大灰狼1976

1.             .Delete   '删除原来的数据有效性设置
   
2.             .Add Type:=xlValidateInputOnly    '增加新的数据有效性，并设置类型

复制代码

你代码中如上两句，已经把你原来的数据列表删掉并重新设置了。

大灰狼1976

回复审核中，等几个小时你就能看到了

柳学松

大灰狼1976 发表于 2024-3-1 09:11
回复审核中，等几个小时你就能看到了

还有一个问题：https://club.excelhome.net/thread-1687283-1-1.html  能帮忙解决吗？