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

موضوع: کار نکردن شرط if در یک حلقه

  1. #1


    آخرین بازدید
    2014/07/04
    تاریخ عضویت
    February 2014
    محل سکونت
    بجنورد - مشهد
    نوشته ها
    38
    امتیاز
    33
    سپاس
    28
    سپاس شده
    23 در 14 پست
    تعیین سطح نشده است

    confused کار نکردن شرط if در یک حلقه

    سلام دوستان توی شیت 1 و ستون a حدود 200 رکورد دارم که شماره خودرو هستند و به ازای هر کد خودرویی که در شیت 1 هست یک شیت همنام با کد خودرو ایجاد شده خب توی فرمم یک تکس باکس گذاشتم که اگر هر کد خودرویی وارد کرد اگر وجود داشت اون شیت مورد نظر انتخاب بشه اگر نبود پیغام بده این خودرو در لیست نیست ولی نمیدونم اشکال کدی که نوشتم چیه که قبول نمیکنه یهنی در هر دو صورت شرط میگه خودرو در لیست وجود ندارد

    کد:
    Dim c As Range
            For Each c In Sheet1.Range("a1:a198").Value
                If TextBox1.Text = c.Value Then
                    Sheets(TextBox1.Text).Select
                        Else
                        MsgBox "Çíä ÇÊæÈæÓ ÏÑ áíÓÊ æÌæÏ äÏÇÑÏ"
                        Exit Sub
                End If
            Next
    اینم لینک دانلود فایلمه که آپلود کردم (بعد کلیک چند ثانیه طول میکشه و اتومات دانلود میشه فایلم) نمیدونم چرا مدیرای عزیز فکری برای این مشکل آپ کردن فایل ها اینجا نمیکنن
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (2)


  3.  

  4. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    مشکل پیوست رو مطرح کنید تا رسیدگی بشه

    موارد فنی سایت - صفحه 10



  5. سپاس ها (3)


  6. #3


    آخرین بازدید
    2014/07/04
    تاریخ عضویت
    February 2014
    محل سکونت
    بجنورد - مشهد
    نوشته ها
    38
    امتیاز
    33
    سپاس
    28
    سپاس شده
    23 در 14 پست
    تعیین سطح نشده است

    مشکلم رو راهنمایی نکردید کجای کار اشتباهه من هنوز به نتیجه نرسیدم

  7. سپاس ها (1)


  8. #4


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

    نقل قول نوشته اصلی توسط امیر رضا نمایش پست ها
    مشکلم رو راهنمایی نکردید کجای کار اشتباهه من هنوز به نتیجه نرسیدم

    شما اين رو امتحان كن:

    کد:
    Dim c As Range
    dim i=0
            For Each c In Sheet1.Range("a1:a198").Value
                If TextBox1.Text = c.Value Then
                    Sheets(TextBox1.Text).Select
    		Exit Sub
                 Else
                     i=i+1
                End If
            Next
    if i==198 then
    MsgBox "Çíä ÇÊæÈæÓ ÏÑ áíÓÊ æÌæÏ äÏÇÑÏ"
    end if

  9. سپاس ها (3)


  10. #5


    آخرین بازدید
    2024/02/18
    تاریخ عضویت
    February 2014
    محل سکونت
    تهران
    نوشته ها
    523
    امتیاز
    1130
    سپاس
    2,816
    سپاس شده
    1,050 در 348 پست
    سطح اکسل
    51.00 %

    علی فاطمی به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امیر رضا نمایش پست ها
    سلام دوستان توی شیت 1 و ستون a حدود 200 رکورد دارم که شماره خودرو هستند و به ازای هر کد خودرویی که در شیت 1 هست یک شیت همنام با کد خودرو ایجاد شده خب توی فرمم یک تکس باکس گذاشتم که اگر هر کد خودرویی وارد کرد اگر وجود داشت اون شیت مورد نظر انتخاب بشه اگر نبود پیغام بده این خودرو در لیست نیست ولی نمیدونم اشکال کدی که نوشتم چیه که قبول نمیکنه یهنی در هر دو صورت شرط میگه خودرو در لیست وجود ندارد

    کد:
    Dim c As Range
            For Each c In Sheet1.Range("a1:a198").Value
                If TextBox1.Text = c.Value Then
                    Sheets(TextBox1.Text).Select
                        Else
                        MsgBox "Çíä ÇÊæÈæÓ ÏÑ áíÓÊ æÌæÏ äÏÇÑÏ"
                        Exit Sub
                End If
            Next
    اینم لینک دانلود فایلمه که آپلود کردم (بعد کلیک چند ثانیه طول میکشه و اتومات دانلود میشه فایلم) نمیدونم چرا مدیرای عزیز فکری برای این مشکل آپ کردن فایل ها اینجا نمیکنن
    با سلام من فایل شما رو نتونستم دانلود کنم.
    مشکل کد شما اینه که تو خود حلقه یه شرط عدم تایید دارید یعنی اگر درست نبود بذو مسیج باکس رو باز کن . خوب اون هر بار که شما بهش کد میدین میره کد شما رو با اولین سلول a1 مقایسه می کنه اگر باشه میاره ولی اگر نباشه میگه وجود نداره و اصلا سراغ بقیه سلولها نمیره.
    فایل پیوست رو یه نگاه بنداز شاید بدردت بخوره.
    فايل هاي پيوست شده فايل هاي پيوست شده


  11. #6
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امیر رضا نمایش پست ها
    سلام دوستان توی شیت 1 و ستون a حدود 200 رکورد دارم که شماره خودرو هستند و به ازای هر کد خودرویی که در شیت 1 هست یک شیت همنام با کد خودرو ایجاد شده خب توی فرمم یک تکس باکس گذاشتم که اگر هر کد خودرویی وارد کرد اگر وجود داشت اون شیت مورد نظر انتخاب بشه اگر نبود پیغام بده این خودرو در لیست نیست ولی نمیدونم اشکال کدی که نوشتم چیه که قبول نمیکنه یهنی در هر دو صورت شرط میگه خودرو در لیست وجود ندارد

    کد:
    Dim c As Range
            For Each c In Sheet1.Range("a1:a198").Value
                If TextBox1.Text = c.Value Then
                    Sheets(TextBox1.Text).Select
                        Else
                        MsgBox "Çíä ÇÊæÈæÓ ÏÑ áíÓÊ æÌæÏ äÏÇÑÏ"
                        Exit Sub
                End If
            Next
    اینم لینک دانلود فایلمه که آپلود کردم (بعد کلیک چند ثانیه طول میکشه و اتومات دانلود میشه فایلم) نمیدونم چرا مدیرای عزیز فکری برای این مشکل آپ کردن فایل ها اینجا نمیکنن
    دوست عزیز فایلتونا دانلود کردم و لی رمز عبور می خواد واسه باز کردنش


  12. سپاس ها (1)


  13. #7


    آخرین بازدید
    2014/07/04
    تاریخ عضویت
    February 2014
    محل سکونت
    بجنورد - مشهد
    نوشته ها
    38
    امتیاز
    33
    سپاس
    28
    سپاس شده
    23 در 14 پست
    تعیین سطح نشده است

    3121908

  14. سپاس ها (1)


  15. #8


    آخرین بازدید
    2014/07/04
    تاریخ عضویت
    February 2014
    محل سکونت
    بجنورد - مشهد
    نوشته ها
    38
    امتیاز
    33
    سپاس
    28
    سپاس شده
    23 در 14 پست
    تعیین سطح نشده است

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

  16. سپاس ها (1)



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

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

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

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

جلقه for و شرط if

حلقه ifدر اکسل

حلقه if در excel

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

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

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

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