依据条件判断，在相应的单元格加载印章图片，出现2个致命错误，请大神帮忙

爱笑的猫

各位大神好，

这段代码要实现的是
1、判断D列的数值是不是不为空，且是不是日期（日期这个还没实现）
2、如果判断D列单元格是，那么就在C列相应单元格插入印章。（同时判断是否已经插入过印章，若插入过，就不再重复插入，此条是因为出错才加入的，试了一些方式判断，结果一直没成功，因此就不贴错误的代码了）
3、通过函数公式调用代码loadpictures(CX,DX)。（第3条不一定需要函数公式来实现，我只是为了在此表可以通用调用它而已）

错误：
1、通过公式loadpictures(C7,D7)，调用function，虽然可以成功，但问题是公式每运行一次就会叠加一次印章图片。
2、在几个sheet中删除随便某一行或某一列，也会执行插入印章的代码，不知道发生什么了？

还请大神帮忙，谢谢。

文件请看附件。
测试.zip (44.42 KB, 下载次数: 3)

2023-2-13 09:34 上传

点击文件名下载附件

-------------------------------------------------------------------------------------------------
代码如下：

Function LoadPictures(PicURL As String, dateCell As Range) As String
Dim pic As Object
Dim PicFomat As String
Dim Path As String

PicFormat = ".jpg"
Path = ActiveWorkbook.Path & "\OJT_Stamp\"
PicURL = Path & "HRTRG" & PicFormat

If dateCell <> "" Then
    Set pic = ActiveSheet.Pictures.Insert(PicURL)
    With pic
    .Left = dateCell.Offset(0, -1).Left + 0.8
    .Top = dateCell.Offset(0, -1).Top + 0.8
    End With
    LoadPictures = "OK"
Else
    LoadPictures = " No date found in" & dateCell.Address & "."
End If   
End Function


sheet中通过在单元格中输入=loadpictures(C7,D7)来调用
----------------------------------------------------------------------------------------------

蓝桥玄霜

测试的例子：

爱笑的猫

错误编辑，请忽略此回复，给大家带来麻烦，对不起了。

爱笑的猫

错误编辑，请忽略此回复，给大家带来麻烦，对不起了。

爱笑的猫

蓝桥玄霜 发表于 2023-2-13 13:47
测试的例子：

感谢老师的指点。另外，说声对不起，我自己搞错了，代码中我为了判断#N/A加了对arr(i,4)的错误判断，导致了第3列没有动作，抱歉。

请问老师，如何对第4列和第9列的#N/A进行判断