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

موضوع: يکتا سازي آيتم هاي بار شده در combobox

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    November_2013
    محل سکونت
    تهران
    نوشته ها
    1,447
    امتیاز
    5847
    سپاس
    2,881
    سپاس شده
    4,614 در 1,291 پست

    يکتا سازي آيتم هاي بار شده در combobox

    بوسيله کد زير مي توان آيتم هاي تکراري بارگيري شده در يک combobox را حذف نمود.
    ازآنجايي که شماره سطرهاي combobox ها از 0 شروع مي شود و ضمنا" با توجه به اينکه پس از حذف يک آيتم تکراري، شماره سطرهاي بقيه آيتم ها تغيير يافته و جابجا مي گردد، لذا نوشتن کدهايي از اين قبيل کمي به دقت نياز دارد:

    کد PHP:
    Dim C As Integer
    Dim D 
    As Integer
    For 0 To ComboBox1.ListCount 2
    1
    Do While ComboBox1.ListCount
    If ComboBox1.List(C0) = ComboBox1.List(D0Then
    ComboBox1
    .RemoveItem (D)
    1
    End 
    If
    1
    Loop
    Next C 

  2. سپاس ها (2)


  3.  

  4. #2


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September_2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    3,048
    امتیاز
    9051
    سپاس
    5,989
    سپاس شده
    7,387 در 2,451 پست

    با تشکر از جناب پارسایی عزیز
    جهت تکمیل تاپیک یک روش دیگه هم خدمت دوستان ارائه میکنم
    در این روش از متغیر collection استفاده شده. در لیست های طولانی میتونه یکم سریعتر از کد پست قبل عمل بکنه

    کد:
    Dim col As New Collection
    On Error Resume Next
    For Each lst In ComboBox1.List
        col.Add lst, CStr(lst)
    Next lst
    ComboBox1.RowSource = ""
    For Each a In col
       ComboBox1.AddItem a
    Next a

  5. سپاس ها (2)



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

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

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

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

  1. نمايش مقادير در رسم نمودار لگاريتمي
    توسط mohammadm در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 1
    آخرين نوشته: 15 _ 04 _ 2017, 17:35
  2. [حل شده] فراخواني ايتم هاي مربوط به كد
    توسط mostafa_s در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 21 _ 02 _ 2016, 15:24
  3. مشكل من : نحوه حذف كردن شيتهاي اضافي با كد vb
    توسط misammisam در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 18 _ 04 _ 2014, 06:45
  4. بازي Zumi - مال بچه هاست شما بازي نكنين :دي (swf)
    توسط Amir Ghasemiyan در انجمن بازی های اکسلی - Excel Games
    پاسخ ها: 2
    آخرين نوشته: 25 _ 01 _ 2014, 23:13
  5. صفحه بندي صحيح شيتها در FOOTER
    توسط hamidreza313 در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 2
    آخرين نوشته: 26 _ 02 _ 2013, 18:37

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

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

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

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