ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
ลองตามนี้ครับทำได้แล้วครับ แต่เมื่อผมกรองข้อมูลแล้วทำไมข้อมูลถึงผิดพลาดก่อนใส่สูตรไม่มีผิดพลาดsnasui wrote:
ที่เซลล์ C5 คีย์
=SUBTOTAL(3,D$5:D5)
Enter > Copy ลงด้านล่าง
ลองปรับ Code ใหม่เป็นตามด้านล่างครับ
Code: Select all
Sub summary()
ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4, Criteria1:=">=100000" _
, Operator:=xlAnd, Criteria2:="<=200000"
Call FillItemNum
End Sub
Sub summary1()
Range("D3").Select
ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4, Criteria1:=">=200000" _
, Operator:=xlAnd, Criteria2:="<=10000000"
Call FillItemNum
End Sub
Sub summaryall()
ActiveSheet.Range("$C$4:$F$257").AutoFilter Field:=4
Call FillItemNum
End Sub
Sub FillItemNum()
Dim i As Integer
Dim r As Range
i = 1
For Each r In Range("C5:C257").SpecialCells(xlCellTypeVisible)
r = i
i = i + 1
Next r
End Sub