การ LOOKUP ข้อมูล

[p_d]

สวัสดีค่ะ
ดิฉันรบกวนสอบถามเกี่ยวกับการ Lookup ข้อมูลตาราง 2 ตาราง ซึ่งตามไฟล์แนบขออธิบายดังนี้
1.ตาราง 1 (บน) เป็นผลที่ได้จากการรัน macro ซึ่งจำนวนเดือนจะไม่ครบ 24 เดือน
2.ตาราง 2 (ล่าง) เป็นรายงานที่มีเดือนครบ 24 เดือน ตามต้องการซึ่งเราสามารถเปลี่ยนหัวตารางตามต้องการโดยใส่เดือนเริ่มต้นในเซลล์ H27

สิ่งที่ต้องทำคืออัพเดทข้อมูลตัวเลขสีแดงที่ได้จากตาราง 1 มาใส่ตาราง 2 ให้ตรงตามเดือนที่จัดเรียงถูกต้อง ไม่ทราบต้องใช้สูตรไหนคะ รบกวนแนะนำด้วยค่ะ

ขอบคุณค่ะ
p_d

[snasui]

ตัวอย่างสูตรที่ H28 ตามด้านล่างครับ

=IFERROR(INDEX($H$3:$AE$19,MATCH($A28,$A$3:$A$19,0),MATCH(H$27&"",$H$2:$AE$2,0)),0)

Enter > Copy ไปด้านขวาและลงด้านล่าง

[p_d]

เรียนอาจารย์
ลอง copy ไปวางแล้วพบว่าข้อมูลในเดือน 1704 ตารางด้านบนหายไปค่ะ ไม่ได้นำลงมาด้วย
และรบกวนอาจารย์อธิบายสูตรนี้ให้ด้วยได้ไหมคะ

ขอบคุณค่ะ
p_d

[snasui]

แนบไฟล์ที่เป็นปัญหานั้นมาด้วยจะได้ช่วยตรวจสอบให้ได้ครับ

สูตรที่ให้ไปนั้นหมายถึง จากช่วงข้อมูลใน $H$3:$AE$19 ให้หาว่า ค่า $A28 อยู่ในตำแหน่งใดในช่วง $A$3:$A$19 และ หาว่า H$27&"" อยู่ในตำแหน่งในในช่วง $H$2:$AE$2

สมมุตได้เป็น =INDEX($H$3:$AE$19,2,3) หมายถึงจากช่วง $H$3:$AE$19 ให้นำค่าที่อยู่ในบรรทัดที่ 2 คอลัมน์ที่ 3 มาแสดง

[p_d]

ขอบคุณมากค่ะ เข้าใจแล้วเดี่๋ยวจะลองแก้ก่อนนะคะ

ขอบคุณค่ะ
p_d

[p_d]

สอบถามข้อมูลเพิ่มเติมนะคะ มีเซลล์ที่ต้องแปลงวันที่เป็นตัวเลขแต่พอใช้มาโครแล้วมันไม่ถูกต้อง แปลงไม่ครบค่ะ รบกวนดูไฟล์แนบค่ะ
แต่เวลาทำ manual ปกติก็แปลงได้ถูกต้องนะคะเลยไม่เข้าใจว่าผิดตรงไหน

Code: Select all

Sub Macro1()

    Range("A1:B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select
End Sub

ขอบคุณค่ะ
p_d

[snasui]

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

[p_d]

เรียนอาจารย์
จากไฟล์แนบเมื่อรันมาโครจบ เซลล์ที่ไม่เปลี่ยนคือ A65:A66 และ และคอลัมภ์ B ทั้งหมด แต่เมื่อดับเบิ้ลคลิกที่เซลล์เหล่านั้น ก็จะเปลี่ยนเป็นจำนวนให้
โดยเมื่อดูที่ format ก่อนดับเบิ้ลคลิกจะเป็น General แต่คลิกแล้วเป็น Date ซึ่งมีค่า ISNUMBER = TRUE
จึงไม่เข้าใจว่าเป็นเพราะเหตุใด

ขอบคุณค่ะ
p_d

[snasui]

ลองใช้ Text to columns แทนตามตัวอย่าง Code ด้านล่างครับ

Code: Select all

Sub Test0()
    Range("a2", Range("b2").End(xlDown)).Select
    For i = 1 To Selection.Columns.Count
        With Selection.Columns(i).Cells
            .TextToColumns Destination:=.Cells(1), _
                DataType:=xlDelimited, _
                FieldInfo:=Array(1, 4)
        End With
    Next i
End Sub

[p_d]

แบบนี้ถูกต้องเลยค่ะอาจารย์ ขอบคุณมากนะคะ ^ ^