Snasui Excel Forum

ติดตามคำตอบได้ที่นี่ครับ https://snasui.com/viewtopic.php?p=121371

ลองเปลี่ยน

For i = 16 To lastRow เป็น For lastRow = 16 To i Step - 1

เพื่อรันแบบถอยหลังแทนดูก่อนครับ

:D ลองตรวจสอบตามนี้ครับ

ตรวจสอบ Regional Setting ของ Power Query และ Excel ให้ตรงกัน (เช่น English-US, Thai, หรืออื่น ๆ)

ลองใช้ฟังก์ชัน Change Type with Locale ใน Power Query เพื่อบังคับให้ตีความวันที่ตาม Locale ที่ถูกต้อง

ตรวจสอบว่า Excel ใช้ Date System แบบ 1900 หรือ 1904 (File > Options ...

ไม่สามารถทำได้ด้วยวิธีอื่น ต้องใช้เส้นที่วางเองด้วยมือหรือวางด้วย code ครับ หากใช้ code ต้องเขียนมาเองก่อน ติดปัญหาแล้วค่อยถามกันต่อครับ

:D สามารถใช้ Conditional Formatting ช่วยได้แต่มันจะไม่พาดข้ามขอบเซลล์ครับ

ตัวอย่าง

คลุม F3:F5 (หรือเผื่อไว้ลงไปบรรทัดล่างตามที่มีข้อมูลจริง)
เข้าเมนู Home > Conditional Formatting > New Rule > Use a formula... > ในช่อง Format Value... คีย์ =SUM(F3:F5)=0
คลิกปุ่ม Format ที่แถบ Number เลือก ...

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

=TRIM(LEFT(A1,FIND("หน้า",A1)-1))

กรณีต้องการคำแรกของชื่อใช้ตามด้านล่างครับ

=TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",20)),20,20))

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

=substitute(substitute(a1,"บริษัท ","")," จำกัด","")

Enter

กรุณาสังเกตการใช้วรรคครับ

ผมทดสอบแล้วพบว่าความเร็วไม่ต่างกัน ไม่มีการหน่วงใด ๆ ครับ

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

Sub ClsOverScore() ' เคลียร์คะแนนที่เกินจำนวนคนที่มีชื่อ
Dim lastRow As Long
Dim i As Long, r As Range, j As Long
On Error Resume Next

Application.ScreenUpdating = False
Application.EnableEvents = False
With ActiveSheet
Set r = .Range("D5")
Do While r.Offset ...

ผมทดสอดู Code ที่แนบมาทำงานได้แล้วครับ

นั่นคือ จากตัวอย่างที่ให้มาเมื่อคลิกรัน Code ข้อมูลในบรรทัดที่ 38 เป็นต้นไปจะถูกลบทิ้งครับ

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

ที่ A5 คีย์
=IFERROR(INDEX(Data!B:B,AGGREGATE(15,6,ROW(Data!$B$3:$B$60)/(0<FREQUENCY(MATCH(Data!$C$3:$C$60,Data!$C$3:$C$60,0),ROW(Data!$B$3:$B$60)-ROW(Data!$B$3)+1)),INT((ROWS(A$3:A3)-1)/2)+1)),"")
Enter > Copy ไป B5 แล้ว Copy ลงด้านล่าง
ที่ C5 คีย์
=IF(A5 ...

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

เซลล์ D5 คีย์

=IF($C5=1050,DAY(D$4)<=9,DAY(D$4)>9)*SUMIFS(Data!$F$3:$F$60,Data!$C$3:$C$60,$B5,Data!$A$3:$A$60,D$4)

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

:D ตัวอย่างสูตรตามด้านล่าง ดูภาพที่แนบประกอบ ครับ

เซลล์ G1:I1 คีย์ค่าเหล่านี้เป็นแต่ละขั้นตามลำดับ 150, 400, 1500
ที่ G3 คีย์สูตรเพื่อช่วยสร้างค่าตามขั้นของตัวคูณของแต่ละขั้น
=G1-F3
Enter > Copy ไปด้านขวาถึง I3
ที่ G4 คีย์สูตรเพื่อแสดงคำตอบ
=G$2*MAX(0,MIN($E4,SUM($F$3:G$3))-SUM($F$3:F$3 ...

ลองอธิบายหลักการคิดมาให้ทราบอีกทีครับ

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

ในเซลล์ I6 คำนวณอย่างไรครับ

จากคำอธิบายในไฟล์

ในคอลัมม์ H6 ต้องนำยอดจากคอลัมม์ E6 ลบกันคอลัมม์ G1 จะได้ 250 แล้วเอามาคูณกับ คอลัมม์ H2

E6 = 643
G1 = 150

อยากทราบวิธีคิดว่า นำ E6-G1 พร้อมด้วยเงื่อนไขใดจึงเหลือ 250 ครับ

สูตรเดิมคำนวณดังภาพที่แนบมาด้วย โจทย์ใหม่คำนวณอย่างไร อธิบายมาด้วยครับ

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

ที่ G4 คีย

=IF(COLUMNS($G4:G4)=1,G$1*G$2,IF($E4<F$1,"",($E4-SUM($F$1:F$1))*G$2))

Enter > Copy ไปด้านขวาและลงด้านล่างยังพื้นที่ที่เกี่ยวข้อง

ในเซลล์ A2 มีสูตร 2 บรรทัด ดังภาพ ให้ลบออกเหลือบรรทัดเดียวสูตรก็จะทำงานได้ครับ