توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : [حل شده] درج عنوان سرستون در لیست باکس و فیلتر بر اساس چند تکست باکس
سلام دوستان..
من میخوام تو فایلی که خدمتتون فرستادم زمانی که عمل فیلتر انجام شد اسم سرستونها هم در لیست باکس نمایش داده بشه.. و اینکه چطور میشه یک یا دو تکست باکس دیگه هم اضافه کرد تا همزمان با دو یا سه فیلتر مقادیری رو که میخوایم نمایش بدیم.. سپاس
iranweld
2016/06/18, 08:25
با سلام
در فایل پیوست اول با استفاده از دو 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
خیلی ممنون بابت پاسخ و فایلهای مفیدی که ارسال کردید.. من میخوام فیلترهای دو تکست باکس به صورت وابسته به هم اجرا بشن ..در فایل اول که فرستادید فیلترها به صورت مستقل از هم اعمال میشن ممنون میشم راهنمایی کنید
iranweld
2016/06/19, 12:28
لطفا خواسته خود را با ذکر مثال توضیح دهید
مثلا اگر در تکست باکس نام خانوادگی مقدار b1 و در کد ملی 21 رو وارد کردیم فقط مشخصات ردیف1 رو نمایش بده نه مشخصات 6ردیف رو ..سپاس
iranweld
2016/06/20, 09:32
با سلام
در فایل پیوست میتوانید ابتدا قسمتی از نام خانوادگی فرد و سپس قسمتی از کد ملی را وارد نموده تا جستجو صورت پذیرد
یا بصورت برعکس ابتدا قسمتی از کد ملی و سپس قسمتی از نام خانوادگی را تایپ نموده تا عمل جستجو صورت گیرد.
با انتخاب هر آیتم در لیست باکس سلول مورد نظر بصورت رنگی در شیت انتخاب می شود (فایل دوم)
در صورتیکه تعداد داده زیاد است و عمل جستو با سرعت کمتری صورت می پذیرد بایستی شرطی مبنی بر طول کلمه وارد شده در تکست باکس ها اضافه نمایید
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.