Snasui Excel Forum

: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 ใดครับ

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

1. ที่ G2 คีย์
   =INT(G1/10000)+(MOD(G1,10000)>0)
   Enter
2. ที่ G3 คีย์
   =G2*15
   Enter
3. ที่ G4 คีย์
   =G1-G3
   Enter

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

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

=LET(
data, SCAN("", SUMMARY!$E$11:$E$710, LAMBDA(a,b, IF(b<>"", b, a))),
headers, SUMMARY!$K$6:$BV$6,
values, SUMMARY!$K$11:$BV$710,
nCols, 6,
result, MAKEARRAY(
ROWS(D3:D66 ...

ตัวอย่างสูตรในเซลล์ A3 ครับ

=IF($A$2+COLUMNS($A3:A3)-1>EOMONTH($A$2,0),"",$A$2+COLUMNS($A3:A3)-1)

Enter > Copy ไปด้านขวา

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

=REGEXEXTRACT(A2,"(\d+\.?\d*%)")

คำแปล

REGEXEXTRACT ==> ฟังก์ชันที่ใช้ดึงข้อความที่ตรงกับรูปแบบ (pattern) ที่กำหนดด้วย Regular Expression
"(\d+\.?\d*%)" ==> คือ แพทเทิร์น RegEx ที่มีความหมายดังนี้
\d+ ==> ตัวเลขตั้งแต่ 1 หลักขึ้นไป
\.? ==> จุดทศนิยม (.) ถ้าม ...

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

ที่ F4 คีย์
=IFERROR(INDEX($B:$B,AGGREGATE(15,6,ROW($B$4:$B$18)/(0<FREQUENCY(MATCH($B$4:$B$18,$B$4:$B$18,0),ROW($B$4:$B$18)-ROW($B$4)+1)),ROWS(F$4:F4))),"")
Enter > Copy ลงด้านล่าง
ที่ G4 คีย์
=IFERROR(INDEX($C:$C,AGGREGATE(15,6,ROW($C$4:$C$18)/($B$4:$B$18=$F4 ...

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

ที่ B2 คีย์
=LEFT(A2,LEN(A2)-3)
Enter > Copy ลงด้านล่าง
ที่ C2 คีย์
=RIGHT(A2,3)
Enter > Copy ลงด้านล่าง


จากสูตร

=LEFT(A2,LEN(A2)-3)

มีความหมายดังนี้ครับ

LEFT(A2, … ) → ดึงข้อความจากเซลล์ A2 โดยเริ่มจากด้านซ้าย
LEN(A2) → นับจำนวนตัวอักษรท ...

:D การทำเช่นนั้นต้องอาศัย VBA ผมเขียนเป็นตัวอย่างให้ลองปรับใช้งานก่อน หากปรับใช้แล้วติดปัญหาส่วนไหนอย่างไรค่อยนำ Code ล่าสุดมาถามกันต่อครับ

Code ด้านล่างต้องวางใน Sheet1 (All) ไม่ใช่วางใน Module ใด ๆ ครับ

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Worksheet ...

:D หลัก ๆ คือ นำสูตรเดิมในคอลัมน์ C ไปหารด้วย 24 อีกทีเพื่อทำให้เป็นระบบเวลาครับ

วิธีการ

ปรับสูตรเดิมที่คอลัมน์ C เป็น
=A2/B2/24
Enter > Copy ลงด้านล่าง
ปรับ Format ให้แสดงผลในรูปแบบที่ต้องการ โดยเลือกผลลัพธ์ทั้งหมด > คลิกขวา > Format Cells... > ที่แถบ Number เลือก Custom > ที่ช่อง Type: คีย ...

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

=IF(COUNTIFS($B$2:$B$200,A2)=1,A2,IF(B2<>B3,SUMIFS($A$2:$A$200,$B$2:$B$200,B2),0))

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

:D ผมเดาความหมายเพิ่มจากข้อมูลแวดล้อมประกอบด้วยครับ

จากสูตร
=COUNTIFS(B5:B2500,"<-0.30%",B5:B2500,">=-1%")


การนับเดิมมีเงื่อนไขเดียวคือ <-0.3%

แต่ข้อมูลจริงมีค่าที่เข้าเงื่อนไขมากกว่านั้น ค่าที่ติดลบเยอะ ๆ จะเข้าเงื่อนไขทุกรายการ ทำให้ไม่ได้คำตอบตามต้องการครับ

เงื่อนไขที่จะได้คำตอบตามท ...