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

موضوع: پیمایش شیت ها

  1. #1


    آخرین بازدید
    20 _ 01 _ 2017
    تاریخ عضویت
    October_2011
    محل سکونت
    Sheet1!A1
    نوشته ها
    4,144
    امتیاز
    11553
    سپاس
    4,456
    سپاس شده
    10,935 در 2,943 پست

    پیمایش شیت ها

    با سلام
    در ارتباط با سوالی در مورد ایجاد حلقه برای شیت ها خدمت دوستان باید بگم برای پیمایش بر روی شیت ها میشه از دو راه استفاده کرد ، فرض کنید برای اضافه کردن نام شیت ها به یک combobox چطور میشه عمل کرد؟دو نوع حلقه for و for each میشه استفاده کرد که میتونید این دو راه رو از طریق کد های زیر امتحان کنید:
    [align=left]
    کد PHP:
    Private Sub UserForm_initialize()
    Dim i As Integer
    For 1 To Sheets.Count
    ComboBox1
    .AddItem Sheets(i).Name
    Next i
    End Sub 
    [/align]

    [align=left]
    کد PHP:
    Private Sub UserForm_initialize()
    Dim shname As Object
    For Each shname In Sheets
    ComboBox1
    .AddItem shname.Name
    Next shname
    End Sub 
    [/align]
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    33 دقیقه پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,103
    امتیاز
    2404
    سپاس
    1,372
    سپاس شده
    1,874 در 577 پست

    jansiz hayat به Yahoo ارسال پیام

    RE: پیمایش شیت ها

    با سلام.
    خب،روش های زیادی میشه به کار برد.مثل روش زیر:
    [align=left]
    کد PHP:
    ComboBox1.Clear
    1
    Do While Application.Sheets.Count <> 1
    ComboBox1
    .AddItem Sheets(i).Name
        i 
    1
    Loop 
    [/align]


    اما روش هایی که آقای وطن پرست گفتن آسانتر و معمول تر هستش.

  4. سپاس ها (1)



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

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

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

موضوعات مشابه

  1. درست کردن نوار پیمایش در یوزر فرم
    توسط مینو در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 21 _ 01 _ 2013, 14:37
  2. محاسبه حقوق ماهیانه و حق مسکن
    توسط mr.excel در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 9
    آخرين نوشته: 28 _ 07 _ 2012, 17:42
  3. خلاصه کردن پیکره دستور if با استفاده از IIF
    توسط komeilex در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 14 _ 07 _ 2012, 10:22

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

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

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

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