|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub atf() Dim col(1 To 2) As Byte col(1) = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column col(2) = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To col(1) For j = 1 To col(2) If Sheets(1).Cells(1, i) = Sheets(2).Cells(1, j) Then Sheets(1).Cells(1, col(1) + 1) = chrw(1593) & chrw(1591) & chrw(1601) Sheets(2).Cells(1, col(2) + 1) = chrw(1593) & chrw(1591) & chrw(1601) End If Next j Next i End Sub
Sub atf()
Dim row(1 To 2) As Double
row(1) = Sheets(1).Range("a" & Rows.Count).End(xlUp).row
row(2) = Sheets(2).Range("a" & Rows.Count).End(xlUp).row
For i = 1 To row(1)
For j = 1 To row(2)
If Sheets(1).Range("a" & i) = Sheets(2).Range("a" & j) Then
Sheets(1).Range("b" & i) = ChrW(1593) & ChrW(1591) & ChrW(1601)
Sheets(2).Range("b" & j) = ChrW(1593) & ChrW(1591) & ChrW(1601)
End If
Next j
Next i
End Sub
کامنت