Snasui Excel Forum

[quote=snasui post_id=100531 time=1586058762 user_id=2]
:D เปลี่ยน [c]Dim ws As Worksheets[/c] เป็น [c]Dim ws As Worksheet[/c] ครับ
[/quote]
ขอบคุณครับอาจารย์

:D เปลี่ยน [c]Dim ws As Worksheets[/c] เป็น [c]Dim ws As Worksheet[/c] ครับ

[quote=pro602 post_id=100523 time=1585994547 user_id=20014]
เรียนอาจารย์และพี่ๆสมาชิกคับ
ช่วยแนะนำปัญหาที่เกิดขึ้นกับการเขียน Code VBA ให้ผมหน่อยครับ
ผมได้ศึกษาการSearch data from multiple sheets ของอาจารย์แล้วลองทำตามเจอปัญหา Error ครับ
ไม่แน่ใจว่าผมผิดพลาดตรงจุดไหนช่วยแนะนำผมหน่อยครับ
[code]
Sub SearchMultiplesSheets()
Dim arr(999, 4) As Variant, r As Range
Dim ws As Worksheets, i As Integer, s As String
With Sheets(1)
s = .Range("C1").Value
.Range("a3").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
End With
For Each ws In Worksheets
If ws.Name <> Sheets(1).Name Then
With ws
For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
If r.Value & r.Offset(0, 1).Value & r.Offset(0, 2).Value & r.Offset(0, 3).Value Like "*" & s & "*" Then
arr(i, 0) = r.Value
arr(i, 1) = r.Offset(0, 1).Value
arr(i, 2) = r.Offset(0, 2).Value
arr(i, 3) = r.Offset(0, 3).Value
arr(i, 4) = ws.Name
i = i + 1
End If
Next r
End With
End If
Next ws
With Sheets(1)
.Range("a3").Resize(i, 5).Value = arr
End With
End Sub
[/code]
[/quote]
ขอโทษทีครับผมแนบไฟล์ผิด สำหรับStep ที่ Error
ผม test run stepไปถึง For Each ws In Worksheets จะขึ้น Run time error "13" ครับ

:D ไฟล์ที่แนบมาไม่มี Code กรุณาแนบไฟล์มาใหม่พร้อมทั้งชี้ให้เห็นว่าเกิดผิดพลาดที่บรรทัดใด จะได้เข้าถึงปัญหาได้โดยไวครับ

Sub SearchMultiplesSheets()
    Dim arr(999, 4) As Variant, r As Range
    Dim ws As Worksheets, i As Integer, s As String
    With Sheets(1)
        s = .Range("C1").Value
        .Range("a3").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
      End With
      For Each ws In Worksheets
         If ws.Name <> Sheets(1).Name Then
            With ws
                For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
                If r.Value & r.Offset(0, 1).Value & r.Offset(0, 2).Value & r.Offset(0, 3).Value Like "*" & s & "*" Then
                        arr(i, 0) = r.Value
                        arr(i, 1) = r.Offset(0, 1).Value
                        arr(i, 2) = r.Offset(0, 2).Value
                        arr(i, 3) = r.Offset(0, 3).Value
                         arr(i, 4) = ws.Name
                          i = i + 1
                    End If
              Next r
          End With
      End If
    Next ws
    With Sheets(1)
        .Range("a3").Resize(i, 5).Value = arr
        End With
End Sub

เรียนอาจารย์และพี่ๆสมาชิกคับ
ช่วยแนะนำปัญหาที่เกิดขึ้นกับการเขียน Code VBA ให้ผมหน่อยครับ
ผมได้ศึกษาการSearch data from multiple sheets ของอาจารย์แล้วลองทำตามเจอปัญหา Error ครับ
ไม่แน่ใจว่าผมผิดพลาดตรงจุดไหนช่วยแนะนำผมหน่อยครับ
[code]
Sub SearchMultiplesSheets()
Dim arr(999, 4) As Variant, r As Range
Dim ws As Worksheets, i As Integer, s As String
With Sheets(1)
s = .Range("C1").Value
.Range("a3").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
End With
For Each ws In Worksheets
If ws.Name <> Sheets(1).Name Then
With ws
For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
If r.Value & r.Offset(0, 1).Value & r.Offset(0, 2).Value & r.Offset(0, 3).Value Like "*" & s & "*" Then
arr(i, 0) = r.Value
arr(i, 1) = r.Offset(0, 1).Value
arr(i, 2) = r.Offset(0, 2).Value
arr(i, 3) = r.Offset(0, 3).Value
arr(i, 4) = ws.Name
i = i + 1
End If
Next r
End With
End If
Next ws
With Sheets(1)
.Range("a3").Resize(i, 5).Value = arr
End With
End Sub
[/code]