[已解决]关于VBA判断的问题

mick456 · 发表于 2014-10-24 21:10

为什么点击“添加信息”按钮后，总是提示“身份号码”重复呢，我在“房屋基础信息统计表”并没有输入信息呀，请大家帮我看看这个代码是不是什么问题呢？还有我的“添加信息”代码可以优化吗？

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-24 21:40

本帖最后由 qh8600 于 2014-10-24 23:26 编辑

Sub 添加_Click() '输入房屋信息表
If Sheets("录入房屋信息").Range("C8") = "" Or Sheets("录入房屋信息").Range("C9") = "" Then
MsgBox "请输入户主姓名和身份证号后再添加", vbOKOnly, "提示信息"
Exit Sub
End If
'*********************************************************************
Dim A As Range
Set A = Sheets("房屋基础信息统计表").Range("F7:F65536").Find(Sheets("录入房屋信息").Range("c8"))
If Not A Is Nothing Then
MsgBox " 户主的姓名重复 ", vbOKOnly, "提示信息"
End If
Dim B As Range
Set A = Sheets("房屋基础信息统计表").Range("G7:G65536").Find(Sheets("录入房屋信息").Range("c9"))
If Not A Is Nothing Then
MsgBox "户主身份证号码重复", vbOKOnly, "提示信息"
End If
'*********************************************************************
If MsgBox("你确定输入吗？", 292, "输入") = vbNo Then
Exit Sub '退出程序
Else
'*********************************************************************
Dim r As Long
With Sheets("房屋基础信息统计表")
r = Sheets("房屋基础信息统计表").[a65536].End(3).Row + 1
.Cells(r, 1).Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([c3:c26])
.Cells(r, "Y").Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([f3:f26])
.Cells(r, "aw").Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([h3:h26])
.Cells(r, "BU").Resize(1, 23) = Sheets("录入房屋信息").Application.Transpose([j3:j25])
.Cells(r, "G") = "'" & Sheets("录入房屋信息").[c9]
MsgBox "新增用户房屋信息成功", vbOKOnly, "提示信息"
End With
End If
End Sub

复制代码

跳转到最佳答案楼层

qh8600 · 发表于 2014-10-24 21:40

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

本帖最后由 qh8600 于 2014-10-24 23:26 编辑

Sub 添加_Click() '输入房屋信息表
If Sheets("录入房屋信息").Range("C8") = "" Or Sheets("录入房屋信息").Range("C9") = "" Then
MsgBox "请输入户主姓名和身份证号后再添加", vbOKOnly, "提示信息"
Exit Sub
End If
'*********************************************************************
Dim A As Range
Set A = Sheets("房屋基础信息统计表").Range("F7:F65536").Find(Sheets("录入房屋信息").Range("c8"))
If Not A Is Nothing Then
MsgBox " 户主的姓名重复 ", vbOKOnly, "提示信息"
End If
Dim B As Range
Set A = Sheets("房屋基础信息统计表").Range("G7:G65536").Find(Sheets("录入房屋信息").Range("c9"))
If Not A Is Nothing Then
MsgBox "户主身份证号码重复", vbOKOnly, "提示信息"
End If
'*********************************************************************
If MsgBox("你确定输入吗？", 292, "输入") = vbNo Then
Exit Sub '退出程序
Else
'*********************************************************************
Dim r As Long
With Sheets("房屋基础信息统计表")
r = Sheets("房屋基础信息统计表").[a65536].End(3).Row + 1
.Cells(r, 1).Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([c3:c26])
.Cells(r, "Y").Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([f3:f26])
.Cells(r, "aw").Resize(1, 24) = Sheets("录入房屋信息").Application.Transpose([h3:h26])
.Cells(r, "BU").Resize(1, 23) = Sheets("录入房屋信息").Application.Transpose([j3:j25])
.Cells(r, "G") = "'" & Sheets("录入房屋信息").[c9]
MsgBox "新增用户房屋信息成功", vbOKOnly, "提示信息"
End With
End If
End Sub

复制代码

qh8600 · 发表于 2014-10-24 21:50

本帖最后由 qh8600 于 2014-10-24 23:24 编辑

管理表.rar (99.36 KB, 下载次数: 4)

zhanmude · 发表于 2014-10-24 21:51

是因为你身份证那一项不能为空，为空就会提示！

su45 · 发表于 2014-10-24 22:07

没有什么好优化的

mick456 · 发表于 2014-10-24 23:32

qh8600 发表于 2014-10-24 21:50
有两个问题，一是身份证没有输入，会报错，所以修改为和没有输入姓名合在一起了，只要有一个没有输 ...

mick456 · 发表于 2014-10-24 23:33

qh8600 发表于 2014-10-24 21:40

非常感谢

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