صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: کمبو باکس بدون تکرار

  1. #1


    آخرین بازدید
    2015/10/20
    تاریخ عضویت
    December 2011
    نوشته ها
    272
    امتیاز
    251
    سپاس
    216
    سپاس شده
    231 در 76 پست
    تعیین سطح نشده است

    کمبو باکس بدون تکرار

    سلام به دوستای عزیز
    من یه ستون از داده ها دارم که توش داده های تکراری هس تو محیط اکسل نمیخوام داده ها یونیک بشن می خوام یه فرم بسازم با یه کمبو باکس که از طریق کد نویسی داده های تکراری تشخیص داده بشه و لیستی که نشون داده میشه یونیک باشه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: کمبو باکس بدون تکرار

    سلام
    شما باید داده ها رو تو یه ارایه بریزی بعد با دوتا متغیر تو حلقه forاونهارو مقایسه کنی و غیر تکراری هارو تو یه ارایه دیگه ذخیره کنی بعد این ارایه رو به کمبو باکس اضافه کنی

  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

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

    RE: کمبو باکس بدون تکرار


  7. سپاس ها (1)


  8. #4


    آخرین بازدید
    2021/12/05
    تاریخ عضویت
    February 2010
    محل سکونت
    بوشهر
    نوشته ها
    940
    امتیاز
    718
    سپاس
    29
    سپاس شده
    863 در 365 پست
    تعیین سطح نشده است

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

    RE: کمبو باکس بدون تکرار

    نقل قول نوشته اصلی توسط mahasa shayesteh
    سلام به دوستای عزیز
    من یه ستون از داده ها دارم که توش داده های تکراری هس تو محیط اکسل نمیخوام داده ها یونیک بشن می خوام یه فرم بسازم با یه کمبو باکس که از طریق کد نویسی داده های تکراری تشخیص داده بشه و لیستی که نشون داده میشه یونیک باشه
    با درود فراوان

    با تشکر از دوست خوبم jansiz hayat ازجواب خوب و کاملشون
    این هم یک نمونه برای حذف تکراری از کمبو باکس


    Private Sub UserForm_Initialize()
    Dim n
    Dim c As Range
    Dim i As Integer
    ComboBox1.AddItem Sheet1.Range("A1").Value
    For Each c In Sheet1.Range("A1:A1000")

    n = fals
    If c.Value <> "" Then
    For i = 0 To ComboBox1.ListCount - 1

    If ComboBox1.List(i, 0) = c.Text Then
    ' MsgBox (ComboBox1.List(i, 0)) & "-" & c.Value
    n = True
    GoTo point1:
    End If
    Next i
    If n = flase Then
    ComboBox1.AddItem c.Value
    End If
    End If
    point1:
    Next c
    End Sub



    فایل نمونه:
    [attachment=484]
    فايل هاي پيوست شده فايل هاي پيوست شده

  9. سپاس ها (2)


  10. #5


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: کمبو باکس بدون تکرار

    با سلام
    روشی که تو فایل ضمیمه آوردم هم روش خوبیه
    فايل هاي پيوست شده فايل هاي پيوست شده

  11. سپاس ها (1)


  12. #6


    آخرین بازدید
    2015/10/20
    تاریخ عضویت
    December 2011
    نوشته ها
    272
    امتیاز
    251
    سپاس
    216
    سپاس شده
    231 در 76 پست
    تعیین سطح نشده است

    RE: کمبو باکس بدون تکرار

    سلام
    ممنون از جوابای متنوعی که دوستان دادن ولی جواب آقای وطن پرست رو اصلا نفهمیدم میشه توضیح بدید

  13. #7


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    RE: کمبو باکس بدون تکرار

    تو این روش برای جلوگیری از اشغال بی مورد حافظه ابتدا آدرس آخرین ردیف استفاده شده رو پیدا میکنیم بعد بر اساس اون محدوده مورد نظر در قالب range1 تعریف میشه (از طریق set ) شیء collection این امکان رو میده مجموعه ای از ایتم ها به صورت واحد در بیان یعنی تو یک گروه قرار بگیرن هر کالکشن دو خصوصیت ایتم و کلید داره هر مقدار تو محدوده به عنوان کلید تعریف میشه این کلید ها باید منحصر به فرد باشن اگه نباشن error 457 به وجود میاد با شرط قرار دادن این ارور تکراری ها به کمبوباکس اضافه نمیشن (البته من این بخش یعنی حلقه foreach رو از یه برنامه دیگه استفاده کردم که کار خودم نبوده توضیحاتم برداشت خودم از روش بود اگه اساتید محترم هم نظر بدن ممنون میشم)

  14. #8


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

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

    RE: کمبو باکس بدون تکرار

    با سلام.
    با تشکر از دوست زحمتکشمون آقای وطن پرست.این خیلی خوبه که برای یک سئوال ایده های دیگری هم قرار دهیم.و به خومون نگیم که «چون یکی از دوستان جواب داده دیگه نیازی نیست که من جواب بدم».و این کار آقای وطن پرست قابل تقدیر است که باعث میشه با ایده های مختلفی روبرو شویم.

    آقای وطن پرست،لازم نمیدونم ذره بینی به مسئله نگاه کنیم اما اگه قسمت IFرو به صورت زیر بنویسید بهتره.چون اگه بین داده ها سطر خالی باشه،اون سطر خالی رو هم به Combobox اضافه میکنه:

    If Err.Number <> 457 And cell.Value <> "" Then

  15. سپاس ها (1)


  16. #9


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    RE: کمبو باکس بدون تکرار

    نقل قول نوشته اصلی توسط vatanparast
    با سلام
    روشی که تو فایل ضمیمه آوردم هم روش خوبیه
    با سلام خدمت اقای وطن پرست عزیز

    من از این کدی که شما گذاشتین استفاده کردم ولی وقتی که تعداد ردیفهای ما زیاد باشه زمان لود شدن فرم خیلی زیاد طول می کشه

    مثلا من برای یه فایلی که 25000 تا ردیف داره تست کردم 21 ثانیه طول میکشه تا فرم لود بشه

    راهی هست که این زمان کم بشه

    با تشکر

  17. سپاس ها (1)


  18. #10


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    RE: کمبو باکس بدون تکرار

    ... Any new updates

  19. سپاس ها (2)



صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

کمبو باکس در VBA

کومبو باکس با مقادیر تکراری اکسس

لیست کردن محدوده غیر تکراری در کامبوباکس

مقادیر غیرتکراری برای کومبوباکس

کد نویسی کمبوبکس بدون تکرار

آموزش کد نویسی کامبو باکس

بررسی تکراری نبودن ایتم های کمبوباکس

عدم تکرار داده ها در کمبوباکس

کمبو باکس در فرم اکسس حذف تکراری

ایجاد کمبو باکس شهرستان و استان در اکسس

نحوه ایجاد کمبو باکس در اکسس استان و شهر

اضافه اردن ایتم به کامبو باکس با کد نویسی

کمبو باکس استان و شهرستان در اکسس

فرستادن ado به combo box بدون آیتم تکراری

عدم‌نمایش رکور تکراری در combabox در سی سارپ

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

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

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