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

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

  1. #1


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    کاربرد 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


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

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



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

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

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

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

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

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

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

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

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