ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
การค้นหา cell ด้วยเงื่อนไขเพื่อ sum
ขอบคุณครับBo_ry wrote: Thu Nov 22, 2018 5:29 pm แบบสูตร แต่ต้องอยู่ column D
D2 ลากลง
=IF(B2="total",SUM(INDEX(C1:C$2,MATCH(2,INDEX(1/(A1:A$2<>""),))):C1),"")
แบบ subtotal อยู่ sheet subtotal
เลือก A1:A26 > กด F5 > special > blank > พิมพ์ = กดลูกษรขึ้น กด Ctrl+Enter
Menu > Data > Subtotal > Change in No > funciton Sum > add subtotal to Money
>check summary below data > Ok
Xengsue wrote: Thu Nov 22, 2018 5:52 pm แต่ที่ต้องการคือไม่ใช่ให้แยกไปอยู่ช่อง D ครับ
คืออยากให้มันอยู่ที่ฯ remark ไว้ครับ
ก่อนที่จะเป็นคำว่า "ผลรวมที่ต้องการต้องอยู่ที่นี้" เป็นค่าอะไรอยู่ก่อนหน้านี้หรือไม่หรือเป็นเซลล์ว่างครับ 
ขอบคุณมากครับBo_ry wrote: Fri Nov 23, 2018 8:25 am หาตำแหน่ง
E1 ลากไปทางขวา
=IFERROR("C"&AGGREGATE(15,6,ROW($B$1:$B$99)/($B$1:$B$99="total"),COLUMNS($E1:E1)),"")
ใช้การ Filter มาช่วยได้ครับขอบคุณ อาจารย์มากครับ ที่เข้ามาช่วยsnasui wrote: Fri Nov 23, 2018 9:08 pm
- ไปที่ Sheet1 > คลิก A1 > เข้าเมนู Data > Filter
- คลิก Dropdown ที่ B1 > เลือก Total
- คลุมคอลัมน์ C > กดแป้น F5 > Special > Visible cells only > กดแป้น Delete
- เข้าเมนู Home > ไปที่กลุ่มเมน Editing > คลิก AutoSum (หรือกดแป้น Alt+=)
- ปลดการ Filter ทิ้งไป
นี้ครับ ผลงานที่ทำ กว่าจะทำได้snasui wrote: Fri Nov 23, 2018 9:08 pm
- ไปที่ Sheet1 > คลิก A1 > เข้าเมนู Data > Filter
- คลิก Dropdown ที่ B1 > เลือก Total
- คลุมคอลัมน์ C > กดแป้น F5 > Special > Visible cells only > กดแป้น Delete
- เข้าเมนู Home > ไปที่กลุ่มเมน Editing > คลิก AutoSum (หรือกดแป้น Alt+=)
- ปลดการ Filter ทิ้งไป
ตัวอย่างการ Loop เพื่อจะวางยอดรวมครับCode: Select all
Dim rall As Range, r As Range, sum As Double
With Worksheets("WORK")
Set rall = .Range("l9", .Range("l" & .Rows.Count).End(xlUp))
For Each r In rall
If r.Value <> "TOTAL" Then
sum = sum + Val(r.Offset(0, 13).Value)
Else
r.Offset(0, 13).Value = sum
sum = 0
End If
Next r
End With
ขอบคุณมากครับsnasui wrote: Sat Nov 24, 2018 11:14 pm
Code: Select all
Dim rall As Range, r As Range, sum As Double With Worksheets("WORK") Set rall = .Range("l9", .Range("l" & .Rows.Count).End(xlUp)) For Each r In rall If r.Value <> "TOTAL" Then sum = sum + Val(r.Offset(0, 13).Value) Else r.Offset(0, 13).Value = sum sum = 0 End If Next r End With