คีย์รหัสแล้วออกชื่อของโรงเรียน

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ ช่วยดูด้วยครับ บันหาคืว่า ผมต้องกานคีย์ รหัดแล้วออกชืโรงเรียนของรหัดนั้นๆ ใน Excel ทำได้ไม่ครับ? มีตัวย่างมาให้ดูด้วยครับ

ใน E1 เมื่อคีย์รหัดใน A1 ใส่ไม้ให้ออก 10806001 แต่ต้องกานให้ออก »». ¯½«ö´Â²­Ä§ (คืข้อมูนใน B1)

[snasui]

สามารถใช้ Vlookup มาช่วยได้ครับ

ลองตามนี้ครับ

1. ที่ D1 คีย์ตัวเลข 10806001
2. ที่ E1 คีย์สูตรเพื่อดึงชื่อที่ตรงกันมาแสดง
   =VLOOKUP(D1,name,2,0)
   Enter

อ่านเพิ่มเติมเกี่ยวกับ Vlookup ได้ที่นี่ครับ http://snasui.blogspot.com/2009/12/vlookup.html

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ

บันหาในหัวข้อนี้คืว่า อยากให้ท่าน อาจารย์ ช่วยดัดปับโคดที่ส้างในไฟลล์ที่แนบมา ชึ่งสามาดทำงานได้แค่ใน Sheet List เท่านั้นครับ แต่ผมต้องกานคีร์ใน Sheet Name แล้วทำงานได้ครับ จำต้องดัดปับตงไหนครับ

ขอบพระคุณล่วงหน้าครับ

[snasui]

ศึกษาจาก Link ที่ผมให้ไป ลองทำดูก่อน ติดตรงไหนสามารถถามได้เรื่อย แนบสูตรที่ลองทำเองมาด้วยทุกครั้งครับ

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ ผมได้ใช้ VBA เข้าช่วยครับแต่ทำงานได้แค่ใน Sheet List เท่านั้นครับ ผมต้องกานให้ทำงานไปที่ Sheet Name เมื่อคีย์รหัดใน Sheet Name ด้วยครับ

ขอบคุณล่วงหน้าครับ

[snasui]

ไม่เข้าใจครับ ช่วยยกตัวอย่างมาสัก 2-3 ตัวอย่างว่าคีย์ค่าในเซลล์ใดและต้องการคำตอบในเซลล์ใดเป็นค่าใดบ้าง

[วังวู ช่ง]

เรียน ท่านอาจารย์ ที่เคาลบครับ ไม่รู้จะอะทิบายอย่างไลดีครับ แต่ขอเรียนท่าน อาจารย์ ตามนี้ครับ
๑. เรียนท่าน อาจารย์ ดูไปเสียๆใน Sheet List และ name ครับ
๒. ขอเรียน ท่าน อาจารย์ Run Macro ครับ

ความต้องกานคืว่า เมื่อ Run Macro แล้ว D1 ใน Sheet "List" และ A1 ใน Sheet "name" ต้องออกมาเหมือนกันครับ ขอโทดที่ลบกวนท่าน อาจารย์ ครับ

ขอบคุณล่วงหน้าครับ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Sub Test()
    Dim rAll As Range, l As Long
    Dim rTarget As Range, rt As Range
    l = Rows.Count
    With Sheets("List")
        Set rAll = .Range("A1", .Range("A" & l).End(xlUp))
    End With
    With Sheets("Name")
        Set rTarget = .Range("A1", .Range("A" & l).End(xlUp))
    End With
    For Each rt In rTarget
        If Application.CountIf(rAll, rt) > 0 Then
            rt = rAll(Application.Match(rt, rAll, 0)).Offset(0, 1)
        End If
    Next rt
End Sub