عادل حنفي

اخي الفاضل علي حسب فهمي لطلبك تم عمل الملف المرفق ولكن لكي يعمل بطرقة صحيحة يجب مرفة الاتي: اولا تم عنل شيت اسمه تمهيد كل م عليك ان تسجل اسماء المدارس وكذلك تاريخ الاعياد وتاريخ الاجازات الرسمية وتحت خلية اشهر الزيارات تختار الثلاثة اشهر التي ستكون بها الزيارات اكرر تختار ولا تكتب انت وطبعا وليس لك اي دخل باي شئ اخر ولا حتي باضافة او حذف صف او عامود(طبعا الكلام ده اذا كنت هتعمل شغلك علي الملف اما اذا كنت تريد التجربة والتعلم فلا مانع لكن المهم بعيد عن شغلك لتكون النتائج صحيحة بعد ذلك تضغط علي زر انشاء الخطة وهنا نكون انتقلنا الي ثانيا سيقوم زر انشاء الخطة الذي بتسجيل اسماء المدارس وتواريخ الاشهرومن ثم تلوين الايام التي بها الجمع او الاعياد او الاجازات الرسمية وقد تم عمل خلايا تقوم بجمع هذه الاجازات وكل ماعليك في هذا الشيت ان تقف بالماوس علي اسم المدرسة وهنا ستجد اسم المدرسة قد تسخ اذهب بالماوس الي الخلية التي امام التاريخ الذي تريده واضغط بالماوس عليها ستجدها قد لصقت وهذا الامر غير مفعل في ايام العطل والاعياد والاجازات بعد الانتهاء من التسجيل ناتي الي ثالثا وهو الشيت اذي سيتم طباعة النتائج فيه ايضا كل ما عليك هو اختيار الشهر من الخلية E2 وسيتم ادراج النتائج علي التواليي ارجو اولا ان يكون مافهمته هو المطلوب وان يكون العمل تم بسلاسة وبساطة وارجو اخباري بالنتيجة تحياتي خط سير test.rar

اخي ماجد انا عارف ان المرفق ليس هو المطلوب بالضبط ولكن جربه وقول ملاحظاتك تحياتي خط سير.rar

اخي ابو يحيي جرب المرفق حيث تم عمل كود مع الاخذ في الحسبان انه تم اعتبار العمود F هو عامود ايام الاعيـاد تحياتي المصنف1100.rar

اخي ابو عبد الرحمن وهذه طريقة اخري بدون زر مع جعل الكود لا يعمل الا عند التغيير في عامود اسماء المدارس فقط تحياتي تفعيل الكود2.rar

اخي ابو عبد الرحمن مااستطعت فهمه هو انك عند لصق اسماء المدارس يقوم الكود بادراج كودها انا تركت لك الكود القديم كما هو ليعمل بالطريقة العادية عند كتابة اسم المدرسة وتم عمل زر في صفحة الاكواد اسمه Code انسخ ماشئت من اسماء المدارس ثم اضغط عليه سيحقق المطلوب ان شاء الله اتمني ان يكون هذا هو المطلوب تحياتي تفعيل الكود1.rar

اخي ولد الحجاز شرحك غير وافي وانا فهمت قصدك علي النحو التالي انه عند حدوث اي تغيير بالعمود 3 او4 يتم الجمع في العمود6 مرفق ملف بهذا الفهم وان لم يكن هذا قصدك ارجو التوضيح 777.rar

السلام عليكم اشكرك اخي عبد العزيز البسكري والبيت منور باصحابه يعني بيكم ويشرفني مرورك مع شكري وتقديري

اخي ما الدور الذي تريد ان يقوم به الكود اشرح بالتبسيط

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

اخواني الاعزاء السلام عليكم لن اقول افتقدتكم فهذا اقل مما اشعر به ولكن مشاغل الدنيا اعاننا الله عليها وكذا الاثار النفسية التي مرت علينا بمصر في السنوات القليلة الماضية وقد افتقدت اخوة كنا علي اتصال دائم معا وتم انقطاع الاتصال بضياع الهاتف وعليه ارقامهم وهم يعرفون انفسهم فليساعدوني علي عودة الاتصال واتمني الا يحرمني الله منكم جميعا. فانا اشتاق للتعلم منكم والتحاور معكم يا كل اعضاء ومشرفي واداري المتتدي الاعزاء فدعواتكم لنا بعودة نشاطنا بالشكل الذي نستطيعه وفقنا الله

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

ايضا بنفس الطريقة يتم نقل البيانات من عدة ملفات الي الملف الذي اسمه 2.xls اتبع ايضا نفس الخطوات السابقة مرفق الملف بالرابط التالي نقل البيانات من ملف اخر.rar

السلام عليكم اخي و استاذنا محمد طاهر بارك الله فيك و جزاك الجنة واذن لي بالمشاركة واتمني ان اكون قد فهمت المطلوب ايضا حاولت رفع ملف الي المنتدي و لم استطع ذلك لا اعرف من اين المشكلة هل من المنتدي ام من عندي اخي leprince2007 قم بفك الملف المرفق بالكامل في اي مكان افتح الملف الذي اسمه 2.xls اضغط علي زر انقل البيانات يوجد شرح بداخل الملف و الكود المستحدم هو Sheets("data").Range("A1:f1000") = "" m = ThisWorkbook.Path & "\" & "1.xls" Set wb = Workbooks.Open(m, True, True) For Each cell In Sheets("sheet1").Range("A1:f1000") If cell <> "" Then n = cell.Address If cell.HasFormula Then m = cell.Formula Windows("2.xls").Activate Sheets("data").Range(n) = m Else m = cell.Value Windows("2.xls").Activate Sheets("data").Range(n) = m End If End If Next Windows("1.xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True علما بان نقل البيانات يتم علي الخلايا اذا كان بها بيانات او معادلات عموما هذا رابط للملف نقل البيانات من ملف اخر.rar

السلام عليكم اخي بالفعل تم رفع ملف لكن اعتقد ان هناك مشكلة بالموقع لرفع الملفات عموما هذا رابط للملف ==== تم إضافة الملف للمرفقات select.rar

السلام عليكم اخي عبد الله بارك الله فيك و اشجعك علي القيام بهذه الدورة و اتمني ان يكون لدي الوقت للمشاركة معكم و بالنسبة لكود تلوين الخلايا المحددة باي مدي كان ارفق الكود الخاص بكم مع بعض الاضافات البسيطة بعد اذنك تستحدم عند الحاجة لذلك الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ColorIndex = 46 End With End Sub رابط للف مرفق به الكود http://www.4shared.com/file/dBVu_kyH/select.html

السلام عليكم اخي الحبيب عبد الله المجرب تحياتي علي هذا اللغز الذي جعلني ابدا في التفاعل و عند الدخول لعرض الحل وجدت نفس الطريقة تقريبا من اخ حبيب الي قلبي و هو عماد الحسامي عموما اهو تشجيع لمحالة العودة للمشاركة اي تسخين لو افترضنا ان الارانب س البط ص الدجاج ع و بالتطبيق علي اللغز فان ص+ع=4 س+ع=6 س+ص=8 و باعطاء قيمة افتراضية لل ص تنحصر بين ال 1 و ال 3 بعدة محاولات وجد ان ال ص=3 و بالتعويض في المعادلة الاولي ص+ع=4 3+ع=4 اذن ال ع =1 و بالتعويض بهذه القيم في باقي المعادلات نجد ان س+ع=6 بما ان ال ع =1 س+1=6 اذن ال س=5 و بما ان ال س=5 نعوض بها بالمعادلة الاخيرة و هي س+ص=8 و بما ان ال س=5 اذن 5+ص=8 اذن ال ص=3 و هكذا يكون العدد الكلي =س+ص+ع اي =5+3+1=9 الارانب (س)=5 البط(ص)=3 الدجاج(ع)=1 تحياتي

السلام عليكم الاساتذة الكبار مقاما ا/ محمد طارهر ا/ محمد صالحMas123 ا/ طارق TareQM ا/ ابو عبد الله ا/ يحيي حسين ا/ ياسر حافظ ا/ عبد الله المجرب ا/ سعد عابد ا/ سعيد بيرم ا/ mhrrd اسعدني جدا مروركما و الشعور الذي افتقدته من دفئ يربطنا جميعا بهذا المنتدي كما اخجلني تواضع اساتذة كبار تعلمت منهم انا ايضا الرد علي كلماتكم لا يستوفي بكتابة سطرين بل كتابة الكثير و لن يكفي كفاني الشعور بالصلة القريبة بيننا جميعا خالص و ارق تحياتي داعيا الله بتوطيد سبل المحبة و الاخاء بيننا جميعا

اخي سعيد بيرم و يشرفني ايضا اخي سعيد بارك الله فيك

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

السلام عليكم لم يمنعني عنكم الا الظروف اعاننا الله عليها و اشكر كل من قام بالسؤال و اخص بالشكر كل من الاخ الحبيب سعد عابد علي مبادرته بالسؤال عن كل غائب و اخي الحبيب عبدالله المجرب الدائم الاتصال للاطمئنان بارك الله في جميعا و الله لا يحرمنا منكم خالص تحياتي و تقديري

السلام عليكم اخي دغيدي بارك الله فيك و ان شاء الله نطمأن علي اخينا احمد حمور ويكون بخير ان شاء الله تحياتي

السلام عليكم وهذا ملف تم ضبط مخرجات الملاحظين الفردي افضل من السابق تحياتي ساقية اللجان.rar

السلام عليكم احي جمال سلمت يداك و بارك الله فيك و لا فضل اخي من احد علي الاخر فجميعنا مستفيدون و الي الامام دائما تحياتي

بارك اللع فيك اخي و سلمت يداك بنر جميل تحياتي

السلام عليكم اخي يوسف تم ايجاد هذا البرنامج و هو مجاني للكتابة بالمنتديات فقط حمله علي لجهاز و اكتب و نسق ما تريد ثم انسخ ما تم كتابته و الصقه بالمشاركة و قد قمت بتجربه في هذه المشاركة و هذا هو رابط البرنامج http://www.4shared.com/file/xp-cpdeP/___online.html تحياتي