Excel Forum

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),"")

แนบไฟล์ล่าสุดที่มีการใส่โค้ดและข้อมูลที่ว่าไม่มา มาดูครับ

C8=IFERROR(INDEX(ต้นฉบับ!O$8:O$113,MATCH(ROWS(C$8:C8),ต้นฉบับ!$N$8:$N$113,0)),"") Copy down
D8=XLOOKUP($C8,ต้นฉบับ!$C$8:$C$113,ต้นฉบับ!D$8:D$113,"") Copy right and down

ลองปรับตามนี้ดูครับ Sub Macro1() Dim x As Integer Sheets("Data").Visible = True x = Application.Match(Sheets("วันที่").Range("a1"), Sheets("ยอดขาย").Range("a3:k3"), 0) Sheets("Data").Range("F4:F13").Copy Sheets("ยอดขาย")...

ที่ชีทData วันที่และข้อมูล ไม่มีครับมีแต่ข้อมูลชุดเดียวไม่มีการอ้างถึงวันที่ ลองทำข้อมูลตัวอย่างมาอีกที่ครับจะได้เข้าใจตรงกันครับ