审核按钮里写如下代码
dim s$
if trim(cells(1,2).value)="" then s="住户成员不能空!"
if trim(cells(4,2).value)="" then
if s<>"" then s=s & ", "
s=s & "1不能为空!"
end if
if trim(cells(4,3).value)="" then
if s<>"" then s=s & ", "
s=s & "2不能为空!"
end if
if trim(cells(4,4).value)="" then
if s<>"" then s=s & ", "
s=s & "3不能为空!"
end if
if s<>"" then
cells(4,7).value=s
else
cells(4,7).value="检测无误!"
endif