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

موضوع: تقاضایی راهنمایی در مورد ماکرونویسی

  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

    لینک فایل نمونه:
    AutoInsertLastUpdateDate
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    سلام
    می تونید این کد رو توی یک ماژول بنویسید و در
    کد:
    Private Sub Worksheet_Change(ByVal Target As Range)
    اون ماکرو رو فراخوانی کنید. اصطلاحا call کنید

  4. سپاس ها (2)


  5. #3


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

    روش call رو بلد نیستم ، ولی پیدا کرده و تست میکنم
    با این دستور چه اتفاقی میافته و مهمتر اینکه کجا باید اسم شیت هایی رو که میخوام تعیین کنم؟

  6. #4


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    توی هر شیت باید این کد رو بنویسید
    هر شیت یک Private Sub Worksheet_Change(ByVal Target As Range) داره
    پس برای هر شیت اینو می نویسید
    به عبارتی:
    کد:
    
    Private Sub Worksheet_Change(ByVal Target As Range)
    call macro1
    end sub
    


  7. #5


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    ظاهرا پاسخ اين سوال داده شده.
    تاپيك حل شد

  8. سپاس ها (1)



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

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

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

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

  1. کمک و راهنمایی درخصوص فرمول نویسی
    توسط amirj_ir در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 5
    آخرين نوشته: 2014/10/30, 03:34
  2. راهنمایی
    توسط iceberg در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2013/04/09, 17:27
  3. راهنمایی برای ساختن یه اکسل برای راس گیری چک
    توسط master در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 4
    آخرين نوشته: 2011/09/27, 23:04
  4. فرمول نویسی برای سلولهایی که دارای تاریخ هستند ؟
    توسط farzin24622 در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 1
    آخرين نوشته: 2011/03/09, 11:56

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

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

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

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

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

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