|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Dim mycount As Long mycount = Application.WorksheetFunction.CountBlank(Range("A:A")) MsgBox mycount
Sub test()
Dim mycount As Long
k1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
mycount = Application.WorksheetFunction.CountBlank(Range("A1:A" & k1))
MsgBox mycount
End Sub
[LEFT]Sub test()
Dim mycount As Long
mycount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).Count
MsgBox mycount
End Sub[/LEFT]
[LEFT]Sub test()
Dim mycount As Long
mycount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
MsgBox mycount
End Sub[/LEFT]
کامنت