اگر هم بایستی هر بار چند سطر جلوتر بنویسد کدها را مطابق نیاز خود اضافه و اصلاح کنید
کد PHP:
Sub Worksheet_Change(ByVal Target As Range)
'============ÈÑÇí ÓÊæä A====='
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Target.Value
Application.EnableEvents = True
End If
'=======================ÈÑÇí ÓÊæä C======='
If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 2).Value = Target.Value
Application.EnableEvents = True
End If
'=======================ÈÑÇí ÓÊæä F====='
If Not Intersect(Target, Me.Range("F:F")) Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 3).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
علاقه مندی ها (Bookmarks)