Al-Raadi قام بنشر يونيو 17, 2023 قام بنشر يونيو 17, 2023 السلام عليكم يرجى من الخبراء تعديل كود البحث التلقائي الموجود في الملف المرفق المطلوب الاتي: الغاء البحث التلقائي والغاء كود البحث الموجود في حدث الشيت . تفعيل البحث عن الاسماء عن طريق الضغط على زر البحث. بحث عن طريق الضغط فوق زر البحث.xlsb
محمد هشام. قام بنشر يونيو 17, 2023 قام بنشر يونيو 17, 2023 (معدل) تفضل جرب Sub زر1_انقر() Dim Lr As Long, i As Long, R As Long Dim txt Set sht = Worksheets("بحث") Set sht2 = Worksheets("قاموس") txt = sht.Range("B2") Application.ScreenUpdating = False sht.Range("B4:BM30000").ClearContents With sht2 Lr = .Cells(.Rows.Count, "B").End(xlUp).Row For i = Lr To 2 Step -1 If txt = CStr(.Cells(i, "B")) Then 'If txt = CStr(.Cells(i, "B")) Or txt = CStr(.Cells(i, "B")) Or InStr(CStr(.Cells(i, "B")), txt) Then sht.Cells(R + 4, "B").Resize(1, 3).Value = sht2.Cells(i, "B").Resize(1, 3).Value R = R + 1 If R = 40 Then Exit For End If Next End With Application.ScreenUpdating = True End Sub بحث عن طريق الضغط.xlsb تم تعديل يونيو 17, 2023 بواسطه Mohamed Hicham 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.