پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: کاربرد exit sub

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    November_2013
    محل سکونت
    تهران
    نوشته ها
    1,447
    امتیاز
    5847
    سپاس
    2,881
    سپاس شده
    4,614 در 1,291 پست

    کاربرد exit sub

    سلام دوستان،
    ببينيد عرايض بنده صحيح است:
    کاربرد EXIT SUB توقف يک عمليات مي باشد، به عنوان مثال من کد زير را براي ورود اطلاعات توسط فرم در خانه A1 تا A10 نوشتم:
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim C As Range
    For Each C In Range("A1:A10")
    If 
    "" Then
    TextBox1.Text
    End 
    If
    Next
    End Sub 
    کد فوق تمام ده خانه مورد نظر را با مقدار تکست باکس يک پر مي کند (اگر خالي باشند)
    حال اگر بخواهم اولين خانه خاي را که پر شد عمليات متوقف شود يک EXIT SUB به صورت زير اضافه مي کنم:
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim C As Range
    For Each C In Range("A1:A10")
    If 
    "" Then
    TextBox1.Text
    Exit Sub
    End 
    If
    Next
    End Sub 
    يک نکته هم اين است که: بسته به جايي که EXIT SUB وارد مي شود، همان عملياتي که در جريان است متوقف مي گردد، مثلا" اگر من EXIT SUB را يک خط پايينتر بنويسم (مثل زير):
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim C As Range
    For Each C In Range("A1:A10")
    If 
    "" Then
    TextBox1.Text
    End 
    If
    Exit 
    Sub
    Next
    End Sub 
    در اين صورت فقط خانه A1 مورد بررسي قرار مي گيرد.
    به عبارت ديگر کد دومي و سومي من يکي حلقه FOR را متوقف مي کند و آن يکي IF را متوقف مي کند.
    اگر عرايض بنده صحيح باشد مي توان گفت که بيشتر کاربرد EXIT SUB در مورد حلقه ها مي باشد. صحيح است؟


  2.  

  3. #2


    آخرین بازدید
    08 _ 11 _ 2017
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,179
    امتیاز
    3103
    سپاس
    1,562
    سپاس شده
    3,037 در 763 پست

    خوب با درود
    با توجه به گفته هاتون میشه گفت حلقه . اما جاهای دیگهه هم میشه کار برد داشته باشه توی یه if یا توی عدم اجرای یه فرم . اگر فلان شرط نبود اجرا نشو کلا. یا اگر اروری یافتی یه ارور خاص تو هندل کردن ارور Exit Sub شو . ولی در کل اره . به جای Exit Sub هم تو For برو سراغExit For . این Exit Sub کل Sub رو بر میداره
    در پناه خداوندگار ایران زمین باشید و پیروز



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

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

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

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

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

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

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

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