有什么办法设置单元格只能输入英文大写字母

青见 · 发表于 2007-9-6 07:00

我有一张平时用得最多的工作表,只能输入英文大写字母,经常因输入法和大小写转换降低了输入速度,所以想用一种方法将单元格设置成自动为英文大写,请高手帮忙指教,谢谢!

ntadmin · 发表于 2007-9-6 08:18

=upper（A1）

试一下

maillgh · 发表于 2007-9-6 08:32

数据有效性是否可以？？

liujy · 发表于 2007-9-6 10:25

QUOTE:

以下是引用maillgh在2007-9-6 8:32:13的发言：

数据有效性是否可以？？

可以做到只能输入大写字母，自定义中设置的公式为：

=LEN(B1)=SUMPRODUCT((CODE(MID(B1,ROW(INDIRECT("1:"&LEN(B1))),1))>=65)*(CODE(MID(B1,ROW(INDIRECT("1:"&LEN(B1))),1))<=90))

但我也无法做到输入法自动切换到大写出字母状态，估计应该用VBA。

[此贴子已经被作者于2007-9-6 10:29:14编辑过]

lfspecter · 发表于 2007-9-6 10:42

可以做到只能输入大写字母，自定义中设置的公式为：

=AND(CODE(A1)>64,CODE(A1)<91)

自动切换到大写字母，用VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target = UCase(Target)
End If
End Sub

liujy · 发表于 2007-9-6 13:15

QUOTE:

以下是引用lfspecter在2007-9-6 10:42:27的发言：

可以做到只能输入大写字母，自定义中设置的公式为：

=AND(CODE(A1)>64,CODE(A1)<91)

这个公式中人保证首字母为大写字母，第二个字符开始就没有办法了。

青见 · 发表于 2007-9-6 13:43

谢谢各位指点

lfspecter · 发表于 2007-9-6 15:29

QUOTE:

以下是引用liujy在2007-9-6 13:15:58的发言：

这个公式中人保证首字母为大写字母，第二个字符开始就没有办法了。

=NOT(ISERROR(SUM(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ"))<LEN(A1)))

lfspecter · 发表于 2007-9-6 15:30

其实，还是用VBA能更好的满足楼主的需要

lxaixxf · 发表于 2020-8-4 01:33

确实很棒

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

[已解决] 有什么办法设置单元格只能输入英文大写字母