VBA如何在打印前确定是否有“N A”的值？

子 print（）。

falsedim sht 作为工作表，a$用于工作表中的每个 shtif <>公式" then

if not isnumeric( thena = a & chr(10)

end if

end if

nextif 是“宽袜子”。"then msgbox "工作表："Pippy Potato & chr（10） & a & cell！ ":end

对于工作表中的每个 SHTIF <>公式" then copies:=2= true

end sub

给**很有趣，但丝毫不匹配。

如果您在 VBA 中，则需要使用它。

1.首先，打开需要操作的excel**，选择需要执行的单元。

2.然后，我们单击菜单栏中的公式，然后单击“插入函数”。

3. 在弹出的对话框中输入“iferr”，然后单击“查找功能”。

4.弹出“功能参数”设置对话框，在值中输入要判断的单元格。

5.单击“确定”后，我们得到A2单元格的判断结果，然后按住单元格的右下角向下拖动鼠标。

6.最后，我们得到所有的判断结果，false表示错误的值“n a”。

当我们使用 Excel 的内置函数返回一个值时，如果参数不正确，或者找不到，它通常会返回 n a 或值！和其他提示信息。

我们在模块中自己编写的 VBA** 是否也可以返回此信息？

答案是肯定的，因为模块本身的**可以在公式中调用，所以自然也可以返回这个信息。

但是，需要注意的是，此信息不是文本，而是内置的错误值！

下表给出了一些常用的错误值供参考：

constant error number cell error value

xlerrdiv0 2007 #div/0!

xlerrna 2042 #n/a

xlerrname 2029 #name?

xlerrnull 2000 #null!

xlerrnum 2036 #num!

xlerrref 2023 #ref!

xlerrvalue 2015 #value!

通过调用 cverr（error constant） 返回值，您在界面上看到的就是我们想要显示的错误值。

例如：cverr（xlerrvalue）。

cverr 函数可用于返回不正确的值。

常量错误数 单元格错误值。

xlerrdiv0 2007 #div/0!

xlerrna 2042 #n/axlerrname 2029 #name?

xlerrnull 2000 #null!

xlerrnum 2036 #num!

xlerrref 2023 #ref!

xlerrvalue 2015 #value!

例如，函数 myfun（a）。

if myfun="" then myfun=cverr(2042)end function

问题不是很清楚，既提到了公式，也提到了VBA，如果有附件就好了。

子 judgment（）。

dim i as long

dim j as long

for j = 2 to sheets("进口").cells(65536, 2).end(xlup).row

sheets("进口").cells(j, 30) = "错"

for i = 2 to sheets("总表").cells(65536, 3).end(xlup).row

if sheets("进口").cells(j, 2) = sheets("总表").cells(i, 3) then

sheets("进口").cells(j, 30) = "正确"

exit for

end if

nextnext

end sub

子 lookup（）。

for each rng in range("a1:d3")if rng = 7 then

a =b =

end if

nextmsgbox "行号是。

专业" & a & "-" & "列号。

属" & b

end sub

如果你已经可以写一个像 vlookup 这样的函数，你可以用循环来替换它，就不用担心如何解决这个问题了。 在VBA中，我通常不使用VLOOKUP，因为我不知道如何避免这个问题。 最多，我使用类似 on error resume next 的语句来防止此类错误。