اجرا كردن ماكروها بمحض زدن enter بدون استفاده از ميانبرها و يا button ها

[iranweld]

با استفاده از رویدادها محدوده مورد نظر برای ورود دیتا را تعریف نموده و سپس شرط ورود تاریخ شمسی را تعریف مینماید سپس در صورت برقراری شروط ماکروی مورد نظر اجرا گردد.

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1:A100")) Is Nothing Then
    
    On Error Resume Next
    
    If Left(Target, 2) > 13 And InStr(Target, "/") = 5 And InStr(6, Target, "/") = 8 And Len(Target) = 10 Then
   
   'If IsDate(Target) Then
        
    TEST
    
    End If
    
    End If
    
    End Sub 

ماکرو مورد نظر

Sub TEST()

MsgBox "OK"

End Sub 

[mohsenmrds]

باسلام و تشکر از شما دوست عزیز
ممکنه این قسمتها رو برای من توضیح بدین چکار میکنه؟
1- Me.Range
2- If Left(Target, 2) > 13 And InStr(Target, "/") = 5 And InStr(6, Target, "/") = 8 And Len(Target) = 10
3- اعداد 2 و 13 و 5 و 6 و 8 و 10 معرف چی هستن؟
بازم ممنونم.

[iranweld]

مورد اول برای قابلیت رویدادها در اکسل رنجی را تعریف میکنیم که اگر در آن سلولها تغییری در دیتای آنها صورت گرفت آنگاه شرط دوم بررسی شود در شرط دوم چون فرمودید تاریخ شمسی اگر وارد شود بررسی میکنیم که دو رقم ابتدایی آن ۱۳ باشد که فعلا تاریخ شمسی با ان شروع میشود سپس چون سال چهار رقمی است پس از آن علامت / بایستی پنجمین کارکتر باشد و / بعدی باید کارکتر هشتم باشد شرط بعدی هم بایستی تعداد کارکترهای ورودی ۱۰ تا باشد.
چنانچه همه این شروط درست بود سپس ماکرو test اجرا شود

[mohsenmrds]

باتشکر فراوان از توضیحات جامع
یک عدد 6 هم در کد دیده میشه اون معرف چی هست؟
هنوز کد با اون شرایط اجرا نمیشه فایل پیوستی که زحمت کشیدین پیوست کردین هم امتحان کردم اونم اجرا نمیشه ( ماکرو در اکسل رو فعال کردم و ماکروهای دیگر اجرا میشن )
ولی فایل پیوست که زحمت کشیدین فرستادین اجرا نشد( تاریخ با همون فرمت وارد کردم ماکرو ok اجرا نشد و پیام ok نیومد )
باتشکر

[iranweld]

مشکل فایل رفع شد دوباره از پست قبلی دانلود کنید.

در مورد

InStr(6, Target, "/") 

بعد از ششمین کارکتر در یک سلول موقعیت کارکتر "/" را مشخص مینماید

[RezaKasra]

سلام دوستان
خواهشا اگه کسی میتونه کمکم کنه ممنون میشم
یه فایل دارم تو یکی از شیتها روی کامند باتن که کلیک میکنم فرم مربوطه رو نمایش نمیده مشکل کار کجاست . درضمن به فرمت enable macro هم ذخیره کردم . ممنون میشم

[misammisam]

سلام دوستان
خواهشا اگه کسی میتونه کمکم کنه ممنون میشم
یه فایل دارم تو یکی از شیتها روی کامند باتن که کلیک میکنم فرم مربوطه رو نمایش نمیده مشکل کار کجاست . درضمن به فرمت enable macro هم ذخیره کردم . ممنون میشم

سلام
با فرمت XlSX ذخیره کردید که در این صورت تمام کدهای ماروهاتون موقع ذخیره کردن پاک میشه ، باید فایلتونو با پسوند XLSM ذخیره کنید .

[9f8b9bdf@emailn]

سلام
من ماکرو یی میخوام بنویسم که برود اطلاعات شیت را بخواند و اگر مقدار شیت تغییر کرد آن مقدار را در شیت دیگر ثبت کنم باتشکر