Excel Forum

ค่า MS6-000149 และTS8-001016 มีค่าว่าง ที่หลัง ค่า ที่ชีท Comset636 ให้ลบค่าว่างออก สูตรก็จะถูกครับ

ลองดูจากไฟล์แนบครับ ว่าเข้าใจตรงกันไหมครับ

ได้ปลดล็อคการใช้ Macro หรือยังครับ

E8=AVERAGEIFS(E$5:E$15,E$5:E$15,">0",D$5:D$15,D18) Copy down

K3=SUBSTITUTE(SUBSTITUTE(A3&" "&B3&" "&C3&" "&D3&" "&E3&" "&F3&" "&G3&" "&H3&" "&I3&" "&J3," ",","),",na",&q...

ขอวิธีคิดคำตอบว่า ค่าไหนเทียบกับค่าไหนถึงได้คำตอบน้้นด้วยครับ

กรุณา Update Profile โดยระบุ Version ของ Excel ตาม Link นี้ด้วยครับ https://snasui.com/viewtopic.php?f=6&p=103177#p103177

ลองทำตัวอย่างคำตอบมาดูด้วยครับจะได้เข้าใจตรงกันครับ

ปรับตามนี้ครับ Dim St_in, St_target As Worksheet Dim r As Range Set St_in = Worksheets("Sheet1") Set St_target = Worksheets("Sheet2") Set r = St_target.Cells(Rows.Count, "a").End(xlUp).Offset(1) ' Set r = r.Offset(-1) r.Value = St_in.Range("a2").Value 'Date r....

C2=HSTACK(XLOOKUP(B2:B16,Active!$C$2:$C$29,Active!$D$2:$D$29,"",,-1),XLOOKUP(B2:B16,Active!$C$2:$C$29,Active!$B$2:$B$29,"",,-1))

I2:L23=IFERROR(UNIQUE(INDEX($A:$D,AGGREGATE(15,6,ROW($A$2:$A$23)/($B$2:$B$23=$G$2),ROW($A$1:$A$23)),MATCH(I$1,$A$1:$D$1,0))),"") copy down
M2=IF(L2="","",SUMIFS(E$2:E$23,B$2:B$23,$G$2,C$2:C$23,LOOKUP(CHAR(255),L$2:L2),D$2:D$23,LOOKUP(9^9,K$2:K2))) copy down

1.ทำข้อมูลให้เป็นตาราง Table ครับ แล้วอ้างอิงจากตาราง Table
2.ใช้ Function Offset มาช่วยครับ

B7:C12=IFERROR(COUNTIFS(INDEX(INDIRECT("'"&"ชั้น "&$A7&"'!$B$2:$AA$99"),MATCH(LOOKUP(9^9,INDIRECT("'"&"ชั้น "&$A7&"'!$A$2:$A$99")),INDIRECT("'"&"ชั้น "&$A7&"'!$A$2:$A$99"),0)...

E2=IF(SUM(COUNTIF(A2:D2,A2:D2))>4,"ซ้ำ","ไม่ซ้ำ")

อีกตัวอย่างครับ ที่ D3:D29=IF(B3="","",LOOKUP(CHAR(255),A$3:A3)&INDEX(K$3:K$20,MATCH(B3,J$3:J$20,0))) ที่ E6:E19=IF(G6="","",INT((ROWS(H$6:H6)-1)/5)+1) ที่ H6:H19=IF(G6<>"",SUMIF(D$3:D$30,LOOKUP(CHAR(255),F$6:F6)&G6,C$3:C$30),SUMIF(E$6:E$20,E...

ผมรันแล้วติดบรรทัด นี้ครับ
ลองเปลี่ยนจาก เป็น ดูว่ายังติดไหมครับ ถ้าติดก็ดูว่าติดที่ไหนต่อครับ

F4=SUM(E4,SUMIFS(Table6[จำนวน],Table6[รายการวัตถุดิบ],$C4,Table6[วันที่รับเข้าฝ่ายผลิต],$F$2)) Copy down

ทำไมถึง ทำ Pivot แล้วมาดึงค่าจาก Pivot ละครับ ไม่ดึงจากชีท ที่1 เลยละครับ

ปรับตามนี้ดูครับ Sub paidname() Dim sh As Worksheet Dim r As Range Application.DisplayAlerts = False On Error Resume Next For Each sh In Worksheets If sh.Index > 2 Then With Sheets("hoscode") For Each r In sh.Range("q10:q10000") If Len(r.Text) = 5 Then r.Value = Application.IfErr...

ต้องใช้ แถวช่วยนะครับ
ที่ E1=WEEKNUM(E3,2) Copy right
B4=SUMIF(E$1:BK$1,WEEKNUM(A$1,2),E4:BK4) Copy down