D1单元格内不管输入大写还是小写字母都自动转换成大写子字母

恋天一

在wps表格中怎么实现在D1单元格内不管输入大写还是小写字母都自动转换成大写子字母

hhjjpp

excel：upper函数

chenbiao2012

sub test()
[d1]=ucase([d1])
end sub

chenbiao2012

不对，得用事件
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$1" Then End
    Target = UCase(Target.Value)
End Sub

bajifeng

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.count>1 then exit sub
    If Target.Address <> "$D$1" Then exit sub
    Target = UCase(Target.Value)
End Sub

恋天一

chenbiao2012 发表于 2016-1-9 14:04
不对，得用事件
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address  "$D$1" T ...

谢谢你，这个问题用你这个能解决，但是我的一个电脑能用，一个电脑不能用，一输入东西就闪退

chenbiao2012

那是你的电脑有问题了

恋天一

chenbiao2012 发表于 2016-1-9 21:14
那是你的电脑有问题了

恩，就是电脑的问题，我正在想办法解决

wangg913

首先关闭事件。改回大写后再次开启。

1. Application.EnableEvents = False

复制代码

恋天一

wangg913 发表于 2016-1-10 00:16
首先关闭事件。改回大写后再次开启。

能写一个完整的代码吗