|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Me.Range("B2:B10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
Target.Offset(, -1).Select
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Me.Range("C2:C10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
For I = 2 To 1 Step -1
If Target.Offset(, -I) = "" Then
Target.Offset(, -I).Select
Exit For
End If
Next
End If
Application.EnableEvents = True
End If
If Not Intersect(Target, Me.Range("D2:D10000")) Is Nothing Then
Application.EnableEvents = False
If Target.Offset(, -1) = "" Then
Target = ""
If Target.Offset(, -1) = "" Then
Target = ""
For I = 3 To 1 Step -1
If Target.Offset(, -I) = "" Then
Target.Offset(, -I).Select
Exit For
End If
Next
End If
End If
Application.EnableEvents = True
End If
End Sub
کامنت