کمک: جلوگیری از نمایش اطلاعات تکراری در لیست باکس

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • Nima

    • July 2011
    • 385

    کمک: جلوگیری از نمایش اطلاعات تکراری در لیست باکس

    با سلام تو فایل نمونه یه سری اطلاعات هست که می خوایم تو یه لیست باکس تو یوزر فرم اونارو نمایش بدیم اما می خوایم بر اساس ستون name سورت بشن یعنی ردیفهایی که اسمشون تکراریه نشون داده نشه.

    http://s1.picofile.com/file/7558016127/Excel_table_List_box.xlsm.html
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************

  • s.cheraghi

    • February 2011
    • 311

    #2
    RE: کمک: نمایش اطلاعات غیر تکراری در لیست باکس

    سلام
    یکم سوالتون کاملتر بگین
    اگه میخواین که لیست نام ها بدون تکرار در لیست باکس قرار بگیرند بهتره قبل از اضافه شدن به لیست باکس با استفاده از Advance filter قسمت های تکراری رو جدا کنید و بعد به لیست اضافه کنیدشون
    کد مربوط به جداکردن مقادیر غیر تکراری:
    کد PHP:
    Range("B5:B12").AdvancedFilter Action:=xlFilterCopyCopyToRange:=Range("I6:I12"), Unique:=True 
    در یادگیری سیر نشوید

    برای ارتباط بیشتر به سایت ExcelPedia سربزنید.
    برگزاری دوره های آموزش اکسل در تهران
    آموزش توابع اکسل

    Comment

    • sohrabahmadi

      • May 2012
      • 142

      #3
      RE: کمک: نمایش اطلاعات غیر تکراری در لیست باکس

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

      Comment

      • Nima

        • July 2011
        • 385

        #4
        RE: کمک: نمایش اطلاعات غیر تکراری در لیست باکس

        نوشته اصلی توسط s.cheraghi
        سلام
        یکم سوالتون کاملتر بگین
        اگه میخواین که لیست نام ها بدون تکرار در لیست باکس قرار بگیرند بهتره قبل از اضافه شدن به لیست باکس با استفاده از Advance filter قسمت های تکراری رو جدا کنید و بعد به لیست اضافه کنیدشون
        کد مربوط به جداکردن مقادیر غیر تکراری:
        کد PHP:
        Range("B5:B12").AdvancedFilter Action:=xlFilterCopyCopyToRange:=Range("I6:I12"), Unique:=True 
        با تشکر از شما

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

        یه نمونه کد دارم که کارم میکنه ولی فقط ستون اول رو تو لیست باکس نشوون میده من می خوام تمام ستونها رو نمایش بده:

        کد PHP:
        Private Sub UserForm_Initialize()
            
        Dim col As New Collection
            Dim r 
        As Long
            Dim m 
        As Long
            m 
        Range("A" Rows.Count).End(xlUp).Row
            On Error Resume Next
            
        For 2 To m
                col
        .Add Item:=Range("A" r).ValueKey:=CStr(Range("A" r).Value)
            
        Next r
            
        For 1 To col.Count
                Me
        .ListBox1.AddItem col(r)
            
        Next r
        End Sub 
        ************************************
        No LION's roar ruins my hut, I afraid of TERMITE's silence
        ************************************

        Comment

        Working...