(آموزشی) معادل 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 استفاده كنيد. مختص اين دو تابع نيست

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