Snasui Excel Forum

snasui wrote: ไม่เข้าใจครับ หาก AI2 เป็นค่าว่าง (ภาษาไทยไม่ใช้ค่าหว่าง) ก็ย่อมต้องออกทุกค่า เพราะรหัสเมืองเป็น 806 ทุกบรรทัด ลองยกตัวอย่างมาใหม่ว่าหากกรอกค่าตัวอย่างแบบใดแล้วไม่ได้คำตอบ และคำตอบที่ต้องการเป็นแบบใด

joo wrote: ปัญหาคืออะไรครับช่วยแจ้งมาให้ชัดเจนอีกครั้งครับ และไฟล์ที่แนบมาก็ยังไม่ได้ระบุปัญหาที่พบและคำตอบที่ต้องการเลยครับ

joo wrote: ผิดตรงนี้ครับ =IF(COUNT(Criteria)=0,COUNT($AH$11:$AH$700),IF(AI2="",COUNTIF($AH$11:$AH$700,$AH$2),IF($AH$2="",COUNTIF($AG$11:$AG$700,$AI$2),SUMPRODUCT(--(AH11:AH34=$AH$2),--(AG11:AG34=$AI$2)))))
ที่ถูกควรปรับเป็น
=IF(COUNT(Criteria)=0,COUNT($AH$11:$AH$700),IF(AI2="",COUNTIF($AH$11:$AH$700,$AH$2),IF($AH$2="",COUNTIF($AG$11:$AG$700,$AI$2),SUMPRODUCT(--(AH11:AH700=$AH$2),--(AG11:AG700=$AI$2)))))

snasui wrote: รหัสเมืองมีแค่ 1, 2 และ 3 ไม่ใช่นำรหัสหน่วยงานมาคีย์หรือคีย์สับกันไปมาครับ

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

1. ที่ AI3 ปรับสูตรเป็น
   =IF(COUNT(Criteria)=0,COUNT($AH$11:$AH$34),IF(AI2="",COUNTIF($AH$11:$AH$34,$AH$2),IF($AH$2="",COUNTIF($AG$11:$AG$34,$AI$2),SUMPRODUCT(--(AH11:AH34=AH2),--(AG11:AG34=AI2)))))
   Enter
2. ที่ AI11 ปรับสูตรเป็น
   =IF(ROWS(AI$11:AI11)>$AI$3,"",SMALL(IF(IF(COUNT(Criteria)=0,$AH$11:$AH$34<>"",IF($AH$2<>"",$AH$11:$AH$34=$AH$2,IF($AI$2<>"",$AG$11:$AG$34=$AI$2))),ROW($AH$11:$AH$34)-ROW($AH$11)+1),ROWS(AI$11:AI11)))
   Ctrl+Shift+Enter > Copy ลงด้านล่าง

1. ที่ AI3 ปรับสูตรเป็น
   =IF(COUNT(Criteria)=0,COUNT($AH$11:$AH$34),IF(AI2="",COUNTIF($AH$11:$AH$34,$AH$2),IF($AH$2="",COUNTIF($AG$11:$AG$34,$AI$2),SUMPRODUCT(--(AH11:AH34=AH2),--(AG11:AG34=AI2)))))
   Enter
2. ที่ AI11 ปรับสูตรเป็น
   =IF(ROWS(AI$11:AI11)>$AI$3,"",SMALL(IF(IF(COUNT(Criteria)=0,$AH$11:$AH$34<>"",IF($AH$2<>"",$AH$11:$AH$34=$AH$2,IF($AI$2<>"",$AG$11:$AG$34=$AI$2))),ROW($AH$11:$AH$34)-ROW($AH$11)+1),ROWS(AI$11:AI11)))
   Ctrl+Shift+Enter > Copy ลงด้านล่าง

snasui wrote: การทำเช่นนั้นสามารถใช้สูตรเข้ามาช่วยได้ครับ ผมทำตัวอย่างมาให้แล้วตามไฟล์แนบ

ให้สังเกตที่เซลล์ AI3, AI11:AI34, AJ11:AJ34, AK11:BO34 ครับ

snasui wrote: การทำเช่นนั้นสามารถใช้สูตรเข้ามาช่วยได้ครับ ผมทำตัวอย่างมาให้แล้วตามไฟล์แนบ

ให้สังเกตที่เซลล์ AI3, AI11:AI34, AJ11:AJ34, AK11:BO34 ครับ

snasui wrote: ในการเขียน Code มาสองครั้ง ตำแหน่งในการวางข้อมูลไม่เหมือนเดิม คุณควรจะเล่ามาตามที่ผมแจ้งไปเพื่อจะได้เข้าใจตรงกันครับ

snasui wrote:เป็นปัญหาเดิมหรือไม่ ช่วยอธิบายว่า Code ที่ส่งมาใหม่นี้ต้องการจะทำอะไรบ้างเป็นลำดับครับ

snasui wrote:เป็นปัญหาเดิมหรือไม่ ช่วยอธิบายว่า Code ที่ส่งมาใหม่นี้ต้องการจะทำอะไรบ้างเป็นลำดับครับ

วังวู ช่ง wrote:สวัสดี ท่าน อาจารย์ และสะมาชิกที่รู้ทุกท่านครับ ผมติดปัญหาเลื่อง Code การ Copy ข้อมูนที่กำนดครับ ช่วยดู และแนะนำให้ด้วยครับ

Code: Select all

Sub Macro1()
Application.ScreenUpdating = False
    Range("AJ11").Select
    Range("AJ11:BO800").Select
    Selection.Clear
    Range("A11:AF800").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Range("AH2:AI2"), CopyToRange:=Range("AJ11:BO11"), Unique:=False
Application.ScreenUpdating = True
Range("AJ1:BO1").Select
End Sub

ปัญหาคือต้องการกรอกข้อมูนที่กำนดใน AH2 และ AI2 คือค่าที่อยู่ใน Column AH และ Column AG ครับให้กรอกข้อมูนใน A11:AH34 ที่มีค่ากำนดใน AH2 และ AI2 ลงไปที่ AJ11:BO11 ลงไปครับ
ขอบคุณท่านล่วงหน้าครับ

วังวู ช่ง wrote:

snasui wrote: ต้องขออภัยที่บอกว่า สมาชิกทุกคนมีความเท่าเทียมกันครับ เมื่อผมมีกฎที่จะไม่เขียนให้ก่อนก็ต้องเป็นไปตามนั้นครับ

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

snasui wrote: ต้องขออภัยที่บอกว่า สมาชิกทุกคนมีความเท่าเทียมกันครับ เมื่อผมมีกฎที่จะไม่เขียนให้ก่อนก็ต้องเป็นไปตามนั้นครับ

snasui wrote:อีกทางเลือกคือ ใช้การ Loop ด้วย Code แทนการใช้ Advanced Filter จะได้ไม่ต้องแทรกต้องลบบรรทัด
ลองปรับมาก่อนตามแนวทางที่พอจะทำได้ ติดขัดตรงไหนค่อยมาถามกันต่อครับ