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

[hosein4151]

سلام و عرض خسته نباشید خدمت مدیریت و دوستان جویای علم،
یک مشکلی در اکسل دارم میخواستم راهنماییم کنید،
من یک لیست در اکسل دارم که در اون اسامیه اجناس مغازم و قیمت در اون درج شده،از اونجایی که قیمت همه ی اجناس رو حفظ نیستم،میخوام با زدن هر کلید بر روی صفحه کلید مثلا حرف م ،صفحه نمایش بپره روی اون کلمه هایی که با م شروع شده مثلا ماست،(بدون استفاده از کلید cntrl+f),پیشاپیش ممنونم از توجهتون

[iranweld]

با سلام

با استفاده از یک تکست باکس و یک لیست باکس میتوانید براحتی یک فرم برای جستجو ایجاد کنید.



و برای مرحله باز شدن فرم، کدهای ذیل را داخل آن کپی کنید.

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("A2:A" & Z1)

ListBox1.Clear

ListBox1.ColumnCount = K1 + 2

ListBox1.ColumnWidths = "0;60;80;100;140;40;10"

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 5

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

Next

TextBox1.SetFocus

End Sub 

[hosein4151]

با سلام

با استفاده از یک تکست باکس و یک لیست باکس میتوانید براحتی یک فرم برای جستجو ایجاد کنید.

[ATTACH=CONFIG]11638[/ATTACH]

و برای مرحله باز شدن فرم، کدهای ذیل را داخل آن کپی کنید.

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("A2:A" & Z1)

ListBox1.Clear

ListBox1.ColumnCount = K1 + 2

ListBox1.ColumnWidths = "0;60;80;100;140;40;10"

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 5

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

Next

TextBox1.SetFocus

End Sub 

سلام و ممنون از توجهتون،تکست باکس و لیست باکسی که فرمودید رو چطوری باید ایجاد کنم،اگه امکان داره مرحله به مرحله میگید که چکار باید بکنم,متشکر