[حل شده] نمایش داده های یونیک در لیست باکس

[sohrabahmadi]

با سلام خدمت اساتید.تو یکی از پست ها فایلی بود که اعداد یونیک رو نمایش میداد .منتها مشکلی که بود فقط ردیف اول رو نمایش میده .راهکاری هست که بشه 4 یا 5 ردیف رو نشون بده؟البته با روشهای دیگه میشه ولی با فرمولی که تو این فایل هست یه کم پیچیده است.ممنون میشم راهنمایی بفرمایید.

[hadi1980]

سلام
سوالتان واضح نيست
الان که داره همه رديفها (البته ستون اول) رو در ليست باکس نشون ميده
منظورتون از اينکه 4 يا 5 رديف رو نشون بده 4 يا 5 ستون هست؟
و اينکه چجوري نشون بده يعني تو ليست باکس چند تا ستون داشته باشه که به ازاي هر ستون اکسل پر بشه حالا هرکدوم تعداد رديف کمتري داشت کمتر پر بشه مثلا
ضمنا اين برنامه خيلي ساده است
داخلش اينجوريه
اول مياد listUnique رو با يه تابع ساده CStr (که اعداد رو به متن تبديل ميکنه) پر ميکنه و هنر اين تبديل اينه که ديگه تکراريها توي اون چيده نميشن
بعدش خيلي راحت مياد ليست باکس رو با اونها پر ميکنه
به همين سادگي
موفق باشيد
هادي

[sohrabahmadi]

سلام
سوالتان واضح نيست
الان که داره همه رديفها (البته ستون اول) رو در ليست باکس نشون ميده
منظورتون از اينکه 4 يا 5 رديف رو نشون بده 4 يا 5 ستون هست؟
و اينکه چجوري نشون بده يعني تو ليست باکس چند تا ستون داشته باشه که به ازاي هر ستون اکسل پر بشه حالا هرکدوم تعداد رديف کمتري داشت کمتر پر بشه مثلا
ضمنا اين برنامه خيلي ساده است
داخلش اينجوريه
اول مياد listUnique رو با يه تابع ساده CStr (که اعداد رو به متن تبديل ميکنه) پر ميکنه و هنر اين تبديل اينه که ديگه تکراريها توي اون چيده نميشن
بعدش خيلي راحت مياد ليست باکس رو با اونها پر ميکنه
به همين سادگي
موفق باشيد
هادي

سلام بله من منظورم نمایش همه ستونها بودش این فرمول فقط ستون 1 رو نمایش میده .ممنون میشم راهنمایی بفرمائید

[M_ExceL]

با سلام خدمت اساتید.تو یکی از پست ها فایلی بود که اعداد یونیک رو نمایش میداد .منتها مشکلی که بود فقط ردیف اول رو نمایش میده .راهکاری هست که بشه 4 یا 5 ردیف رو نشون بده؟البته با روشهای دیگه میشه ولی با فرمولی که تو این فایل هست یه کم پیچیده است.ممنون میشم راهنمایی بفرمایید.

سلام
کد زیر رو جایگزین کرده سپس چک کنید :

Private Sub UserForm_Initialize()
On Error Resume Next
Dim listUnique(1 To 4) As New Collection
Dim sd(1 To 4)
sd(1) = Application.WorksheetFunction.CountA(Columns(1))
sd(2) = Application.WorksheetFunction.CountA(Columns(2))
sd(3) = Application.WorksheetFunction.CountA(Columns(3))
sd(4) = Application.WorksheetFunction.CountA(Columns(4))
maxsd = Application.WorksheetFunction.Max(sd())
For r = 1 To 4
Set rng1 = Sheets("A").Range(Cells(1, r), Cells(200, r))
For Each cell In rng1
listUnique(r).Add cell, CStr(cell)
Next
For s = 1 To 5
For y = 1 To maxsd
ListBox1.ColumnCount = 4
ListBox1.AddItem
v = Cells(y, s).Row
ListBox1.list(v - 1, r - 1) = listUnique(r).Item(y)
Next y
Next s
Next r
End Sub

یا حق.

[sohrabahmadi]

سلام و سپاس از شما بله جواب داد.ممنون از لطف شما