ماجدجلال

ممتاز استاذ محمد ممتاز ,,, الكود فعال الف شكر لك

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

السلام عليكم ,, الكود نجح وممتاز , ولقد طلب مني احد الاخوان اذا كان يستطيع الحصول علي نفس الكود ولكن للاكسيل باصدار me وشكرا لكم ,,,

السلام عليكم لدي جدول في الاكسيل بة البيانات التالية , العمود A بة اكود العملاء العمود B بة اسماء العملاء العمود E يوجد فية حالتين فقط " مسدد " او خلية فارغة تشير الي عدم التسديد , المطلوب : في نهاية كل شهر اريد معادلة في العمود S يظهر فيها اكواد العملاء المسددين , بحيث تظهر هذة الاكواد مرتبة تحت بعضها البعض ,, فماهي هذة المعادلة ,, جربت الدالة LOOKUP الا انها تظهر الكود الاولي في كل الخلايا المنسوخة فيها المعادلة . ارجو المساعدة ,,,

شكرا جزيل لك استاذ محمد سوف اجرب واوافيك بالنتيجة ,,, واشكرك الاخ حسام ولة كل الاجر ( الدال علي الخير كفاعلة ) ,,

اخي حسام شكرا لك ويبدو انني محظوظ بانك الوحيد الذي ترد علي مشاركاتي ,,, وارجو منك ان تتحملني لاني اكون بطي الفهم ,,, نصحتني في الحل الرد السابق بان تكون اللغة العربية هي اللغة المختارة في الجهاز عموما وهذا هو الواقع فعلا حتي قبل طرد السؤال ,,, المشكلة اخي هي ليست في ظهور شريط الادوات للاكسيل باللغة الانجليزية بل شريط الادوات هو باللغة العربية واللغة المختارة والمطبقة علي الجهاز فعلا هي اللغة العربية ,, عموما ,, عندما يقوم اي شخص بكتابة في ملف اكسيل فتحة قبل قليل تظهر الكتابة بالحروف الانجليزية ( طبعا شريط الادوات هو باللغة العربية ) ولكن عندما يقوم هذا المستخدم بتغير اللغة من اللغة الانجليزية الي العربية , هنا سوف تظهر الكتابة باللغة العربية ,,, المطلوب ,,, اخي حسام هو ان يقوم الاكسيل تلقائيا بتغير اللغة المستخدم في الكتابة من اللغة الانجليزية الي اللغة العربية ,,حتي يريح المستخدم من تغير هذة اللغة مع العلم بان اللغة المختارة علي الجهاز عموما والاوفيس خصوصا هي اللغة العربية ,,,ارجو ان يكون السؤال واضح

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

شكرا لك استاذ محمد اكيد رايح ينجح ,,,

شكرا لك سوف اجرب واوافيك بالنتيجة

كيف استطيع ارسال بيانات جدول علي الفاكس بواسطة الاكسيل وشكرا لكم

السلام عليكم ورحمة الله الكود التالي 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 من تصميم الاستاذ الكبير محمد حجازي وهو يعمل علي حذف البيانات الموجود من الصف الاولي حتي السابع اذا احتوي هذا الصف علي كلمة " مغادر " ارجو المساعدة في تعديل هذا الكود لجعلة يحذف بيانات الصف الاولي ثم الثاني وبعدها السادس والسابع فقط اي استثناء الصف الثالث والرابع والخامس من عملية الحذف وشكرا لكم ,

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

السلام عليكم الف شكر والف تحية اوجهها الي الاستاذ الفلسطيني ,, الملف السابق ليس معطوب , ولكن برنامج الضغط عندي هو المعطوب , ولكن لي ملاحظة بسيطة جدا وهي ,, الماكرو الذي اعدة الاستاذ الفلسطيني يظهر رسالة لوجود الخطاء ولم يعمل بشكل صحيح , ومع هذا ففكرتة اوحت لي بفكرة رائعة جدا وهي اعداد ماكرو للبحث و الاستبدال وبجحت وانا الان ارفق الكود لم ارد الفائدة ,,, Columns("B:B").Select Selection.Replace What:="خروج", Replacement:="مغادر", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False Range("B1").Select End Sub وكلي رجاء ممن يملك كود افضل و احسن يضعه هنا للفائدة وشكرا لكم

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

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

