[حل شده] درج عنوان سرستون در لیست باکس و فیلتر بر اساس چند تکست باکس

[m.zaeim]

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

[iranweld]

با سلام

در فایل پیوست اول با استفاده از دو Textbox و یک LISTBOX عمل جستجو بر روی کد ملی و نام خانوادگی انجام میگیرد.


در فایل پیوست دوم با استفاده از یک Textbox و یک LISTBOX عمل جستجو بر روی کد ملی و نام خانوادگی انجام میگیرد.

Private Sub UserForm_Initialize()

Dim CELL, rng As Range

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

K1 = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))

Set rng = Sheet1.Range("c2:c" & Z1)

ListBox1.Clear

ListBox1.ColumnCount = K1 + 2

ListBox1.ColumnWidths = "0;160;80;80;100;80;40;20"

For Each CELL In rng

ListBox1.AddItem CELL.Address

For i = 1 To K1
                      
   ListBox1.List(ListBox1.ListCount - 1, i) = Cells(CELL.Row, K1 - i + 1)
    
    Next i

Next CELL

For i = 1 To 6

Me.Controls("Label" & i).Caption = Sheet1.Cells(1, i)

Next


TextBox2.SetFocus

End Sub 

[m.zaeim]

خیلی ممنون بابت پاسخ و فایلهای مفیدی که ارسال کردید.. من میخوام فیلترهای دو تکست باکس به صورت وابسته به هم اجرا بشن ..در فایل اول که فرستادید فیلترها به صورت مستقل از هم اعمال میشن ممنون میشم راهنمایی کنید

[iranweld]

لطفا خواسته خود را با ذکر مثال توضیح دهید

[m.zaeim]

مثلا اگر در تکست باکس نام خانوادگی مقدار b1 و در کد ملی 21 رو وارد کردیم فقط مشخصات ردیف1 رو نمایش بده نه مشخصات 6ردیف رو ..سپاس

[iranweld]

با سلام

در فایل پیوست میتوانید ابتدا قسمتی از نام خانوادگی فرد و سپس قسمتی از کد ملی را وارد نموده تا جستجو صورت پذیرد

یا بصورت برعکس ابتدا قسمتی از کد ملی و سپس قسمتی از نام خانوادگی را تایپ نموده تا عمل جستجو صورت گیرد.

با انتخاب هر آیتم در لیست باکس سلول مورد نظر بصورت رنگی در شیت انتخاب می شود (فایل دوم)

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

[m.zaeim]

ممنون از لطفتون عااالی..