|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
For Each cell In ActiveSheet.UsedRange
If InStr(cell, "+") > 0 Or InStr(cell, "-") > 0 _
Or InStr(cell, "/") > 0 Or InStr(cell, "*") > 0 Then
cell.Value = "=" & cell
End If
Next
End Sub
Sub test()
For Each cell In ActiveSheet.UsedRange
If Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 Or _
Left(cell, 1) <> "=" And IsNumeric(Right(cell, 1)) And IsNumeric(Left(cell, 1)) _
And InStr(cell, ":") = 0 And InStr(cell, "*") > 0 And InStr(cell, "+") > 0 Then
cell.Select
cell.Value = "=" & cell.Value
End If
Next
End Sub
کامنت