امتیاز موضوع:
  • 34 رأی - میانگین امتیازات: 2.97
  • 1
  • 2
  • 3
  • 4
  • 5
مشکل ماکرو نویسی اکسل
#1

با سلام من یه دستور ماکرو دارم که تاریخ آخرین تغییرات هر ردیف را ذخیره میکنه
این دستور فقط یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 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
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  قفل گذاری فایل اکسل sajadsabouri 1 1,540 1393/11/30 ، 05:54 عصر
آخرین ارسال: laleh
  سوال در مورد اکسل rythm 7 3,351 1393/7/13 ، 08:12 عصر
آخرین ارسال: newertebat
  سوال در مورد فرمول نویسی در . . . . .؟؟؟ hamid.barati 0 1,381 1393/6/15 ، 10:42 عصر
آخرین ارسال: hamid.barati
  سوالی از اکسل matin2h 0 1,314 1393/5/17 ، 12:27 عصر
آخرین ارسال: matin2h
  مشکل در نوشتن یک فرمول بسیار ساده در اکسل pouya70 2 1,835 1393/5/6 ، 02:21 عصر
آخرین ارسال: pouya70
  آخرین فونت استفاده شده در اکسل!! زینب خوش کلام 5 1,971 1393/4/19 ، 11:36 صبح
آخرین ارسال: زینب خوش کلام
Question اشکال اکسل !! سپهرا 2 2,023 1393/1/5 ، 08:29 عصر
آخرین ارسال: Manciple
  مشکل نمایش حروف فارسی در ویندوز 8 mortezaomidi 1 1,641 1392/12/27 ، 08:28 عصر
آخرین ارسال: کیوان بابایی
  اکسل چیست ؟ ( ابهاماتی در راجع با یادگیری اکسل ) زیبا یگانه 16 6,635 1392/1/21 ، 08:16 عصر
آخرین ارسال: miladezati

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان