|
下のWorksheet 関数Deliv33をworksheet上で 「=Deliv33(A1)」と記入しEnterすると#value!となります。
ところが、黄色のSQST.Cells(JJ,K).Value = ARG1をコメントアウトすると呼び出しもとのworksheetで、「=Deliv33(A1)」と記入しEnterを押すと正しく動作します。
IFの一行下をSET SQST.Cells(JJ,K).Value = ARG1はダメでした。一行目のARG1はDATE形式を指しているのでAS RANGEをAS DATEにしてみましたがダメでした。
どうしたらこの不具合を訂正できますでしょうか?ご教示いただければありがたいのですが、よろしくお願いいたします。
Public Function DELIV33(ByVal ARG1 As Range) As Date
FNAME = Workbooks(1).Name
Set CST = Workbooks(FNAME).Sheets(3)
Set SQST = Workbooks(FNAME).Sheets(13)
If Not IsEmpty(ARG1) Then
SQST.Cells(JJ,K).Value = ARG1
DELIV33 = SQST.Cells(65, 11).Value
Exit Function
End If
End Function
|
|