Snasui Excel Forum

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

ตามช่องต่าง ๆ ที่พูดถึงคือช่องใดบ้างครับ

ช่วยอธิบายเพิ่มเติมว่าให้เซลล์ไหนไปลงเซลล์ไหน ต่อเนื่องกันไปหรือไม่อย่างไร จะได้เข้าใจตรงกันครับ

เรียนอาจารย์ครับ คืออยากให้สามารถเชฟในชีส 2 ตามช่องแบบอิสระ ไม่เรียงต่อเนื่องกันครับ เป็นแบบเชพแยกช่องกันเลยครับ จากไฟล์ที่แนบครับ ในชีส 1 จะเห็นได้ว่า ช่อง c5 จะบันทึกในชีส 2 คือช่อง c9 หรือ จะเป็น k12 หรือ ฺB5 ก็ได้ เป็นต้นครับ

คำว่า Sheet เขียนเป็นภาษาไทยว่า ชีท หรือ ชีต ครับ

จากที่อธิบายมา มีคำถามว่า มีหลักการพิจารณาอย่างไรว่านำเซลล์ไหนไปบันทึกที่เซลล์ไหนครับ

ที่เขียนมาเองแล้วนั้น ไม่ตรงตามความต้องการอย่างไรครับ

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

ตามสูตรที่กระผมเขียนเองไม่สามารถเลือกวางตามช่องที่ต้องการได้ครับอาจารย์

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

1. Copy A5:B12 จาก Sheet2 มาวางที่ I4:J11 ของ Sheet1
2. ปรับ Code เป็นตามด้านล่าง

   Code: Select all

   Sub Button1_Click()
       Dim rAll As Range
       Dim r As Range
       Dim l As Long
       l = 1
       With Sheets("Sheet1")
           Set rAll = .Range("B5", .Range("B" & Rows.Count).End(xlUp))
           For Each r In rAll
               .Range("J4") = r
               .Range("J6") = r.Offset(0, 1)
               .Range("J10") = r.Offset(0, 2)
               .Range("J11") = r.Offset(0, 3)
               .Range("I4:J11").Copy Sheets("Sheet2").Cells(5, l)
               l = l + 3
           Next r
       End With
   End Sub
   

ขอบคุณอาจารย์มากครับ ขอถามเพิ่มเติมนะครับ จากไฟล์ที่แนบ ที่ชีท1 ช่อง E4 โดยอ้งอิงจาก ช่องc4 ทำการดึงค่าล่าสุดของ ในชีท 2 ขอคำแนะนำครับ

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

=LOOKUP(2,1/(Sheet2!C5:C12=C4),Sheet2!D5:D12)

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

ถ้าคำตอบที่ได้เหมือนกับตัวอย่างที่ให้มาใน Sheet1 สูตรที่อาจารย์ให้มาก็ใช้ได้นี่ครับ
ที่ C5 คีย์ =LOOKUP(2,1/(Sheet2!C5:C14=B5),Sheet2!D5:D14)

เรียนคุณโจครับ คือตรงช่อง c5 จะให้แสดง เฉพาะค่าที่ติดลบ เท่านั้นครับ โดยช่อง b5 ให้แสดงชื่อเองอัติโนมัติ ไม่ทราบควรปรับปรุงสูตรอย่างไรดีครับ

ลองตามนี้ครับ
ที่ C5 คีย์ =IF(B5="","",INDEX(Sheet2!$D$5:$D$14,MATCH(1,IF(Sheet2!$B$5:$B$14=MAX(IF(B5=Sheet2!$C$5:$C$14,IF(Sheet2!$D$5:$D$14<0,Sheet2!$B$5:$B$14))),IF(Sheet2!$C$5:$C$14=B5,1)),0))) กด Ctrl+Shift+Enter คัดลอกลงมาครับ

ลองปรับสูตรที่ C5 เป็นตามด้านล่างครับ

=LOOKUP(2,1/((Sheet2!$C$5:$C$14=B5)*(Sheet2!$D$5:$D$14<0)),Sheet2!$D$5:$D$14)

ขอบคุณมากครับอาจารย์ เพิ่มเติมอีกนิดครับ เมื่อผมลากลงมาแล้วมีบางชื่อที่ยอดไม่ติดลบ แล้วขึ้น #n/A
สิ่งที่ต้องการในสูตรเมื่อไม่เจอค่าติดลบให้เป็น ช่องว่าง ครับ

ลองครอบด้วย Iferror เป็นด้านล่างครับ

=Iferror(OldFormula,"")

OldFormula คือสูตรเดิม

ได้แล้วครับ ขอบคุณมากครับ ไว้ติดขัดอะไรจะรบกวนอาจารย์ใหม่นะครับ

ขอคำแนะนำเพิ่มเติมครับ อาจารย์ คำอธิบายอยู่ในไฟล์ที่แนบครับ

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

1. เซลล์ E6 คีย์
   =IFERROR(INDEX(Sheet2!$D$6:$D$15,SMALL(IF(Sheet2!$D$6:$D$15<0,ROW(Sheet2!$D$6:$D$15)-ROW(Sheet2!$D$6)+1),ROWS(E$6:E6))),"")
   Ctrl+Shift+Enter > Copy ลงด้านล่าง
2. ที่ B6 คีย์
   =IF(E6="","",LOOKUP(2,1/(Sheet2!$D$6:$D$999=E6),Sheet2!$B$6:$B$999))
   Enter > Copy ลงด้านล่าง

เรียนอาจารย์ จากสูตรที่อาจารย์ให้มา ที่ช่อง e6 เมื่อเพิ่มสูตรที่อาจารย์ให้มา แสดงค่าเป็น 0 ครับ

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

1. เซลล์ E6 คีย์
   =IFERROR(INDEX(Sheet2!$D$6:$D$15,SMALL(IF(Sheet2!$D$6:$D$15<0,ROW(Sheet2!$D$6:$D$15)-ROW(Sheet2!$D$6)+1),ROWS(E$6:E6))),"")
   Ctrl+Shift+Enter > Copy ลงด้านล่าง
2. ที่ B6 คีย์
   =IF(E6="","",LOOKUP(2,1/(Sheet2!$D$6:$D$999=E6),Sheet2!$B$6:$B$999))
   Enter > Copy ลงด้านล่าง

ได้กดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter หรือไม่ครับ

วิธีการกดแป้นไม่เหมือนปกติเนื่องจากเป็นสูตร Array ซึ่งต้องกด 3 แป้นคือกดแป้น Ctrl+Shift ค้างไว้ก่อนแล้วตามด้วย Enter หากกดแป้นถูกต้องจะเห็นเครื่องหมรยปีกกาครอบสูตร หากยังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง ปีกกานี้จะคีย์เข้าไปเองไม่ได้ครับ