اركان الاسلام قام بنشر يناير 30, 2020 مشاركة قام بنشر يناير 30, 2020 السلام عاليكم ورحمه الله اخواتى الاعزاء فى المنتدى كنت قد شاهدت فيديو عن البحث من خلال text pox واظهار نتائج البحث وقمت بتنفيذه ونجح ولكن للاسف بيختفى text pox ويظهر بمزاجه ارجو الافاده كيف اجعله ثابت فى مكانه حتى لو عملت تنسيق لبعض الاعمده او الصفوف بحث سريع.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 30, 2020 مشاركة قام بنشر يناير 30, 2020 جرب هذا الكود لتثبيت Text Box Private Sub TextBox1_Change() lr = Range("d" & Rows.Count).End(xlUp).Row ActiveSheet.Range("$A$3:$S$" & lr) _ .AutoFilter Field:=4, Criteria1:="=" & ActiveSheet.TextBox1.Text & "*" With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub '+++++++++++++++++++++++++ Private Sub Worksheet_Activate() With ActiveSheet.TextBox1 .Top = Cells(2, 2).Top: .Left = Cells(1, 1).Left + 150 .Width = 150: .Height = 30 End With End Sub الملف مرفق MY_Saerch.xlsm 1 رابط هذا التعليق شارك More sharing options...
اركان الاسلام قام بنشر يناير 30, 2020 الكاتب مشاركة قام بنشر يناير 30, 2020 اخى سليم وضعت الماكرو فى Text Box لكن ما زال يظهر ويختفى سوال : هل من طبيعه text box الا يكون ثابت كاى كائن نعمله انثرت زى مايكون ركبه عفريت هههههه اشكرك اخى ولو امكن ممكن ننفذ طريقه البحث هذه بداله يكون افضل من ال Text Box مدام مش عاوز يثبت رابط هذا التعليق شارك More sharing options...
أفضل إجابة omar elhosseini قام بنشر يناير 31, 2020 أفضل إجابة مشاركة قام بنشر يناير 31, 2020 بعد أذن اخونا سليم حاصبيا جرب هذا بحث سريع.xlsm 1 رابط هذا التعليق شارك More sharing options...
اركان الاسلام قام بنشر يناير 31, 2020 الكاتب مشاركة قام بنشر يناير 31, 2020 بردو بيختفى على العموم شكرا اخى ابو تامر والشكر موصول للاخ سليم على المحاوله والاهتمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.