|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
KB = Cells(Rows.Count, "B").End(xlUp).Row
For T = 1 To KB
For I = 1 To Len(Range("B" & T))
For J = 1 To 10
If Mid(Range("B" & T), I, 1) = ChrW(1631 + J) Then
Range("B" & T) = Left(Range("B" & T), I - 1) & ChrW(47 + J) & Right(Range("B" & T), Len(Range("B" & T)) - I)
End If
Next
Next
Next
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
kb = Cells(Rows.Count, "B").End(xlUp).Row
For k = 1 To 10
For i = 1 To kb
For j = 1 To 10
xx = Replace(Cells(i, k), ChrW(1775 + j), ChrW(47 + j))
Cells(i, k) = xx
Next
Next
Next k
Application.ScreenUpdating = True
End Sub
کامنت