Excel实现数据项校验的功能---VBA的编写以及数据有效性的设置

学习VBA的网址
VBA比较运算符 - VBA教程™

VBA在Excel中的应用（一)：改变符合条件单元格的背景颜色

vba判断不是空_百度知道

测试文件
链接：http://pan.baidu.com/s/1o7QsCJo 密码：eni7

1.启用宏，编写VBA，使单元格输入的内容自动转变为大写

代码1

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

代码2

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

解决方案来自：Excel D1单元格内不管输入大写还是小写字母都自动转换成大写子字母-ExcelVBA程序开发-ExcelHome技术论坛

2.使用数据有效性检查输入的是否大写

公式：
=NOT(ISERROR(SUM(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ"))<LEN(A1)))
解决方案来自：
Excel 有什么办法设置单元格只能输入英文大写字母-Excel函数与公式-ExcelHome技术论坛

3.下拉框