VBA Vlookup ข้ามworksheet

[auimsuwan]

เรียน ท่านอาจารย์ที่เคารพ

กระผมติดปัญหาในการVlook จาก WorkSheet

เนื่องจากผมต้องทํารายการสถานะข้อมูลรายวัน เพื่อคํานวน
สถานะของลูกหนี้ค้างชําระ โดยฐานข้อมูลที่ใช้ตรวจสอบ
รายวันอยู่ในSheet ที่ชื่อ "Data Check" ทั้งนี้ผมจะต้อง
Update สถานะรายวันและบันทึกค่าในSheet ที่ชื่อ"All Re 2015-17"
ผมได้เขียน Code VBA แต่ไม่มีค่าสถานะข้อมูลแสดงใน Sheet
ที่ชื่อ "All Re 2015-17" แต่อย่างใด

โดยชุดคําสั่งข้อมูลอยู่ปุ่ม Generate ครับ
ข้อมูลเพิ่มเติมดังเอกสารแนบครับ

[auimsuwan]

Code: Select all

Sub CommandButton2_Click()

   Dim rng As Range
   Dim myString As String
   Dim i As Long
   Dim N As Long
   Dim intColumn As Integer
  Application.ScreenUpdating = False
                For ListSheet = 1 To Excel.Sheets.Count
                       If Sheets(ListSheet).Range("A1").Value = "ÅíҴѺ" Then
                               N = Sheets(ListSheet).[B:B].Cells.Find("*", , , , xlByRows, xlPrevious).Row
                               Do Until IsEmpty(Cells(1, intColumn).Value) = True
                                   intColumn = intColumn + 1
                               Loop
                        End If
                      
            Next ListSheet
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       On Error Resume Next
        For i = 2 To N
                 Set rng = Sheets("All Re 2015-17").Cells(i, 2)
                 myString = WorksheetFunction.VLookup(rng, Sheets("Data Check").Range(Cells(2, 2), Cells(2 + N, 6)).Value, 5, False)
    
              If myString = "" Then
                 Sheets("All Re 2015-17").Cells(i, intColumn) = ""
                 Err.Clear
               Else
                 Sheets("All Re 2015-17").Cells(i, intColumn) = myString
              End If
       Next i
   
   Worksheets("Summary Reschedule 21-04-17").Activate
   Application.ScreenUpdating = True

End Sub

[snasui]

ตัวอย่าง Code ครับ

คำว่า "ลำดับ" ใน Code ให้คีย์ใหม่แทนค่าเดิมเนื่องจากเป็นค่าที่ไม่ตรงกับคำว่า "ลำดับ" จริง คาดว่าจะมีอักขระแปลกปลอมที่มองไม่เห็นด้วยตาประกอบอยู่ด้วย

Code: Select all

Sub CommandButton2_Click()
    
    Dim rng As Range
    Dim myString As String
    Dim i As Long
    Dim N As Long
    Dim intColumn As Integer
    Application.ScreenUpdating = False
    intColumn = 1
    For ListSheet = 1 To Excel.Sheets.Count
        If Sheets(ListSheet).Range("A1").Value = "ลำดับ" Then
            N = Sheets(ListSheet).[B:B].Cells.Find("*", , , , xlByRows, xlPrevious).Row
            Do Until IsEmpty(Sheets(ListSheet).Cells(1, intColumn).Value) = True
                intColumn = intColumn + 1
            Loop
        End If
    Next ListSheet
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    On Error Resume Next
    For i = 2 To N
        Set rng = Sheets("All Re 2015-17").Cells(i, 2)
        myString = WorksheetFunction.VLookup(rng, Sheets("Data Check") _
            .Range(Cells(2, 2).Address, Cells(2 + N, 6).Address), 5, False)
        
        If myString = "" Then
            Sheets("All Re 2015-17").Cells(i, intColumn) = ""
            Err.Clear
        Else
            Sheets("All Re 2015-17").Cells(i, intColumn) = myString
        End If
    Next i
    
    Worksheets("Summary Reschedule 21-04-17").Activate
    Application.ScreenUpdating = True
    
End Sub

[auimsuwan]

ขอบพระคุณมากๆครับอาจารย์