ماجدجلال قام بنشر يونيو 13, 2005 قام بنشر يونيو 13, 2005 السلام عليكم لدي كود من تصميم الاستاذ محمد حجازي , يقوم بحذف الصف الذي بة كلمة " مغادر " . ارغب في وضع ماكرو يعمل بواسطة زر يقوم بمسح العمود b اي العمود الثاني طبعا موضوع الدالة السابقة , الماكرو بالبحث عن كلمة " مغادر " فاذا وجدها يقوم بتطبيق الدالة ومسح الصف ثم يعمل مرة اخري في البحث عن الكلمة التالي ويمسح الصف في حالة وجودها ,,, اي ان هذا الماكرو يظل يعمل حتي ينتهي من كل الكلمات الموجودة في العمود والتي بها كلمة " مغادر " وشكرا لكم
محمد حجازي قام بنشر يونيو 14, 2005 قام بنشر يونيو 14, 2005 السلام عليكم ... أخي ، لم أفهم قصدك بالضبط ! . إذا كنت تريد مسح العامود بدون شروط فجرب الكود التالي : Sub DeleteColumnB() Columns("B:B").Delete End Sub
ماجدجلال قام بنشر يونيو 14, 2005 الكاتب قام بنشر يونيو 14, 2005 شكرا استاذ محمد ,, اذا كانت تتذكر كود " مغادر " والذي يقوم بمسح الصف الموجود عندة كلمة مغادر ,, هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then If Target.Value = "مغادر" Then Range(Cells(Target.Row, 1), Cells(Target.Row, 7)).ClearContents End If End If End Sub الان لدي في العمود الثاني تلاتة اختيارات هي : مقيم خروج مغادر وخروج يعني النزيل الذي خرج من الغرفة ولكن مازال ينتظر انهاء بقية الاجراءات من الحسابات وتفتيش الغرف , وفي نهاية اليوم اجد كلمة خروج قد تكررت في العمود الثاني وفي اماكن متفرقة ,, واريد ماكرو يساعدني في القيام بالبحث عن كلمة " مغادر " في العمود الثاني وفي حالة العثور علية يطبق الكود السابق للمسح ثم يواصل البحث مرة اخري حتي ينتهي من كل الصف , اعتقد اننا يجب استخدام عبارة nixt وهي التالي او الدوران لتطبيق الكود علي كامل الصف , بمعني اخري ,, الماكرو يقوم بتحويل كلمة " خروج " الي كلمة " مغادر " والتي تتكرر في اماكن متقرفة من العمود الثاني " B " وشكرا لكم ,,,
محمد حجازي قام بنشر يونيو 14, 2005 قام بنشر يونيو 14, 2005 السلام عليكم ... الرجاء التوضيح أكثر . ماذا تريد ؟ هل تريد البحث أولاً في العمود الثاني ثم حذف كلمة " مغادر " في حال وجودها ، و بالنسبة لتحويل كلمة " خروج " الي كلمة " مغادر " الرجاء التوضيح أكثر.
ماجدجلال قام بنشر يونيو 15, 2005 الكاتب قام بنشر يونيو 15, 2005 (معدل) السلام عليكم , انا اسف جدا استاذ محمد ,, ما اريدة هو ماكرو يقوم بالبحث في العمود الثاني " B " عن كلمة " خروج " ثم يحولها الي كلمة " مغادر " وهاكذا حتي ينتهي من كل خلية في هذا العمود بها كلمة خروج ,,, باختصار ,,, كلمة خروج قد تتكرر في العمود اكثر من مرة , والمراد ان الماكرو عندما يجد كلمة خروج ويقوم بتغيرها الي كلمة مغادر لا يتوقف عند اول كلمة بل يواصل في كامل العمود الي ان ينتهي من كل الخلايا التي بها كلمة خروج ,, باختصار ,,, ان الماكرو يبحث في العمود الثاني عن كلمة " خروج " ويقوم بتغيرها الي كلمة " مغادر " ثم يبحث مرة ثاني عن كلمة " خروج " ويقوم بتغير ها الي " مغادر " ويبحث مرة ثالثة ويغيرها في حالة وجوده وهاكذا حتي ينتهي ,, استاذ محمد انا اسف جدا لان شرح السابق غير مفهوم وارجو منك المعذرة ,, فالموضوع يبدو معقد جدا وارجو ان تسامحني علي سوء شرحي , وشكرا لك , تم تعديل يونيو 15, 2005 بواسطه ماجدجلال
ماجدجلال قام بنشر يونيو 16, 2005 الكاتب قام بنشر يونيو 16, 2005 اخي الفلسطيني شكرا لك الف شكرا لقد حملت الملف 3 مرات ولكن كلها تطلع ملفات معطوبة ارجو المساعدة ,, وشكرا لك
ماجدجلال قام بنشر يونيو 17, 2005 الكاتب قام بنشر يونيو 17, 2005 السلام عليكم الف شكر والف تحية اوجهها الي الاستاذ الفلسطيني ,, الملف السابق ليس معطوب , ولكن برنامج الضغط عندي هو المعطوب , ولكن لي ملاحظة بسيطة جدا وهي ,, الماكرو الذي اعدة الاستاذ الفلسطيني يظهر رسالة لوجود الخطاء ولم يعمل بشكل صحيح , ومع هذا ففكرتة اوحت لي بفكرة رائعة جدا وهي اعداد ماكرو للبحث و الاستبدال وبجحت وانا الان ارفق الكود لم ارد الفائدة ,,, Columns("B:B").Select Selection.Replace What:="خروج", Replacement:="مغادر", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Range("B1").Select End Sub وكلي رجاء ممن يملك كود افضل و احسن يضعه هنا للفائدة وشكرا لكم
الردود الموصى بها