Private Sub Worksheet_SelectionChange(ByVal Target As Range)后，工作表无法复....

柳学松 · 发表于 2024-3-18 11:40

老师们帮助下解决在工作表内复制、粘贴问题

柳学松 · 发表于 2024-3-19 08:29

各位老师们，帮忙解决啊，在线苦等回复！

大灰狼1976 · 发表于 2024-3-19 09:05

上班不便下载附件，要下班后才能看，或者发一些问题的关键截图，可能有助于解决。

柳学松 · 发表于 2024-3-19 09:20

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'D列D3至D100自动大写
On Error Resume Next '忽略错误继续向下执行
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, [d3:d100]) Is Nothing Then
      With Target.Validation

         .IMEMode = xlIMEModeOff
         SetKeyState (True)
      End With
Else
      With Target.Validation

         .IMEMode = xlIMEModeOn
         SetKeyState (False)
      End With
End If
End Sub
可以完成D列规定区域自动大写英文，但在这个工作表内无法完成复制粘贴区域单元格

柳学松 · 发表于 2024-3-19 09:24

规定区域的自动大写可以完成，单无法在工作表内复制粘贴区域单元格

yynrzwh · 发表于 2024-3-19 09:35

VBA规定区域D列输入英文大写字母后无法复制粘贴.zip (17.08 KB, 下载次数: 3)

柳学松 · 发表于 2024-3-19 09:42

yynrzwh 发表于 2024-3-19 09:35

但是D列的D3至D100单元格自动大写的功能失效了

yynrzwh · 发表于 2024-3-19 09:46

有效啊
Target = VBA.UCase(Target.Value)
这个就是把输入字母变大写的

柳学松 · 发表于 2024-3-19 10:07

yynrzwh 发表于 2024-3-19 09:46
有效啊
Target = VBA.UCase(Target.Value)
这个就是把输入字母变大写的

也就是说还是要敲击两次回车键了，能否在我的基础上改呢？

柳学松 · 发表于 2024-3-19 10:34

柳学松发表于 2024-3-19 10:07
也就是说还是要敲击两次回车键了，能否在我的基础上改呢？

最前面加了一句：If Application.CutCopyMode = xlCopy Then Exit Sub '如果处于复制模式则退出，就行了。
不知各位大神还有什么好办法

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

[求助] Private Sub Worksheet_SelectionChange(ByVal Target As Range)后，工作表无法复....