Excelマクロのプログラミング検索

Question

マクロの編集を手伝ってもらえますか？私は別のシートで検索したいのですが、私が間違っていることは分かりません。私が検索したいシートは「ディリー」です。

Sub díly() 

    Dim rngVis As Range 
    Dim VisCell As Range 
    Dim sFind As String 

    sFind = InputBox("Naskenujte zákaznické císlo.") 

    If Len(Trim(sFind)) = 0 Then Exit Sub 'Pressed cancel 

    Application.ScreenUpdating = False 
    With Intersect(Sheets("Díly").UsedRange, Sheets("Díly").Columns("A")) 
     .AutoFilter 1, sFind 
     On Error Resume Next 
     Set rngVis = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) 
     On Error GoTo 0 
     .AutoFilter 
    End With 
    Application.ScreenUpdating = True 

    If rngVis Is Nothing Then 
     MsgBox sFind & " Nenalezeno." 
    Else 
     For Each VisCell In rngVis.Cells 
      MsgBox "Naskenované císlo: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "A").Text & vbNewLine & _ 
        "Vyhledáno: " & VisCell.Sheets("Díly").Cells(VisCell.Row, "B").Text 
     Next VisCell 
    End If 

End Sub 

Answer 1

エラーは何ですか？この

Option Explicit 

Sub díly() 
    Dim rngVis As Range 
    Dim VisCell As Range 
    Dim sFind As String 

    sFind = InputBox("Naskenujte zákaznické císlo.") 

    If Len(Trim(sFind)) = 0 Then Exit Sub 'Pressed cancel 

    Application.ScreenUpdating = False 
    With Intersect(Sheets("Díly").UsedRange, Sheets("Díly").Columns("A")) 
     .AutoFilter 1, sFind 
     On Error Resume Next 
     Set rngVis = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) 
     On Error GoTo 0 
     .AutoFilter 
    End With 
    Application.ScreenUpdating = True 

    If rngVis Is Nothing Then 
     MsgBox sFind & " Nenalezeno." 
    Else 
     For Each VisCell In rngVis.Cells 
      MsgBox "Naskenované císlo: " & VisCell.Text & vbNewLine & _ 
      "Vyhledáno: " & VisCell.Offset(, 1).Text 
     Next VisCell 
    End If 
End Sub