ดึงข้อมูลแบบมีเงื่อนไข

[Khamtun]

เรียน อาจารย์ทุกท่าน

รบกวนช่วยให้วิธีการดึงข้อมูลตามเงื่อนไขตามไฟล์ที่แนบมาด้วยครับ

ขอแสดงความนับือ

[bank9597]

อธิบายอีกครั้ง แบบชัดเจนได้ไหมครับ ยังไม่เคลียร์เลย เหมือนจะเป็นการดึงข้อมูลมาแสดง แต่เกี่ยวอะไรกับการกด G10 ครับ อธิบายนิดนึง

[Khamtun]

อธิบายอีกครั้ง แบบชัดเจนได้ไหมครับ ยังไม่เคลียร์เลย เหมือนจะเป็นการดึงข้อมูลมาแสดง แต่เกี่ยวอะไรกับการกด G10 ครับ อธิบายนิดนึง

เป็นการดึงข้อมูลโดยอ้างอิงที่ G10 คือ ASIA MOTOR ที่ตรงกับ B4 ที่ Sheet Supplier แล้วให้ดึงข้อมูลแถวที่ 4
มาแสดงที่ Sheet Purchase Order แถวที่ 6 ตามตารางที่สร้างไว้ครับ

ถ้าคลิกที่ G11 คือ AU-BOPONG ก็ให้นำข้อมูล AU-BOPONG จาก Sheet Supplier มาแสดงที่ Sheet purchase order

ครับ

[bank9597]

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

ผมเลยขอแก้ว่า สามารถทำได้ แต่ถ้าสูตรอย่างเดียวไม่สามารถทำได้ครับทั้งหมด ต้องใช้ VBA เข้ามาช่วยถึงจะได้ครับ โดยเฉพาะในส่วนของการคลิ๊กที่ Cell แล้วให้ส่งข้อมูลไปที่อื่น
เราต้องใช้ VBA
ผมได้ทำตัวอย่างออกมาแล้วครับ แต่ยังไม่สมบูรณ์เท่าที่ควร ต้องรออาจารย์มาแก้โค๊ดให้อีกหน่อย ก็จะสามารถใช้งานได้ครับ

การดึงข้อมูล ลองตามนี้ครับ
ที่ B6 คีย์ =IF($C$6="","",INDEX(SUPPLIER!$A$4:$A$50,MATCH($K$6,SUPPLIER!$B$4:$B$50),0))
ที่ D6 คีย์ =IF(C6="","",VLOOKUP(C6,SUPPLIER!$B$4:$E$50,2,0))
ที่ G6 คีย์ =IF(C6="","",VLOOKUP(C6,SUPPLIER!$B$4:$E$50,3,0))
ที่ H6 คีย์ =IF(C6="","",VLOOKUP(C6,SUPPLIER!$B$4:$E$50,4,0))

กด ALT+F11 เรียกหน้าต่าง VBE ขึ้นมา
ดับเบิ้ลคลิีกที่ชีท PURCHASE ORDER วางโค๊ดนี้ลงไปครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$10" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$11" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$12" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$13" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$14" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$15" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
If Target.Address = "$G$16" Then
Range("C6") = Target
Target.Select
Application.SendKeys "%{DOWN}"
End If
End Sub

อธิบายโดยย่อครับ โค๊ดดังกล่าวจะส่งค่าของตำแหน่งเซลล์ั้ที่คุณคลิ๊กไปวางที่ C6 ครับหลังจากนั้นสูตรก็จะทำงานเองตามปกติครับ
รออาจารย์มาเสริมให้น่ะครับ จะสมบูรณ์ว่านี้อีกครับ

[snasui]

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

[Khamtun]

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

ขอบคุณอาจารย์มากครับที่ชี้แนะ แต่คงเป็นเรื่องยากเพระไม่มีพื้นฐานแต่ผมจะพยายามศึกษาเกี่ยวกับ VBA ครับ
ผมเลยทำ Data Validation แทนครับ แต่ผมอยากถามอาจารย์ว่า เราสามารถทำ Data Validation ข้าม Sheet ได้ไหม
ผมต้องการทำ Data Validation ที่ Sheet Purchase Order (C6) ข้อมูลอยู่ที่ Sheet Supplier (B4:B9) ครับ

[snasui]

สามารถทำได้ครับ

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

• เข้าเมนู Insert > Name > Define เป็นการให้ชื่อกับช่วงเซลล์
• ช่อง Name in workbook: กรอกคำว่า Suplier
• ช่อง Refers to: กรอกสูตร
  =OFFSET(SUPPLIER!$B$4,0,0,COUNTA(SUPPLIER!$B:$B)-1)
  จากนั้นคลิก OK
• ที่ชีท Purchase Order คลิกเซลล์ C6
• เข้าเมนู Data > Validation > ช่อง Allow: เลือก List
• คลิกลงในช่อง Source: > กดแป้น F3 เพื่อเรียกชื่อที่ให้ไว้ แล้วเลือก Suplier > OK

[Khamtun]

ได้ตามที่ต้องการเลยครับสุดยอดจริงๆ

ขอบคุณครับ