نمایش نتایج: از شماره 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
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    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,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    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
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

    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 غیر فعال است
با ما در تماس باشيد