|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
=IFERROR(INDEX($C$4:$D$10;SMALL(IF(($D$4:$D$10<10);ROW($D$4:$D$10)-3;"");ROW(A1));1);"")
Function Tajdidi(ListRng As Range) As Variant
If ListRng.Areas.Count > 1 Or ListRng.Columns.Count > 2 Then Exit Function
Dim TajArr()
ReDim TajArr(1 To 1, 1 To 2)
j = 1
For i = 1 To ListRng.Rows.Count
If ListRng(i, 2).Value < 10 Then
j = j + 1
TajArr = Application.Transpose(TajArr)
ReDim Preserve TajArr(1 To 2, 1 To j)
TajArr = Application.Transpose(TajArr)
TajArr(j - 1, 1) = ListRng(i, 1).Value
TajArr(j - 1, 2) = ListRng(i, 2).Value
End If
Next
TajArr = Application.Transpose(TajArr)
ReDim Preserve TajArr(1 To 2, 1 To j - 1)
TajArr = Application.Transpose(TajArr)
Tajdidi = TajArr
End Function
کامنت