求一段代码，要求同一行前面单元格有文本数据，后面单元格就必须有数值.

279821564 · 发表于 2014-9-19 22:23

各位大侠，

小弟求一段代码：要求同一行前面单元格有文本数据，后面单元格就必须有数值.
具体要求在附件内，请各位大侠帮忙啊。
感谢啊！！

279821564 · 发表于 2014-9-20 08:35

各位大侠，至少给点思路啊。

shuyee · 发表于 2014-9-20 20:22

改造H6单元格，输入公式=SUMPRODUCT((LEN(B7:B18)>0)-(LEN(F7:F18)+LEN(G7:G18)>0))
用它统计异常单元格数量，结合自定义格式 0;;"单位"；这样没有异常时，这里仍能正常显示。
接着改造代码，检验H6单元格，如果数值>0，就取消打印:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("成品入库单").Range("H6").Value >0 Then
MsgBox "单据内容异常!本次打印已经取消!", vbOKOnly + vbInformation, "凯木金科技"
Cancel = True
Else
[h3] = [h3] + 1
End If
End Sub

279821564 · 发表于 2014-9-22 00:34

shuyee 发表于 2014-9-20 20:22
改造H6单元格，输入公式=SUMPRODUCT((LEN(B7:B18)>0)-(LEN(F7:F18)+LEN(G7:G18)>0))
用它统计异常单元格数 ...

谢谢版主，受教了。

279821564 · 发表于 2014-9-22 00:49

279821564 发表于 2014-9-22 00:34
谢谢版主，受教了。

版主，我这里还有一问题，您帮看下：

重复值查找并返回.rar (19.08 KB, 下载次数: 7)

点击按钮，002表中G:G列中的文本值，一个一个的去和001表中的B7：B18单元格比较，
如果有重复，那返回那个重复单元格的值并对话框提示，并中断后面要执行的程序，如果没有重复，就执行后面的程序

279821564 · 发表于 2014-9-22 00:54

各位大侠，请看我的代码，
实现不了要求，请各位看看！
谢谢！
要求在附件内！

重复值查找并返回.rar (19.08 KB, 下载次数: 7)

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

求一段代码，要求同一行前面单元格有文本数据，后面单元格就必须有数值.

VBA代码重复值查找并返回