Snasui Excel Forum

:D ขออภัยน่ะครับ ที่ไม่ได้มารายงานผล

ผมนำไปทดสอบและนำไปใช้แล้ว ปรากฏว่าได้ผลตามต้องการครับ

Sub FilterDataAll()
'On Error Resume Next
  Dim rSource As Range
  Dim rTarget As Range
  Dim r As Range
  Dim lng As Long
  With Sheets("Report")
      If .Range("A8") <> "" Then
          .Range("A8", .Range("A" & Rows.Count)).Resize(, 6).ClearContents
          .Range("E8") = "จ่าย"
          .Range("F8") = "คงเหลือ"
      End If
  End With
  With Sheets("TaxInvoice")
      Set rSource = .Range("B2:H" & Rows.Count)
  End With
  rSource.AdvancedFilter Action:=xlFilterInPlace, _
      CriteriaRange:=Sheets("Report").Range("K1:M2")
  rSource.Resize(, 4).SpecialCells(xlCellTypeVisible).Copy
  Sheets("Report").Range("A8").PasteSpecial xlPasteValues
  If Sheets("Report").Range("B9") = "" Then Exit Sub
  With Sheets("Report")
    Set rTarget = .Range("B9", .Range("B" & Rows.Count).End(xlUp))
  End With
  For Each r In rTarget
    r.Offset(0, 3) = Application.SumIf(Range("Data_Tax"), r, Range("Data_Amount"))
    If r.Row = 9 Then
        r.Offset(0, 4) = Range("G3") + r.Offset(0, 2)
    Else
        r.Offset(0, 4) = r.Offset(0, 2) + r.Offset(-1, 4)
    End If
  Next r
  Sheets("TaxInvoice").ShowAllData
End Sub

:D ลองดูตัวอย่าง Code ตามด้านล่างครับ
[code]Sub FilterDataAll()
'On Error Resume Next
Dim rSource As Range
Dim rTarget As Range
Dim r As Range
Dim lng As Long
With Sheets("Report")
If .Range("A8") <> "" Then
.Range("A8", .Range("A" & Rows.Count)).Resize(, 6).ClearContents
.Range("E8") = "จ่าย"
.Range("F8") = "คงเหลือ"
End If
End With
With Sheets("TaxInvoice")
Set rSource = .Range("B2:H" & Rows.Count)
End With
rSource.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Report").Range("K1:M2")
rSource.Resize(, 4).SpecialCells(xlCellTypeVisible).Copy
Sheets("Report").Range("A8").PasteSpecial xlPasteValues
If Sheets("Report").Range("B9") = "" Then Exit Sub
With Sheets("Report")
Set rTarget = .Range("B9", .Range("B" & Rows.Count).End(xlUp))
End With
For Each r In rTarget
r.Offset(0, 3) = Application.SumIf(Range("Data_Tax"), r, Range("Data_Amount"))
If r.Row = 9 Then
r.Offset(0, 4) = Range("G3") + r.Offset(0, 2)
Else
r.Offset(0, 4) = r.Offset(0, 2) + r.Offset(-1, 4)
End If
Next r
Sheets("TaxInvoice").ShowAllData
End Sub

[/code]

:D สวัสดีครับอาจารย์ ผมมีปัญหาอยากให้อาจารย์ช่วยแนะนำหน่อยครับ

คือว่า ผมทำการกรองข้อมูลมาแสดงโดยใช้ VBA Advance Filter เสร็จแล้วผมใช้สูตร Sumif ในการรวมค่า

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

อธิบายขั้นตอน

ผมกรองข้อมูลมาแสดงในชีท Report โดยเลือกเงื่อไขใน C2:C4 ครับ

จากนั้นข้อมูลก็จะถูกดึงมาแสดงที่ A9:D
ในคอลัมน์ E ตั้งแต่ E9 ลงมาจะเป็นช่องแสดงจำนวนเงินที่ได้จ่ายไปแล้ว โดยใช้ Sumif รวมค่าจากชีท Data ครับ

และข้อถามอีกข้อคือ ผมใช้ SUMIF(RangeName_1,อ้างอิง,RangeName_2)) จะเร็วกว่าการ Sumif แบบธรรมดาทั่วไปหรือไม่ครับ ผมไม่นับรวมสูตร SUM น่ะครับ

รบกวนด้วยครับ