Snasui Excel Forum

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

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

ในเซลล์ 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 บรรทัด ดังภาพ ให้ลบออกเหลือบรรทัดเดียวสูตรก็จะทำงานได้ครับ

ผมเข้าใจที่อธิบาย แต่จากการตรวจสอบข้อมูลจริงพบว่าไม่เท่ากับคำตอบที่ให้มา

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

ลอง Filter แล้วไม่ได้ค่าตามต้วอย่าง ช่วยแจ้งว่าค่าต้นทางคือเซลล์ไหนบ้างจะได้เข้าใจตรงกันครับ

:D ช่วยทำตัวอย่างคำตอบมาด้วยว่าต้องการรวมให้อยู่ในเซลล์ไหน คำตอบเป็นอย่างไร จะได้เข้าใจตรงกันครับ

หากต้องการบรรทัดสุดท้ายเป็นยอดรวม ลองตามนี้ครับ

เซลล์ E16 คีย์

=IF(COLUMNS(E16:$K16)>LEN(SUMPRODUCT($A$11:$A$15,$C$11:$C$15)),"",LEFT(RIGHT(SUMPRODUCT($A$11:$A$15,$C$11:$C$15),COLUMNS(E16:$K16 ...

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

ที่ D2 คีย์

=REPLACE(C2,2,1,"_")

หรือ

=SUBSTITUTE(C2,"/","_")

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

:D ตัวอย่างการปรับ Code สังเกตได้ตามหมายเลขที่ผมเพิ่มเข้าไปครับ

Sub ImportAct()
Dim fileToOpen As Variant
Dim fileFilterPattern As String
Dim wsMaster As Worksheet
Dim wbTextImport As Workbook
Dim folderPath As String
Dim fName As String '1. Declare fName variable

folderPath = "C:\TEST ...

...
โดยไฟล์ต้นฉบับเป็นไฟล์จากหน่วยงานอื่นที่ไม่สามารถแก้ไขรูปแบบก่อนได้ และจะใช้ไฟล์ใหม่แทนไฟล์เดิมทุกวัน
...


:D ลองให้ทางผู้ทำไฟล์กำหนด Data Type ของคอลัมน์นั้นเป็น Text ดูก่อน จะได้ไม่ต้องมาแก้เองครับ :?:

ที่เป็นเช่นนี้เข้าใจว่า Regional and Language มีส่วน ของสอบถามว่าในเครื่องต ...

:D ตัวอย่างสูตรที่ A9 หลังจากปรับ Format ให้เป็น General เนื่องจาก Format เดิมเป็น Text จะทำให้สูตรกลายเป็นข้อความ จึงต้องปรับเสียก่อนครับ

=IF(COUNTIFS(B$1:B10,"ส่ง")>$H$1,"",COUNTIFS(B$1:B10,"ส่ง")&"/"&$H$1)

Enter > Copy ไปยังเซลล์ด้านล่างที่เกี่ยวข้อง

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

ต้วอย่างดังภาพ กรุณาสังเกตการกำหนดเส้นในคอลัมน์ Format เช่น เส้นข้าง กรอบ เส้นล่าง หรือแบบผสมในแต่ละเงื่อนไขครับ

สูตรที่กำหนดใน Conditional Formatting ตามลำดับ

1. =$B2<>""
2. =$B2=MAX($B:$B)
3. =$B2="ที่"

:D ผมปรับสูตรให้ใหม่เนื่องจากจากสูตรเดิมที่ใช้แสดงค่าบรรทัดในคอลัมน์ A มีโอกาสผิดพลาดได้ เป็นตามด้านล่างครับ


ที่ A2 คีย์สูตรเพื่อแสดงค่าบรรทัด
=IF(ROWS(A$2:A2)>CEILING(($G$1-(15*CEILING($G$1/10000,1)))/10000,1),"",ROWS(A$2:A2))
Enter > Copy ลงด้านล่าง
ที่ B2 คีย์สูตรเพื่อแสดงยอดเงินฝาก ...

monoza2019 wrote: Thu Feb 19, 2026 8:45 am ลำดับ 4 ยอดฝากต้องเป็น 1,940 บาท ครับ เพราะยอดหลังหักค่าธรรมเนียม ต้องเป็น 31,940 บาท

ปรับสูตรที่ B2 เป็นด้านล่างครับ

=IF(A2="","",IF($G$1>=10000*A2,10000,$G$1-SUM(B$1:B1)-15*A2))

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

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

ที่ A2 คีย์สูตรเพื่อหาว่าจำนวนเงินตาม G1 สามารถวางได้กี่บรรทัด
=IF(ROWS(A$2:A2)>(INT(G$1/10000)+(MOD(G$1,10000)>0)),"",ROWS(A$2:A2))
Enter > Copy ลงด้านล่าง
ที่ B2 คีย์สูตรเพื่อแสดงยอดฝากรายบรรทัดที่ไม่เกินหมื่น
=IF(A2="","",IF($G$1>=10000*A2,10000,$G$1-SUM(B$1 ...

เป็น Microsoft Office Standard 2019 ครับ
:D ตัวอย่างสูตรที่ E3 ครับ

=IFERROR(INDEX(LOOKUP(ROW(SUMMARY!$E$11:$E$710),ROW(SUMMARY!$E$11:$E$710)/(SUMMARY!$E$11:$E$710<>""),SUMMARY!$E$11:$E$710),AGGREGATE(15,6,(ROW(SUMMARY!$E$11:$E$710)-ROW(SUMMARY!$E$10)+1)/(INDEX(SUMMARY!$K$11:$BV$710,0,MATCH($D3 ...

สูตรนั้นต้องใช้กับ Excel 365 (ดังภาพ) ไม่ทราบว่าปัจจุบันใช้กับ Version ใดครับ