Excel Forum

norkaz wrote: Fri May 07, 2021 11:15 am ...

ตัวอย่าง ปรับสูตร ชีท Sum

F3

=INDEX(CHOOSE(MATCH(E3,{"A","B","C"},0),A!$B$3:$B$16,B!$C$3:$C$16,'C'!$D$3:$D$16),COUNTIF($E$3:E3,E3))

Copy ลงไป

Norkaz

ได้แล้วครับ ขอบคุณครับ

norkaz wrote: Fri May 07, 2021 10:11 am ตัวอย่างสูตร

F3

=INDEX($B$3:$D$16,AGGREGATE(15,6,ROW($1:$16)/(E3=$B$2:$D$2),COUNTIF($E$3:E3,E3)),MATCH(E3,$B$2:$D$2,0))

Norkaz

ได้แล้วครับ ขอบคุณครับ แต่สอบถามนิดหนึ่ง ถ้าข้อมูลผมต้องแยกชีทจะต้องแก้สูตรยังไงครับ

รบกวนท่านอาจารย์ครับ ผมต้องการ ที่ F3:ถ้า E3 เหมือน แถว B2:D2 ก้ให้ดึงค่า ในแถวนั้นเรียงลงมาเรื่อยๆจนหมด ตามตัวอย่างที่ฟิลสีเหลืองไว้
ตามไฟล์แนบครับ

logic wrote: Wed Mar 03, 2021 9:23 pm แบบนี้หรือเปล่าครับ

F2 =INDEX(A:A,AGGREGATE(15,6,ROW($E$2:$E$99)/($D$2:$D$99=$E2),COUNTIF($E$2:$E2,$E2))) คัดลอกไปขวาและลง

ขอบคุณครับ ได้แล้วครับ

รบกวนท่านอาจารย์ คือผมมีข้อมูล คอลั่ม A ถึง D ส่วนคอลั่มE จะมีการเปลี่ยนแปลงทุกวัน ความต้องการคือ ถ้ามีการเปลี่ยนแปลงที่ คอลั่ม E
อยากให้ อยากให้คอลั่ม A ถึง D เปลี่ยมตาม โดยที่ cell D เหมือน E ตามไฟล์แนบ ขอบคุณครับ

H2
=SMALL($B$2:$D$86,ROWS(H$2:H2))

G2
=MOD(AGGREGATE(15,6,$B$2:$D$86*10^9+$A$2:$A$86/($B$2:$D$86>0),ROWS(H$2:H2)),10^3)

ถ้าไม่มีเลขซ้ำ F2
=INDEX($B$1:$D$1,MATCH(H2,INDEX($B$2:$D$86,G2,),))

