جستجو در چند شیت به کمک کلید های رادیویی

[ozviat83]

با سلام و خسته نباشید خدمت تمامی دوستان
من یه فایل اکسل دارم
در این فایل در شیت Find یه فرمی را طراحی کردم اطلاعات را از شیت data میخواند و در شیتFind قرار می دهد
آنچه من مدنظر دارم این است که ما سه دکمه رادیویی طراحی می کنیم ب نام های
1- جستجو در شیت data
2- جستجو در شیت main
3-جستجو در تمام شیت ها(لازم به ذکر است که منظورم این نیست که عمل حستجو واقغا در تمام شیت های موجود در این فایل اکسل انجام شود. در واقع منظور من این است که عمل جستجو در تمام شیت های مورد نظر"که در این فایل شیت های data و main هست صورت گیرد" و در مورد شیت های دیگر عملی انجام ندهد
به کمک این سه دکمه رادیویی این امکان را به این فرم بدهیم که با توجه به انتخاب هر یک از دکمه های رادیویی عمل حستجو در شیت های مختلف ویا در تمام شیت ها انجام شود
مثال:اگر برای حستحو دکمه "2- جستجو در شیت main" را انتخاب کردیم عمل جستجو تنها در شیت main انجام شود و یا اگر برای جستجو دکمه"3-جستجو در تمام شیت ها" را انتخاب کردیم عمل جستجو در تمام شیت ها انجام پذیرد

با سپاس فراوان

[iranweld]

با سلام

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

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

Private Sub ComboBox12_Change()

Dim xx As String

xx = ComboBox12.Value

z1 = Sheets(xx).Cells(Sheets(xx).Rows.Count, "s").End(xlUp).Row

TextBox2 = ""

For I = 4 To 12
Me.Controls("textbox" & I) = ""
Next

For I = 1 To z1


If Len(TextBox3) >= 9 And InStr(Sheets(xx).Range("S" & I), TextBox3) = 1 Then

TextBox2 = Sheets(xx).Range("i" & I)
TextBox4 = Sheets(xx).Range("d" & I)
TextBox5 = Sheets(xx).Range("e" & I)
TextBox6 = Sheets(xx).Range("q" & I)
TextBox7 = Sheets(xx).Range("h" & I)
TextBox8 = Sheets(xx).Range("v" & I)


End If

Next


End Sub

Private Sub CommandButton2_Click()
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox11 = ""
TextBox2.SetFocus
Find.Hide
End Sub

Private Sub TextBox3_Change()

Dim xx As String

xx = ComboBox12.Value

z1 = Sheets(xx).Cells(Sheets(xx).Rows.Count, "s").End(xlUp).Row

TextBox2 = ""

For I = 4 To 12

Me.Controls("textbox" & I) = ""

Next

For I = 1 To z1


If Len(TextBox3) >= 9 And InStr(Sheets(xx).Range("S" & I), TextBox3) = 1 Then

TextBox2 = Sheets(xx).Range("i" & I)
TextBox4 = Sheets(xx).Range("d" & I)
TextBox5 = Sheets(xx).Range("e" & I)
TextBox6 = Sheets(xx).Range("q" & I)
TextBox7 = Sheets(xx).Range("h" & I)
TextBox8 = Sheets(xx).Range("v" & I)

End If

Next

End Sub 

[iranweld]

برای خالی کردن تکست باکس ها از دستور ذیل استفاده کنید

For I = 2 To 12
Me.Controls("textbox" & I) = ""
Next 

[ozviat83]

با سلام خدمت آقای iranweld
واقعیت امر این است که من اصلا متوجه نشذم و فایل پیوست شما اصلا کار نمیکرد
و
در ضمن من میخواستم که انتخاب ها به این صورت باشد
1- جستجو در شیت data
2- جستجو در شیت main
3-جستجو در تمام شیت ها(لازم به ذکر است که منظورم این نیست که عمل حستجو واقغا در تمام شیت های موجود در این فایل اکسل انجام شود. در واقع منظور من این است که عمل جستجو در تمام شیت های مورد نظر"که در این فایل شیت های data و main هست صورت گیرد" و در مورد شیت های دیگر عملی انجام ندهد
با سپاس از شما

[iranweld]

فیلم پیوست نحوه عملکرد جستجو در فایل را نمایش میدهد
در کمبوباکس 12 بجای find شیت data را جایگزین کنید

[ozviat83]

با سلام
ظاهرا من منظورم را بد رسوندم
اگر به فایلی که من در پست اول پیوست کردم متوجه میشوید که من اینگونه جستجو را نمی خواهم
در فایلی که من پیوست کردم اگر شما مثلا شماره ملی را بزنید و سپس دکمه سرچ را بزنید تمام کسانی که در شیت data هستد را در شیت Find نشون میدهد
حالا من میخواهم به کمک کمبوباکس یا هر چیز دیگری این امکان را به وجود بیاورم که بتوان انتخاب کرد در کدام شیت ها جستجو را انجام دهد و البته یگ پزینه هم باشد که در تمام شیت ها جستجو را انجام دهد
جستجو در تمام شیت ها(لازم به ذکر است که منظورم این نیست که عمل حستجو واقغا در تمام شیت های موجود در این فایل اکسل انجام شود. در واقع منظور من این است که عمل جستجو در تمام شیت های مورد نظر"که در این فایل شیت های data و main هست صورت گیرد" و در مورد شیت های دیگر عملی انجام ندهد
با سپاس از شما

[ozviat83]

با عرض سلام مجدد

لطفاَ کمکم کنید

[iranweld]

با سلام

یک نمونه جستجو به کمک پیوت تیبل و فرم تهیه گردید

[iranweld]

بهینه سازی بیشتری برای جستجو در فایل پیوست انجام شد

چند گزینه را برای سرچ میتوانید همزمان انتخاب کنید(فعلا تا تکست باکس کد ملی کدنویسی شده است)

[ozviat83]

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