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

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

  1. #1


    آخرین بازدید
    2024/01/21
    تاریخ عضویت
    November 2013
    محل سکونت
    تهران
    نوشته ها
    1,519
    امتیاز
    6121
    سپاس
    2,884
    سپاس شده
    4,889 در 1,381 پست
    سطح اکسل
    71.67 %

    يکتا سازي آيتم هاي بار شده در 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
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

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

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

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

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

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