VBA 当c输入的时候，自动切换到英文，当s列输入的时候，自动切换到中文，是不是不....

mkm-_7605 · 发表于 2024-5-21 10:44

本帖最后由 mkm-_7605 于 2024-5-22 14:41 编辑

VBA 当c输入的时候，自动切换到英文，当s列输入的时候，自动切换到中文，是不是不不好弄啊，请大佬们光临
  ' 遍历每个单元格，如果是C列则切换到英文大写输入法，如果是S列则切换到中文输入法
Dim cell As Range
For Each cell In ws.Range("c,S")
      If cell.Column = 3 Then ' C列
      Text.MEMODE = 2
      ElseIf cell.Column = 19 Then ' S列
               Text.MEMODE = 1
      End If
Next cell
End Sub

hlxue · 发表于 2024-5-21 12:37

range("c，S")改为Range("C:S")

mkm-_7605 · 发表于 2024-5-21 14:37

hlxue 发表于 2024-5-21 12:37
range("c，S")改为Range("C:S")

改了，还是这样

hlxue · 发表于 2024-5-21 15:41

本帖最后由 hlxue 于 2024-5-21 15:49 编辑

你的WS没有set ？

加一句（红色部分）：

Dim cell As Range
Set ws = ActiveSheet
For Each cell In ws.Range("C:S")

mkm-_7605 · 发表于 2024-5-21 15:49

hlxue 发表于 2024-5-21 15:41
你的WS没有set ？

咋设置，我不会

hlxue · 发表于 2024-5-21 15:51

mkm-_7605 发表于 2024-5-21 15:49
咋设置，我不会

删掉“ WS. ”也可以

mkm-_7605 · 发表于 2024-5-21 16:14

hlxue 发表于 2024-5-21 15:51
删掉“ WS. ”也可以

删掉试过，不行的

mkm-_7605 · 发表于 2024-5-21 17:32

hlxue 发表于 2024-5-21 12:37
range("c，S")改为Range("C:S")

还是不行

		自动登录	找回密码
密码			免费注册