آموزش فیلتر داده ها بر مبنای چند محدودیت اختیاری و نمایش در لیست باکس

[javad_khosravi]

با سلام

راه اول با استفاده از Advance fillter یک لیست بدون تکرار از لیست خود ایجاد کنید و سپس آنها را به کمبوباکس ارتباط دهید

Private Sub UserForm_Initialize()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
    Application.CutCopyMode = False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Range("A1:A" & Z1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "B1"), Unique:=True
        
        Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
        
        For I = 2 To Z2
        
        ComboBox1.AddItem Range("B" & I)
        
        Next

End Sub 

راه دوم با استفاده از Collection یک لیست بدون تکرار و خالی در حافظه ایجاد کنید و سپس به کمبوباکس ارتباط دهید

ببخشید واسه این فایل پیوست میشه اینکارو بکنید ممنون میشم.

[javad_khosravi]

اینم فایل

[iranweld]

کمبوباکس های شما با کدوم آیتمها باید پر بشه؟
حداقل روی سرستونها نام آیتم مورد نظر رو بنویسید که مشخص بشه کمبوباکس ها از کجا باید دیتاشون بگیرند

[javad_khosravi]

[QUOTE=iranweld;52153]کمبوباکس های شما با کدوم آیتمها باید پر بشه؟
حداقل روی سرستونها نام آیتم مورد نظر رو بنویسید که مشخص بشه کمبوباکس ها از کجا باید دیتاشون بگیرن


مرسی و ممنون . اسم هر کمبو باکس مربوط به ستونش رو تو این فایل نوشتم.

[iranweld]

فایل پیوست را بررسی بفرمایید

مقدار دهی شما در کمبوباکس های مورد نظر یکساعتی ما رو سرکار گذاشت

[javad_khosravi]

فایل پیوست را بررسی بفرمایید

مقدار دهی شما در کمبوباکس های مورد نظر یکساعتی ما رو سرکار گذاشت

مرسی ممنون خیلی لطف کردین.

[yasan100]

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

[alireza1350]

سلام به تمامی اساتید محترم

ببخشید نمی دونستم کجا می تمونم سوال خود را مطرح کنم از اینکه اینجا سوال می کنم مرا ببخشید

چندی پیش من از اینترنت نرم افزار مالی تحت اکسلی را گرفتم که کاملا رایگان بود ولی می خواستم تغییراتی در ان انجام دهم که فقط تو یک مورد

به مشکل خوردم و ان هم ناتوانی و کم سوادی بنده در vba بود

حالا اگه زحمتی نیست کمک کنید تا این نرم افزار برای بنده بهینه بشه

سوال در شیت sett همانگونه که می بینید یک سری کد ها و تعاریف جلوی ان قرار گرفته مثلا من می خوام در کد 111 مسافرت و تور بجای 4 کد تعریف

شده 10 کد تعریف کنم یعنی کد اولیه 110 الی 119 و گردش و تفریح و حذف کنم و موارد شخصی از 120 الی 129 تعریف کنم ولی نتونستم لطفا راهنمایی کنید فایل اصلی را هم اینجا می گذارم .

سپاس از همه

[mj1489]

سلام علیکم
من مطابق آموزش های مدیر ارشد ~M*E*H*D*I مرحله به مرحله پیش رفتم ولی وقتی فرم را فراخوانی می کنم و در قسمت نام یا نام خانوادگی اسمی را وارد می کنم ارور میده
لطفا بنده رو راهنمایی نمایید و بفرمایید اشکال کار بنده کجاست
ممنونم
فایل رو هم ضمیمه می کنم

[foad_m]

اگر نام ستون ها فارسی باشد باز هم میشه از این کدها استفاده کرد ؟

[foad_m]

سلام من تو قسمت کد زیر مشکل دارم
.List(I - 1, J - 1) = rsReserve.Fields(J - 1).Value
ستون های من تا S ادامه داره کسی میتونه راهنمایی کنه ؟

[kamranmozafari2]

بسیار عالی

[estineva]

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

ممنون از لطف شما سروران گرامی