ถ้ามีเลขซ้ำ
=INDEX($A$1:$D$1,AGGREGATE(15,6,COLUMN(B$1:D$1)/(INDEX($B$2:$D$86,G2,)=H2),COUNTIFS(G$2:G2,G2 ...

puriwutpokin wrote: Tue Feb 09, 2021 10:11 pm ใช่แบบนีหรือเปล่าครับที่ F2=INDEX(B$1:D$1,MATCH(MIN(B2:D2),B2:D2,)) Copy down

ขอบคุณครับแต่ยังไม่ใช่ครับ

รบกวนท่าอาจารย์ด้วยครับ ตามไฟแนบ ผมต้องการ หาค่าที่น้อยที่สุด ทั้งสามคอลั่ม คอลั่ม B C D ถ้าค่าคอมลั่มและแถวใหนน้อยสุด ให้แสดง หัวแถว ที่เป็น A B C ที่ ที่คอลั่ม F เรียงจนสุดหมดข้อมูล ตามตัวอย่างที่ผมฟิลสี ในคอลั่มF ขอบคุณครับ

รบกวนท่านอาจารย์ ตามไฟล์แนบผมได้เขียนสูตรได้ตามความต้องการแล้วครับ ที่ colume Q แต่ผมต้องเป็น Code VBA เพราะข้อมูลมีเยอะ
ทำให้เครื่องช้า รบกวนท่านอาจารย์ชี้แนะด้วยครับ ขอบคุณครับ

:D ตัวอย่าง Code ครับ

Sub CalJobTime1()
Dim l As Long, x As Double
With Worksheets("Sheet1")
For l = 6 To .Range("b" & .Rows.Count).End(xlUp).Row
If .Range("d" & l).Value = "D1" Then
x = Application.SumIfs(.Range("j6:j" & l), .Range("b6:b" & l), _
.Range("b" & l), .Range("c6:c" & l ...

snasui wrote: Thu Jan 14, 2021 10:08 pm ไม่เข้าใจคำว่าในคอลัมน์ J บวกกัน บวกอะไรกับอะไร เท่าที่ดูเหมือนเป็นการเอาค่าในเซลล์มาคูณด้วย 2 หรือที่เรียกว่าบวกด้วยค่าเดิม เช่นนั้นหรือไม่ แล้วคำว่า "สะสม" มาจากไหน กรุณาอธิบายมาให้เข้าใจครับ

ความต้องการตามสูตรคำนวณไฟล์แนบครับ แต่อยากได้เป็น vba เพราะข้อมูลเยอะครับ

snasui wrote: Thu Jan 14, 2021 9:41 pm เท่าที่อ่านในกล่องคำอธิบายไมพบว่าเป็นการบวกแบบสะสมที่กล่าวถึง ช่วยยกตัวอย่างให้สอดคล้องกับคำว่า "สะสม" ด้วยครับ

คือใน colum j บวกแล้วกันถ้าไม่เกิน 460 ให้แสดงค่า cell ที่colum k อันนี้และที่ต้องการ แต่ยังทำไม่ได้ครับ ขอบคุณครับ รบกวน อาจารย์ด้วยครับ

snasui wrote: Thu Jan 14, 2021 8:58 pm อ่านคำอธิบายแล้วไม่เข้าใจครับ

ช่วยยกตัวอย่างคำตอบที่ถูกต้องมาสัก 2-3 เซลล์แล้วอธิบายว่าค่านั้น ๆ ได้มาด้วยวิธีการใด เผื่อพอจะช่วยได้ครับ

ตามcode บวกได้แล้วครับแต่เกิน460ไม่แสดงค่าที่columK ขอบคุณครับ

ไม่มีใครช่วยได้หรอ

ไฟล์แนบ
Function EndRow(S As Object, C As String) As Long
EndRow = S.Range(C & Rows.Count).End(xlUp).Row
End Function

Sub Caljobtime()
For A = 6 To Module1.EndRow(Sheet1, "B")
If Sheet1.Range("B" & A).Value = Sheet1.Range("B" & A).Value And Sheet1.Range("C" & A).Value = Sheet1.Range("C" & A ...

ไฟล์แนบ

รบกวนท่านอาจารย์ด้วยครับ ใน code vba ผมต้อง sum colume J แล้วแสดงที่ colume K โดยที่ ผลการ sum ต้องไม่เกิน ค่า cell K3 และมีเงื่นไขว่า colume B,C และ D เท่ากับข้อมูลใน cell นั้นๆ
รบกวนท่านอาจารย์ด้วยครับ ขอบคุณครับ Function EndRow(S As Object, C As String) As Long
EndRow = S.Range(C & Rows.Count ...

ชีท 1 ผมไม่เห็น Afternoon นะครับ

I4 =COUNT(SEARCH(OFFSET($A4,,,,COLUMNS($A4:$G4)-COUNTBLANK($A4:$G4)),TRANSPOSE(INDEX(Sheet1!$C$2:$F$37,MATCH(I$2&I$3,Sheet1!$A$2:$A$37&Sheet1!$B$3:$B$37,0),{1,2,3,4}))))
Ctrl+Shift+Enter


พอดี มีทั้ง moning และ afternoon ข้อมูลที่แนบมา ไม่ได้ใส่มาด้วย ได้แล้วคร ...

ลองแบบนี้ดูครับ
I4 =COUNT(SEARCH($A$4:$G$4,TRANSPOSE(INDEX(Sheet1!$C$2:$F$37,MATCH(I$2&I$3,Sheet1!$A$2:$A$37&Sheet1!$B$3:$B$37,0),{1,2,3,4}))))
ไม่แน่ใจว่า Version เก่าต้อง ctrl+shift+enter หรือเปล่านะครับ


ขอบคุณครับ แต่ยังไม่ถูก ข้อมูลได้เท่ากันหมดทั้งแถว ไม่ตรงตามความต้องการ


ลองกรอกผลล ...

parakorn wrote: Thu Nov 05, 2020 10:10 am ลองแบบนี้ดูครับ
I4 =COUNT(SEARCH($A$4:$G$4,TRANSPOSE(INDEX(Sheet1!$C$2:$F$37,MATCH(I$2&I$3,Sheet1!$A$2:$A$37&Sheet1!$B$3:$B$37,0),{1,2,3,4}))))
ไม่แน่ใจว่า Version เก่าต้อง ctrl+shift+enter หรือเปล่านะครับ

ขอบคุณครับ แต่ยังไม่ถูก ข้อมูลได้เท่ากันหมดทั้งแถว ไม่ตรงตามความต้องการ