پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 4 , از مجموع 4

موضوع: استفاده از حلقه for

  1. #1


    آخرین بازدید
    2012/12/06
    تاریخ عضویت
    September 2012
    نوشته ها
    5
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    استفاده از حلقه for

    با سلام من مي خواهم يك حلقه for داشته باشم كه با زدن يك دكمه چند شيت پر شود براي اضافه شدن شماره شيت به مشكل مي خورم مثلا شيت شماره يك پر مي شود ولي وقتي بدهم sheet i . celse(i,j كمپايلر ايراد ميگيرد يعني شيت ايم را نمي شناسد لطفا راهنمايي نماييد
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام

    RE: استفاده از حلقه for

    با سلام دوست عزیز از کد زیر کمک بگیرید

    کد PHP:
    Sub Button1_Click()
    Dim SH As Worksheet

    For Each SH In Application.Worksheets
    SH
    .Activate
    For Each A In SH.Range("A1:A10")
    A.Value "123"
    Next

    Next

    End Sub 

  4. #3


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام

    RE: استفاده از حلقه for

    نقل قول نوشته اصلی توسط rezahagh
    با سلام من مي خواهم يك حلقه for داشته باشم كه با زدن يك دكمه چند شيت پر شود براي اضافه شدن شماره شيت به مشكل مي خورم مثلا شيت شماره يك پر مي شود ولي وقتي بدهم sheet i . celse(i,j كمپايلر ايراد ميگيرد يعني شيت ايم را نمي شناسد لطفا راهنمايي نماييد
    اگه همون جور كه در بالا نوشتين در كد هم استفاده كردين ،بايد بگم كه اشتباه تايپ كردين.به صورت زير بنويسيد(البته اگر جاي ديگه اي هم اشتباه نباشه):
    sheets(i).cells(i,j

  5. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    942
    امتیاز
    727
    سپاس
    29
    سپاس شده
    872 در 366 پست
    تعیین سطح نشده است

    shamsololama به Yahoo ارسال پیام

    RE: استفاده از حلقه for

    بادرود فراوان

    بله همانطور دوست عزیزم آقا جاوید فرمودن برای استفاده i را داخل پرانتز بگذارید ولی اگر اسم شیتهای شما 1 و 2 و 3 ... باشد ولی اگر نام شیت های شما sheet1 و sheet2 و ... باشد می توانی از همون دستور به این ترتیب استفاده کنی

    کد:
    For i = 1 To 3
    Sheets("sheet" & i).Select
    Next

    کد:
    1-
    
    [Sheets("sheet" & i).Select
    
    2-
    
    [Sheets( i).Select
    در دو کد بالا که هر دو اجرا شده و مشکلی ندارند یک تفاوت وجود دارد که در کد اول بر اساس نام شیتها یعنی شیت یک و شیت دو و .... عمل کرده و کاری به ترتیب و جای قرار گرفتن انها ندارد مثلا اگر شیت یک بعد از شیت دو هم قرار گرفته باشد در هر صورت شیت یک را اول انتخاب میکند
    ولی در کد دوم که در پرانتز فقط i قرار دارد در یانجا کد کاری به نام شیت ها ندارد و بر حسب ترتیب قرار گرفتن شیتها آنها را انتخاب میکند یعنی وقتی آی برابر با یک هست اولین شیت را انتخاب میکند حتی اگر نام آن شیت sheet3 باشد
    [/code]


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

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

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

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

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

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

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

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