VBAの場合と複数の文

Question

私はすべてのフィールドが私が作成しているフォームに記入されていることを確認しようとしていますが、複数のif文に問題があります。

If Not IsEmpty(barcode) And Not IsEmpty(takenstock) And Not IsEmpty(staff) And Not IsEmpty(jobnumber) Then 

    Sheet2.Cells(emptyrow, 1).Value = staff 
    Sheet2.Cells(emptyrow, 2).Value = Product 
    Sheet2.Cells(emptyrow, 3).Value = ProductCode 
    Sheet2.Cells(emptyrow, 4).Value = takenstock 
    Sheet2.Cells(emptyrow, 5).Value = jobnumber 
    Sheet2.Cells(emptyrow, 6).Value = Mydate 
    Sheet2.Cells(emptyrow, 7).Value = Mytime 
    'removes stock from list of products 
    Sheets("List of products").Range(findproduct).Value = selectproduct - takenstock 
    'clears sheet 
    Sheet1.Range("b1").Value = "" 
    Sheet1.Range("b6").Value = "" 
    Sheet1.Range("b5").Value = "" 
    Sheet1.Range("b7").Value = "" 
Else 
    MsgBox "Please fill Barcode, stock to be taken,staff field and the job number" & vbNewLine & "Thank you", vbOKOnly, "Missing fields" 

End If 

これは動作しませんでした私の最初の試みだったので、私はまた、私はただのコードが、すべてを試みてきたように第二ではありません

が感じる削除しようとしている

If Not IsEmpty(barcode) And Not IsEmpty(takenstock) Then 
    if Not IsEmpty(staff) And Not IsEmpty(jobnumber) Then 

を試してみました興味がありません

ご協力いただきありがとうございます

Answer 1

try

If (Not IsEmpty(barcode)) And (Not IsEmpty(takenstock)) And 
    (Not IsEmpty(staff)) And (Not IsEmpty(jobnumber)) Then 

必ずまた...もっとカッコの側に

を誤る、それは、どのようなタイプbarcodeに依存takenstock、staff、およびjobnumberがあります。私はあなたの宣言を見ることができません。あなたがRangeとしてそれらを宣言し、その旨を

set barcode = Range("B7") 

ようなものか何かでそれらを設定した場合

、あなたのコードは正常に動作する必要があります。あなたがStringやIntegerタイプとして、それらを宣言し、

barcode = Range("B7").value 

でそれらを設定している場合しかし、その後、あなたの式は常にFALSEを評価します。 isEmpty()はプリミティブ型ではなくオブジェクト用です。

疑いで