ขอสอบถามหน่อยครับ [VBA] แสดงค่าโดยไม่ใช่การ Copy

[Arm_anucha]

ขอสอบถามหน่อยครับพอดีติดปัญหาครับ อยากจะให้ Sheet2 ดึงค่าของ sheet อื่นๆมาแสดง
โดยวิธีการเลือกที่ Cell ของ Sheet นั้นๆ โดยที่ไม่ใช่วิธีการ Copy ครับ
ตัวอย่างคำตอบ Sheet2 ที่ Cell B2 =ร้านข้าวแกง!D11

Code: Select all

Sub CollectData()
    Dim ws As Worksheet
    Dim r As Range
    Dim rTarget As Range
    Dim DataAll As String
    DataAll = "Sheet2"
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name <> DataAll Then
              With Sheets(DataAll)
                 Set rTarget = .Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
            End With
            Set r = ws.Range("D11")
                r.Copy
                rTarget.PasteSpecial xlPasteValues
        End If
    Next ws
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

[snasui]

งานลักษณะนี้สามารถใช้สูตรได้ครับ

เซลล์ B2 คีย์สูตรตามด้านล่างครับ

=INDIRECT("'"&A2&"'!D11")

Enter > Copy ลงด้านล่าง

[Arm_anucha]

ขอบคุณครับ