نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: مشکل ماکرو نویسی اکسل

  1. #1


    آخرین بازدید
    2014/10/31
    تاریخ عضویت
    October 2014
    نوشته ها
    8
    امتیاز
    11
    سپاس
    1
    سپاس شده
    1 در 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
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    ویرایش توسط newertebat : 2014/10/25 در ساعت 17:32

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط newertebat نمایش پست ها
    با سلام من یه دستور ماکرو دارم که تاریخ آخرین تغییرات هر ردیف را در سلول تعیین شده ذخیره میکنه
    این دستور فقط روی یک شیت قابل اجراست و می خواستم بدونم چجوری میتونم اون رو برای چندین شیت معین اجرا کنم که نیازی به نوشتن این ماکرو برای هر شیت نباشه
    مثلاٌ دستور ماکرو که در پائین نوشتم را برای شیت های 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
    برای اینکه به پاسخ نهایی برسیم نیاز به فایل هستش.مسلما این کار نیاز به یک حلقه خواهد داشت.
    در ضمن از متغیری(Value) که اکسل از آن به عنوان کد استفاده میکند استفاده نکنید.این کار هم برای شخص گمراه کننده خواهد بود و هم ممکن است مشکلاتی را در اجرای برنامه یا محاسبه صحیح عملیات بوجود آورد.
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/




  4. #3


    آخرین بازدید
    2014/10/31
    تاریخ عضویت
    October 2014
    نوشته ها
    8
    امتیاز
    11
    سپاس
    1
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    سلامی دوباره
    لینک فایل پیوستی نمونه ای است که در این مورد ساختم

    AutoInsertLastUpdateDate


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. کمک به برنامه نویسی
    توسط mahdi69112 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2013/04/08, 02:15
  2. فرمول آدرس نویسی
    توسط khorasan66 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2013/01/30, 11:45
  3. فرمول نویسی
    توسط mehdi_201127 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/10/02, 15:12
  4. کد نویسی تکس باکس
    توسط morteza2006 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2011/06/03, 11:50

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد