Snasui Excel Forum

ตัวอย่างการปรับสูตรที่เซลล์ D5 ครับ

=IF(J5="","",TEXT(26000+SUMPRODUCT(--(J5>J$5:J$11),--(J$5:J$11<>""))+COUNTIFS(J$5:J5,J5),"00000"))

Enter > Copy ลงด้านล่าง

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

ตัวอย่างสูตรตามด้านล่างครับ

1. ที่ C5 คีย์
   =B5&TEXT(COUNTIFS(B$5:B5,B5)," 000")
   Enter > Copy ลงด้านล่าง
2. ที่ D5 คีย์
   =IF(J5="","",TEXT(26000+COUNTIFS(J$5:J5,"<>"),"00000"))
   Enter > Copy ลงด้านล่าง

:D สามารถกำหนดตามลำดับนี้ครับ


กำหนดด้วย Custom Format

คลิกขวาที่ E2 > Format Cells...
คลิกแถบ Number ที่ช่อง Type: คีย์ #,##0;-#,##0;-
คลิกปุ่ม OK

กำหนดด้วย Conditional Formatting

คลิกเซลล์ E2
เข้าเมนู Home > Conditional Formatting > New rule
เลือก Use a formula to determine which ...

ตัวอย่างสูตรที่ L5 ครับ

=IFERROR(INDEX($C$5:$J$5,AGGREGATE(15,6,(COLUMN($C5:$J5)-COLUMN($C$5)+1)/($C5:$J5<>""),COLUMNS($L5:L5))),"")

Enter > Copy ไปด้านขวาและลงด้านล่าง

:D ตัวอย่างการปรับสูตรที่เซลล์ A2 ครับ

=LET(
d, format!A2:NN190,
r, ROWS(d),
c, COLUMNS(d)-2,
t,
MAKEARRAY(r*c,4,
LAMBDA(i,j,
LET(
ri, INT((i-1)/c)+1,
ci, MOD(i-1,c)+1,
raw, TRIM(INDEX(d,ri,ci+2)),
head, IFERROR(TEXTBEFORE(raw," "),""),
s,
IF(
AND(head<>"", LEN(head)>=5, ISNUMBER ...

ต้อง Copy เอง สูตรนั้นแค่ช่วยให้มันรันลำดับครับ

วิธีการ Copy ให้เร็ว Copy ให้ครบ 10 อันก่อน แล้วค่อย Copy 10 อันนั้นไปวางต่อจาก 10 อันเดิมจะได้เป็น 20 อัน จากนั้นค่อย Copy 20 อันไปวางต่อของเดิมแบบนี้เป็นต้น การ Copy เช่นนี้จะทำให้ลดเวลาได้มากครับ

:D หากต้องการให้เริ่มจาก 401 ให้ปรับสูตรที่ D1 เป็นด้านล่างครับ

=TEXT(INT((ROWS(D$1:D2000)-1)/5)+1,"""No.""0000")

ซึ่งต้องทำก่อนที่จะ Copy ไปใช้งาน

แต่หาก Copy ไปเรียบร้อยแล้วให้ใช้การ Replace แทนตามด้านล่างครับ

วิธีการ

คลุมคอลัมน์ D
เปิดกล่องโต้ตอบ Replace ด้วยการกดแป้น Ctrl+H
ช่องบนคีย ...

ขออภัย ปรับตัวเลขในสูตรที่ D1 จาก 6 เป็น 5 ดังด้านล่างก่อน Copy ไปใช้ต่อครับ

=TEXT(INT((ROWS(D$1:D1)-1)/5)+1,"""No.""0000")

สูตรนั้นจะรันให้เมื่อ Copy ไปด้านล่างครับ

การให้รันเองพร้อมข้อมูลที่เกี่ยวข้องโดยไม่ต้อง Copy ด้วยมือจะต้องเขียน VBA เข้าไปจัดการ (ซึ่งต้องเขียนมาเองก่อน) ไม่ทราบว่าผมเข้าใจถูกต้องหรือไม่ ช่วยอธิบายเพิ่มเติมหากผมยังเข้าใจไม่ถูกต้องครับ

ตัวอย่างสูตรที่ D1 ครับ

=TEXT(INT((ROWS(D$1:D1)-1)/6)+1,"""No.""0000")

Enter > Copy ช่วง A1:D5 ไปวางด้านล่างและด้านขวาเพื่อแสดงผลลัพธ์ตามต้องการ เมื่อได้ข้อมูลในชีตแรกแล้วค่อย Copy ไปวางในชีตอื่น ๆ ที่เหลือหากต้องการครับ

ช่วย Update Profile เพื่อระบุ Version ของ Excel ที่ใช้ตาม Link นี้ด้วยครับ viewtopic.php?p=103177#p103177

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

:D เนื่องด้วยปัจจุบันนี้ การลงทะเบียนสมาชิกฟอรัมด้วยภาษาไทยมีปัญหา (เนื่องจากภาษาไทยไม่มี Version ที่ Update ทันกับ Version ที่เป็นภาษาอังกฤษ) จึง แนะนำให้ท่านสมัครสมาชิกด้วยภาษาอังกฤษ แทน ดูที่ :arrow: ขั้นตอนการสมัครสมาชิก ครับ

หากท่านต้องการเปลี่ยนภาษาของฟอรัมเป็นภาษาไทย หรือท่านใดที่เป ...

:D กรุณาอ่านกระทู้เหล่านี้เพื่อทราบก่อนการใช้งานฟอรัมครับ


การ Login ผ่าน Facebook หรือ Google
เทคนิคการวาง Code VBA ที่มีภาษาไทย
การวาง VBA Code ในกล่องความเห็น
การแก้ไขการคลิก Link แล้วหลุดออกจากระบบไม่สามารถเห็นไฟล์แนบ
แนะนำการค้นหาข้อมูลใน Forum
การกำหนดให้แสดง Excel Version ใน User ...

:D Feel free to give this formula a try.


=LET(
cf, N(+B4:E9),
year, --SUBSTITUTE(A4:A9,"Year ",""),
rate, $H$2,
HSTACK(
TRANSPOSE(
BYCOL(
cf,
LAMBDA(col,
LET(
acmcf, SCAN(0, col, LAMBDA(x,y,x+y)),
idx, SUM(--(acmcf<=0)) + 1,
IF(
idx > ROWS(col),
"No Payback",
INDEX(year, idx ...

:D Try this,

=LET(
d,A3:A20,
sep,"===============",
curDept,SCAN("",d,LAMBDA(prev,x,IF(x=sep,"",IF(prev="",x,prev)))),
uniqDept,SORT(UNIQUE(FILTER(curDept,(curDept<>"")*(curDept<>sep)))),
listDept,LAMBDA(de,SORT(FILTER(d,(curDept=de)*(d<>sep)*(d<>de)))),
maxRows,1+MAX(BYROW(uniqDept,LAMBDA(x ...

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ F2 คีย์

=IFERROR(INDEX(C:C,AGGREGATE(15,6,ROW(A:A)/((A:A=$H$1)*(B:B=$J$1)),ROWS(F$2:F2))),"")

Enter > Copy ลงด้านล่าง

การเขียนสูตรตามด้านบน Excel จะทำงานหนักเพราะเป็นการเผื่อช่วงเซลล์ไว้มากเกินไป ควรปรับให้พอดีกับช่วงเซลล์หรือเผื่อไปเท่าที่คิดว่าจะมีข้อมูล ...

:D Try this,
=LET(
d,A2:B16,
cats,UNIQUE(INDEX(d,,1)),
sums,SUMIFS(INDEX(d,,2),INDEX(d,,1),cats),
MAKEARRAY(ROWS(cats),4,
LAMBDA(r,c,
LET(
cat,INDEX(cats,r),
sum,INDEX(sums,r),
others,FILTER(cats,cats<>cat),
osums,SUMIFS(INDEX(d,,2),INDEX(d,,1),others),
diffs,ABS(osums-sum),
match ...

:D Give this a shot,

=LET(
d,A2:F17,
pStore,FILTER(ROW(d),LEFT(INDEX(d,,1)&"",6)="Store-"),
r0,ROW(INDEX(d,1,1)),
pRel,pStore-r0+1,
nStore,ROWS(pRel),
qn,{"Q1","Q2","Q3","Q4"},
total,nStore*12,
out,MAKEARRAY(total,5,
LAMBDA(r,c,
LET(
s,INT((r-1)/12)+1,
pr,INDEX(pRel,s),
i,INT(MOD(r-1 ...

:D If you want to display the header, try this,

=LET(
dates, SORT(A5:A29),
sales, SORTBY(B5:B29, A5:A29),
n, 6,
groupCount, ROUNDUP(ROWS(dates)/n, 0),
idx, SEQUENCE(groupCount),
startIdx, (idx - 1) * n + 1,
endIdx, IF(startIdx + n - 1 > ROWS(dates), ROWS(dates), startIdx + n - 1 ...