شكرا استاذ محمد ,, اذا كانت تتذكر كود " مغادر " والذي يقوم بمسح الصف الموجود عندة كلمة مغادر ,, هذا الكود 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 اي العمود الثاني طبعا موضوع الدالة السابقة , الماكرو بالبحث عن كلمة " مغادر " فاذا وجدها يقوم بتطبيق الدالة ومسح الصف ثم يعمل مرة اخري في البحث عن الكلمة التالي ويمسح الصف في حالة وجودها ,,, اي ان هذا الماكرو يظل يعمل حتي ينتهي من كل الكلمات الموجودة في العمود والتي بها كلمة " مغادر " وشكرا لكم

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

ممتاز استاذ هنداوي والف شكرا هذا هو المطلوب شكرا

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

استاذ هنداوي ارجو المساعدة ,,, انا اعرف انك مشغول باعداد الدروس الله يعطيك الف عافية ,,, ولكن لا نستطيع الاستغناء عنكم ,, ارجو المساعدة فيما يلي ,,, ملاحظة : لاحظت استاذ هنداوي انة عند النقر علي السهم المتجه الي الاسفل تنتقل المؤشرة او التركيز علي الخلية الاولي في الصف التالي وليس علي الخلية التي في الاسفل مباشرا , مثال : لنفرض ان المؤشرة في الخلية رقم ( D5) ونقرت السهم المتجه الي الاسفل فان التركيز ينتقل الي الخلية رقم ( A6 ) وليس الخلية رقم ( D6) ,, فما هو التعديل المناسب حتي يتم تصحيح المشكلة السابقة ,, وشكرا لكم ,,,

شكرا لك استاذ محمد اريد تطبيق الكود فقط علي العمود E و الف شكرا لك ,,

شكرا لك استاذ هنداوي ,, طبعا هذا هو المطلوب مع تعديل طفيف علي الكود السابق في الملف المرفق التعديل هو Rows(Target.Row).Range("A1:H1").Select حيث ان هذا يجعل التحديد فقط علي الصف من A حتي H ولقد نجح معي من انني لست افهم كيف يتم تحديد الصف الذي فية التركيز مع ان الامر Range يتطلب فقط التركيز علي النطاق a1:h1 فقط ,,,, بالنسبة للتوضيح : لنفترض انك استاذ هنداوي تريد فقط قراة البيانات الموجودة في الصف رقم 13 فقط , عندما تنقر علي الرقم 13 نفس " اي دون النقر علي اي خلية " وانما النقر علي المربع الذي مكتوب فية الرقم 13 الا يحصل هنا تظليل لكامل هذا الصف , هذا ما كنت اقصدة في المشاركة الاولي ,, مع فرق بسيط وهو ان يتم التركيز فقط علي عدد من الخلايا يعني مثلا التركيز علي 7 خلايا مجاورة لبعض في نفس الصف ,,,, وهذا ما حصل ولله الحمد ,, ولكم كل الشكر والامتنان , ملاحظة : لاحظت استاذ هنداوي انة عند النقر علي السهم المتجه الي الاسفل تنتقل المؤشرة او التركيز علي الخلية الاولي في الصف التالي وليس علي الخلية التي في الاسفل مباشرا , مثال : لنفرض ان المؤشرة في الخلية رقم ( D5) ونقرت السهم المتجه الي الاسفل فان التركيز ينتقل الي الخلية رقم ( A6 ) وليس الخلية رقم ( D6) ,, فما هو التعديل المناسب حتي يتم تصحيح المشكلة السابقة ,, وشكرا لكم ,,,

السلام عليكم قرات الموضوع في الرابط السابق . وحاولت ادراج التعليمة Range , ولكن لم انجح وصدقوني مهاراتي في الفيجوال معدومة جدا , لذا ارجو منكم المساعدة , وشكرا ,,,

السلام عليكم ورحمة اللة لكن مجموعة من الصفوف بها بيانات واحتاج احيانا الي مراجعة ومطابقة هذة البيانات بالبيانات المكتوبة علي الورق , ومن اجل ذلك اقوم بتظليل الصف الذي اراجعة بالكامل ( التظليل او التحديد هو نفس التحديد الذي يكون من اجل النسخ ) , ثم انتقل الي صف جديد واحدده , السؤال : هل توجد طريقة او كود يقوم بتظليل الصف عندما اكون في خلية معينة ؟ ولتوضيح : لنفرض انني اراجع الصف من الخلية A15 حتي M15 ولنفرض ان الكود ثم تفعيلة في الخلية N15 او كامل العمود N بمجرد وجود المستخدم في ان صف من العمود N يتم تطبيق هذا التركيز علية ,, بحيث لو انني نقرت علي الزر انتر وانتقلت المؤشرة الي الخلية N16 يتم نقل التركيز الي كامل الصف من الخلية A16 الي الخلية M16 , وشكرا لكم ,,,