数据校验

hyb666

有一张数据表，有如下几个字段，对数据进行校验时，遇到如下情况：当需要对婚姻状态、性别、年龄三个字段同时校验时VBA代码应该怎么写
例如
if 婚姻状态为已婚 and 性别为男 and 年龄为20  则弹出消息  这种情况 怎么分别取出 每一行的对应的这三个值呢
求大神指导一下  万分感谢  万分感谢  万分感谢

我每一次要取出  婚姻状态 性别  年龄 对应的这三个值  然后写if条件判断                                               
比如 我一次取出了  已婚 男  20  这三个值
那么  我就写  
if 婚姻状态 = 已婚 and 性别 = 男  and 年龄=20  then msgBox "不满足法定婚姻年龄"  就是这种的

主要是不知道怎么样每次可以取出对应的这三个字段的值 去做判断  还有数据时已经填好的，就是想 用VBA对所有数据进行判断

liulang0808

欢迎新朋友，楼主对判断条件已经确定，就是if语句，msgbox 显示信息即可
如果还有 问题建议上传模拟附件，距离说明，便于解答

shenjianrong163

取后放哪里？最好有附件，顺便展示下效果。

hyb666

对，主要是怎么分别取出每行对应的每个字段，放在if条件里面，这样去做数据的校验，这个是我的excel模板，求大神指导一下，着急

hyb666

shenjianrong163 发表于 2020-2-24 20:52
取后放哪里？最好有附件，顺便展示下效果。

我的意思是 是对填写的数据做一个判断，如果这三个条件不满足的话  弹出一个消息框就行，说明他们填写的不规范
不是数把他们取出  放在某个地方

liulang0808

hyb666 发表于 2020-2-24 20:59
我的意思是 是对填写的数据做一个判断，如果这三个条件不满足的话  弹出一个消息框就行，说明他们填写的 ...

楼主上传一个附件说明下

shenjianrong163

hyb666 发表于 2020-2-24 20:59
我的意思是 是对填写的数据做一个判断，如果这三个条件不满足的话  弹出一个消息框就行，说明他们填写的 ...

猜一下你的意图：

1. Sub test()
   
2.     Dim i, r, m
   
3.     Sheets("Sheet1").Activate
   
4.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     For i = 3 To r
   
6.         If Cells(i, 1) = "已婚" And Cells(i, 2) = "男" And Cells(i, 3) = 20 Then
   
7.             m = m & "第" & i & "行数据输入不规范！" & vbCrLf
   
8.         End If
   
9.     Next
   
10.     MsgBox m
    
11. End Sub

复制代码

hyb666

shenjianrong163 发表于 2020-2-24 21:30
猜一下你的意图：

对  是这个意思  但是现在 就是这三个字段不是连续的 ，不知道具体在那一列上面 那怎么能分别取出呢？

shenjianrong163

hyb666 发表于 2020-2-24 21:36
对  是这个意思  但是现在 就是这三个字段不是连续的 ，不知道具体在那一列上面 那怎么能分别取出呢？

最好有附件上传才能更好明白你的意图。

hyb666

shenjianrong163 发表于 2020-2-24 21:38
最好有附件上传才能更好明白你的意图。

详细看附件，这三个字段是不连续的，附件是我自己做的