ランタイムエラー13 - 不一致

Question

私はVBAコーディングとマッチコードの作業に新しいです。コードは "データシート"（すべてのデータがあり、一致が見つかっていなければならない）のコードを実行するとうまく動作しますが、フロントページ（シート1のuserforms ）コードはdebuggenであり、 "ランタイムエラー13"と表示されます。誰が問題が何であるか教えていただけますか？

誰かが私の「If isError」が機能しない理由を教えていただけますか？

ありがとうございます！

Brで

'Find SKU and Test number 
Dim icol As Integer 


Sheet13.Range("XFD2") = UserForm2.ComboBox1.Value 'Sættes = ComboBox1.value 
Sheet13.Range("XFD3") = UserForm2.ComboBox2.Value 'Sættes = ComboBox2.value 



icol = [Sheet13.MATCH(XFD2&XFD3,A:A&Q:Q,0)] 'Match af værdien for vores SKU og test nr 


With ThisWorkbook.Worksheets("Data sheet") 



'If SKU or Test number not found, then messagebox 
If IsError("A:A") Then MsgBox "SKU not found": Exit Sub 
If IsError("Q:Q") Then MsgBox "Test number not found": Exit Sub 


    'Add test result/next step and comment 
    .Cells(icol, 30).Value = Me.ComboBox3.Value 
    .Cells(icol, 30 + 1).Value = Me.Comments_To_Result.Value 



End With 


End If 

Set objFSO = Nothing 
Set openDialog = Nothing 

Range("XFD2").Clear 
Range("XFD3").Clear 

Answer 1

icolは次のようにする必要があります：

icol = Application.match(arg1, arg2, arg3)

はMSDNでサンプルを参照してください：

var = Application.Match(Cells(iRow, 1).Value, Worksheets(iSheet).Columns(1), 0) 

---

If IsError("A:A") Then MsgBox "SKU not found": Exit Subについては間違っています。私は、あなたが最初の列のすべてのセルをループし、それらのうちの1つがエラーかどうかを知りたいと思います。これにはループが必要です。これは本当にシンプルなものですが、コードに何らかの形で実装する必要があります。

Option Explicit 

Public Sub TestMe() 

    Dim rng As Range 

    For Each rng In Range("A:A") 
     If IsError(rng) Then Debug.Print rng.Address 
    Next rng 

End Sub