[已解决]A列只能输入大写

huweifvba

A列有数据有效性的
定义名称    数据=offset(sheet2!$A$1,,,counta(sheet2!$A:$A))

我的目的是,在A列不能输入小写,如;A2输入bf1a030000a   最好是自动变成BF1A030000A  有个不能输入小写的提示也行

最佳答案

月排行榜 / 总排行榜

adders

2011-9-4 00:38

回复 huweifvba 的帖子

不好意思,确实如你所说,Sheet1中A列仍然可以手输入小写.

解决办法是在Sheet1中加入事件触发程序,步骤如下:

按Alt + F11进入VBE界面,双击Sheet1,把以下代码复制进代码框

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Alr As Long
Dim myrng As Range
Alr = Cells(Rows.Count, 1).End(xlUp).Row
Set myrng = Range(Cells(1, 1), Cells(Alr, 1))

For Each cel In myrng
cel.Value = UCase(cel.Value)
Next

Set myrng = Nothing
End Sub

保存工作簿退出.再打开工作簿后,应该就可以自动更改Sheet1中的A列所有单元格内容到大写字母

跳转到最佳答案楼层

adders

回复 huweifvba 的帖子
如果A列已经有了有效性设定,那么你的要求只能对数据源(你的例子中,是Sheet2的A列)再设定只能输入大写字母

选中Sheet2的A1单元格,然后在菜单栏选择: (因我用英文版Excel,希望以下不影响你对操作的理解)

Data --> Validation
在Allow下的下拉框内选择Custom
然后在Formula框内输入: =EXACT(A1,UPPER(A1))
点OK

复制Sheet2的A1,选择性粘贴到Sheet2的A2:A65536
paste special --> Validation --> OK

zjdh

zjdh

再将A1复制到A列

fjmxwrs

楼主你发错版块了

huweifvba

回复 adders 的帖子

这么做也只能控制在sheet2不能输入小写吧,要Sheet1还是可以输入小写的

adders

回复 huweifvba 的帖子

不好意思,确实如你所说,Sheet1中A列仍然可以手输入小写.

解决办法是在Sheet1中加入事件触发程序,步骤如下:

按Alt + F11进入VBE界面,双击Sheet1,把以下代码复制进代码框

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Alr As Long
Dim myrng As Range
Alr = Cells(Rows.Count, 1).End(xlUp).Row
Set myrng = Range(Cells(1, 1), Cells(Alr, 1))

For Each cel In myrng
cel.Value = UCase(cel.Value)
Next

Set myrng = Nothing
End Sub

保存工作簿退出.再打开工作簿后,应该就可以自动更改Sheet1中的A列所有单元格内容到大写字母

huweifvba

回复 adders 的帖子

adders   如果我要控制J2到J6应该怎么改？  再帮我改下，谢谢了！

adders

回复 huweifvba 的帖子

如果同样是Sheet1的J2:J6,那么可以把这个范围加入myrng这个变量里.

效果就是A列所有单元格,以及J2:J6单元格自动变大写

如果你还需要让其他单元格自动调整到大写的话,只要把你想要的单元格范围加入到myrng这个变量里即可.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Alr As Long
Dim myrng As Range
Alr = Cells(Rows.Count, 1).End(xlUp).Row
Set myrng = Union(Range("A1:A" & Alr), Range("J2:J6"))

For Each cel In myrng
cel.Value = UCase(cel.Value)
Next

Set myrng = Nothing
End Sub

wdkjs

好好学习天天向上，时时进步刻刻成长！