قاهر الاكسس قام بنشر يناير 11, 2014 قام بنشر يناير 11, 2014 السلام عليكم ورحمة الله وبركانة هذا كود بحث يبحث او ( يفرز) بأول حرف يكتب هل ممكن نحول هذا الكود ان يبحث باي حرف داخل النص او الجملة وايضا كيف نجعله يبحث بالارقام ارجو المساعدة بذالك ولكم وافر الشكر Private Sub TextBox1_Change()Dim LastRow As LongLastRow = Range("c65535").End(xlUp).Row If ActiveSheet.TextBox1.Text <> "" Then Selection.AutoFilter Range("$A$7:$c$" & LastRow).AutoFilter Field:=3, Criteria1:= _ "=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr Else Range("$A$7:$c$" & LastRow).AutoFilter Field:=3 End IfEnd Sub بحث بأي حرف او رقم.rar
عبدالله باقشير قام بنشر يناير 11, 2014 قام بنشر يناير 11, 2014 السلام عليكم بالنسبة للبحث عن رقم تم استخدام الفلترة المتقدمة المرفق 2010 بحث بأي حرف او رقم بالفلترة المتقدمة.rar 2
قاهر الاكسس قام بنشر يناير 11, 2014 الكاتب قام بنشر يناير 11, 2014 السلام عليكم بالنسبة للبحث عن رقم تم استخدام الفلترة المتقدمة المرفق 2010 جزاك الله كل خير استاذي عبدالله , ولك فائق الشكر كيف اعمل مربع بحث جديد ! هل اقو بنسخ الاكواد نفسها مع تفيير اسم موقع الخلية ؟ وماهي فائدة المكتوب في Q2 =ISNUMBER(SEARCH("*"&MyText&"*";B8;1)) وشكرا
محمد ابو البـراء قام بنشر يناير 12, 2014 قام بنشر يناير 12, 2014 (معدل) السلام عليكم بالنسبة للبحث عن رقم تم استخدام الفلترة المتقدمة المرفق 2010 بارك الله فيك استاذنا الكبير/استاذ عبد الله ولكن لعل الكود به بعض الاخطاء حيث اننا عند وضع بعض الارقام يظهر ايضا ارقام ليست لها علاقة بالرقم المكتوب في خانة البحث... وهذا مثال استاذنا الكبير على ما اقول ------------------------ وبعد اذن استاذنا الكبير /استاذ عبد الله بالنسبة للاخ قاهر الاكسيس هذه مشاركة لعلها تفي الغرض ولعل استاذنا الكبير استاذ عبد الله يضيف لنا الجديد http://www.officena.net/ib/index.php?showtopic=51136#entry315634 تم تعديل يناير 12, 2014 بواسطه محمد ابو البـراء
احمدزمان قام بنشر يناير 12, 2014 قام بنشر يناير 12, 2014 السلام عليكم بعد التحية للجميع وخاصة استاذنا القدير عبدالله باقشير للبحث عن اي جزء من الكلمات عدل كود البحث كما يلي Private Sub TextBox1_Change() Dim LastRow As Long LastRow = Range("c65535").End(xlUp).Row If ActiveSheet.TextBox1.Text <> "" Then Selection.AutoFilter Range("$A$7:$c$" & LastRow).AutoFilter Field:=3, Criteria1:= _ "*" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr Else Range("$A$7:$c$" & LastRow).AutoFilter Field:=3 End If End Sub Private Sub TextBox2_Change() Dim LastRow As Long LastRow = Range("d65535").End(xlUp).Row If ActiveSheet.TextBox2.Text <> "" Then Selection.AutoFilter Range("$A$7:$d$" & LastRow).AutoFilter Field:=4, Criteria1:= _ "*" & ActiveSheet.TextBox2.Text & "*", Operator:=xlOr Else Range("$A$7:$d$" & LastRow).AutoFilter Field:=4 End If End Sub
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان