تطبيق دالة علي كامل العمود

[ماجدجلال]

السلام عليكم

لدي كود من تصميم الاستاذ محمد حجازي , يقوم بحذف الصف الذي بة كلمة " مغادر " .

ارغب في وضع ماكرو يعمل بواسطة زر يقوم بمسح العمود b اي العمود الثاني طبعا موضوع الدالة السابقة , الماكرو بالبحث عن كلمة " مغادر " فاذا وجدها يقوم بتطبيق الدالة ومسح الصف ثم يعمل مرة اخري في البحث عن الكلمة التالي ويمسح الصف في حالة وجودها ,,,

اي ان هذا الماكرو يظل يعمل حتي ينتهي من كل الكلمات الموجودة في العمود والتي بها كلمة " مغادر "

وشكرا لكم

[محمد حجازي]

السلام عليكم ...

أخي ، لم أفهم قصدك بالضبط ! . إذا كنت تريد مسح العامود بدون شروط فجرب الكود التالي :

Sub DeleteColumnB()
  Columns("B:B").Delete
End Sub

[ماجدجلال]

شكرا استاذ محمد ,,

اذا كانت تتذكر كود " مغادر " والذي يقوم بمسح الصف الموجود عندة كلمة مغادر ,,

هذا الكود

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 "

وشكرا لكم ,,,

[محمد حجازي]

السلام عليكم ...

الرجاء التوضيح أكثر .

ماذا تريد ؟ هل تريد البحث أولاً في العمود الثاني ثم حذف كلمة " مغادر " في حال وجودها ، و بالنسبة لتحويل كلمة " خروج " الي كلمة " مغادر " الرجاء التوضيح أكثر.

[ماجدجلال]

السلام عليكم ,

انا اسف جدا استاذ محمد ,,

ما اريدة هو ماكرو يقوم بالبحث في العمود الثاني " B " عن كلمة " خروج " ثم يحولها الي كلمة " مغادر " وهاكذا حتي ينتهي من كل خلية في هذا العمود بها كلمة خروج ,,,

باختصار ,,, كلمة خروج قد تتكرر في العمود اكثر من مرة , والمراد ان الماكرو عندما يجد كلمة خروج ويقوم بتغيرها الي كلمة مغادر لا يتوقف عند اول كلمة بل يواصل في كامل العمود الي ان ينتهي من كل الخلايا التي بها كلمة خروج ,,

باختصار ,,, ان الماكرو يبحث في العمود الثاني عن كلمة " خروج " ويقوم بتغيرها الي كلمة " مغادر " ثم يبحث مرة ثاني عن كلمة " خروج " ويقوم بتغير ها الي " مغادر " ويبحث مرة ثالثة ويغيرها في حالة وجوده وهاكذا حتي ينتهي ,,

استاذ محمد انا اسف جدا لان شرح السابق غير مفهوم وارجو منك المعذرة ,,

فالموضوع يبدو معقد جدا وارجو ان تسامحني علي سوء شرحي ,

وشكرا لك ,

تم تعديل يونيو 15, 2005 بواسطه ماجدجلال

[فلسطيني]

الأخ الكريم جرب الملف المرفق

_____.rar

[ماجدجلال]

اخي الفلسطيني

شكرا لك الف شكرا

لقد حملت الملف 3 مرات ولكن كلها تطلع ملفات معطوبة

ارجو المساعدة ,,

وشكرا لك

[ماجدجلال]

السلام عليكم

الف شكر والف تحية اوجهها الي الاستاذ الفلسطيني ,,

الملف السابق ليس معطوب , ولكن برنامج الضغط عندي هو المعطوب , ولكن لي ملاحظة بسيطة جدا وهي ,,

الماكرو الذي اعدة الاستاذ الفلسطيني يظهر رسالة لوجود الخطاء ولم يعمل بشكل صحيح ,

ومع هذا ففكرتة اوحت لي بفكرة رائعة جدا وهي اعداد ماكرو للبحث و الاستبدال وبجحت

وانا الان ارفق الكود لم ارد الفائدة ,,,

Columns("B:B").Select
    Selection.Replace What:="خروج", Replacement:="مغادر", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("B1").Select
End Sub

وكلي رجاء ممن يملك كود افضل و احسن يضعه هنا للفائدة وشكرا لكم