|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub TEST()
Dim CELL, XX, RNG As Range
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row
Sheet1.Range("H2:H" & Z2).ClearContents
K = 2
XX = Sheet2.Range("A2").Value
Set RNG = Sheet1.Range("A2:A" & Z1)
For Each CELL In RNG
If Len(XX) > 0 And XX = Left(CELL, Len(XX)) Then
Sheet1.Range("H" & K) = CELL
K = K + 1
End If
Next
End Sub
=--ISNUMBER(IFERROR(SEARCH(Sheet4!$A$3;A2;1);""))
=IF(H2=1;COUNTIF($H$2:H2;1);"")
=IFERROR(INDEX($A$2:$A$33;MATCH(ROWS($I$2:I2);$I$2:$I$33;0));"")
=$J$2:INDEX($J$2:$J$33;MAX($I$2:$I$33);1)
[I][COLOR=#0000FF]Private Sub ComboBox1_Change()[/COLOR][/I] [I][COLOR=#0000FF]ComboBox1.ListFillRange = "DropDownList"[/COLOR][/I] [I][COLOR=#0000FF]Me.ComboBox1.DropDown[/COLOR][/I] [I][COLOR=#0000FF]End Sub[/COLOR][/I][LEFT] [/LEFT]
Sub TEST()
Dim CELL, XX, RNG As Range
Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "H").End(xlUp).Row
Sheet1.Range("H2:H" & Z2).ClearContents
Sheet2.Range("b2").ClearContents
K = 2
XX = Sheet2.Range("A2").Value
Set RNG = Sheet1.Range("A2:f" & Z1)
For Each CELL In RNG
If InStr(CELL, XX) = 1 Then
Sheet1.Range("H" & K) = CELL
K = K + 1
End If
Next
Sheet2.Range("b2") = Sheet1.Range("H2")
End Sub
کامنت