Excel Forum

ปรับตามนี้ครับ 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

ปรับที่ B4=SUM(INDEX(D4:BJ4,MATCH(DATE(YEAR(A$1),MONTH(A$1),1),D$3:BJ$3,0)):INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0))) ฝากรบกวน อย่าใช้ภาษาแชท กระทู้ครับ ตามข้อ1 ครับ ได้แล้วครับ ขอบคุณครับ เพิ่มเติมนิดนึงนะครับ ถ้าจะเพิ่มอีก Colum นึง เป็น Week To Date Sum ตั้งแต่วันจันทร์ของสัปดาห์ ได้ไหใครับ ลองแนบไฟล...

ปรับตามนี้ครับ Sub paidpro() Dim sh As Worksheet Dim r As Range Application.DisplayAlerts = False On Error Resume Next For Each sh In Worksheets If sh.Index > 3 Then With Sheets("province") For Each r In sh.Range("d8:d10000") If Len(r.Text) < 3 Then r.Value = Application.IfError(...

ปรับที่ B4=SUM(INDEX(D4:BJ4,MATCH(DATE(YEAR(A$1),MONTH(A$1),1),D$3:BJ$3,0)):INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0)))

ฝากรบกวน อย่าใช้ภาษาแชท กระทู้ครับ ตามข้อ1 ครับ

babyminds wrote: ↑Tue Jan 09, 2024 2:14 pm

puriwutpokin wrote: ↑Tue Jan 09, 2024 1:39 pm B4=SUM(AI4:INDEX(AI4:BJ4,MATCH(A$1,AI$3:BJ$3,0)))
C4=SUM(D4:INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0)))

ถ้า A1 เปลี่ยนเดือน B4 มันไม่เปลี่ยนตามอะครับ เช่นเปลี่ยนเป็นเดือน 19/1/23

ฺB4 เริ่มจากเดือน 1/2/23 ไม่ใช่หรือครับ

B4=SUM(AI4:INDEX(AI4:BJ4,MATCH(A$1,AI$3:BJ$3,0)))
C4=SUM(D4:INDEX(D4:BJ4,MATCH(A$1,D$3:BJ$3,0)))

ลองปรับตามนี้ดูครับ Sub paidpro() Dim sh As Worksheet Dim r As Range Application.DisplayAlerts = False On Error Resume Next For Each sh In Worksheets If sh.Index > 3 Then With Sheets("province") For Each r In sh.Range("d8:d99") r.Value = Application.IfError(Application. _ VLookup...

ลองดูว่าไฟล์นี้เปิดได้ไหมครับ

น่าจะเป็นเพราะเวอร์ชั่น Excel
ปรับเป็น D8=IFERROR(VLOOKUP($C8,ต้นฉบับ!$C$8:$K$113,COLUMNS($C$8:D$8),0),"")