Excelmacros编程search

你能帮我编辑macros吗？ 我想在另一张表上search，但我不知道我做错了什么。 我想search的表格是“Díly”。

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