با سلام من یه دستور ماکرو دارم که تاریخ آخرین تغییرات هر ردیف را ذخیره میکنه
این دستور فقط یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 2 تا 9 اجرا کنه و با بقیه شیت ها هم کاری نداشته باشه
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value As Variant
If Not Intersect(Target, Range("D4:D5000")) Is Nothing Then
For Each Value In Target
If Value <> "" Then
Range("F" & Value.Row).Value = Now
End If
Next Value
End If
End Sub
این دستور فقط یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 2 تا 9 اجرا کنه و با بقیه شیت ها هم کاری نداشته باشه
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value As Variant
If Not Intersect(Target, Range("D4:D5000")) Is Nothing Then
For Each Value In Target
If Value <> "" Then
Range("F" & Value.Row).Value = Now
End If
Next Value
End If
End Sub
ادامه مطلب ....
http://ift.tt/1pMIgCW
منبع:انجمن هاي سياسي مذهبي فرهنگي نورآسمان
تبادل لينك
هیچ نظری موجود نیست:
ارسال یک نظر