(آموزشی) معادل VBA تابع subtotal و count if

[ali.b]

معادل Subtotal

Sheet3.[M1] = WorksheetFunction.Subtotal(9, Sheet3.Range("F2", Sheet3.Range("F65536").End(xlUp)))

معادل COUNTIF

Sub COUNTIF()
Dim A As Range
Dim Csum As Long
Csum = 0
For Each A In Sheet2.Range("H2", Sheet2.Range("H65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
Csum = Csum + WorksheetFunction.COUNTIF(A, Sheet1.[a4])
Next A
Sheet3.[b10] = Csum
End Sub

[Amir Ghasemiyan]

سلام
ممنون از آموزشتون
معادل countif انقد طولانيه؟

اين مواردي كه فرمودين براي اكثر توابع اكسل قابل پياده سازيه
كافيه از كلاس WorksheetFunction استفاده كنيد. مختص اين دو تابع نيست

بعضي از توابعي كه از اين كلاس قابل استفاده است رو در شكل زير ميبينيد