طارق محمود

السلام عليكم أخي العزيز أولا تفضل المرفق مضاف به زر لطباعة الجدول ثانيا الشرح يعتمد علي عدة خطوات أولا : الكود يحدد إن كان الماوس يشير إلي خلية غير أي من الخلايا الصفراء التي بها أسماء الأساتذة وفي هذه الحالة فلا يفعل شيئا أما إن كان يشير إلي أي منها فسيجعل الخلية F5 في الشيت السابع (الذي اسمه : الشكل الذي اريده عند الضغط) الخلية التي تحمل إسم الأستاذ ، سيجعلها تساوي قيمة نفس الخلية التي تقف عليها بالماوس أي تساوي إسم الأستاذ المراد جدوله ثانيا: الشيت السابع نفسه (الذي اسمه : الشكل الذي اريده عند الضغط) تم عمل مجموعة من المعادلات به تجعل جدول الأستاذ يأتي أوتماتيكيا لهذا الشيت ، يمكنك مراجعتها والسؤال فيما تشاء ثالثا: نرجع مرة أخري لورقة "الاساتذة" : أضفت لها صورة (أي صورة عندك بالكمبيوتر ، طبعا يكون حجمها أصغر مايمكن) وتجعل هذه الصورة تحمل شكل الخلايا المراد صورتها من الشيت السابع (الذي اسمه : الشكل الذي اريده عند الضغط) وهكذا باختصار كلما أشرت بالماوس علي إحدي الخلايا تحمل إسم الأستاذة تتغير تلقائيا قيمة الخلية F5 في الشيت السابع لتحمل إسم الأستاذ المراد فيتغير تلقائيا محتويات الجدول بالشيت السابع ومن ثم يتغير شكل الصورة التي تنقل الجدول منه أرجو أن أكون وفقت بالشرح تفضل المرفق school3.rar

السلام عليكم مرفق الملف بالزر ضغطة تخفيهم وضغطة تظهرهم تفضل المرفق Book1-2.rar

السلام عليكم أخي العزيز لاداعي للزر فقط ضع الماوس علي أي من الخلايا الصفراء التي بها أسماء الأساتذة تفضل المرفق school2.rar

السلام عليكم تفضل المرفق شرح المطلوب2.rar

الحمد لله رددت لك علي الموضوع الثاني

السلام عليكم أخي العزيز ربما السؤال غير واضح بعض الشيء عموما أنا رددت علي أحد الموضوعات "المساعده بكود لخصم المدين من خلال ما قام بدفعه (برقم فاتوره او امر توريد محدد)" حسب فهمي للسؤال (بالمعادلات وليس أكواد) أرجو أن يكون هو ماتريد وسأعمل علي الموضوع الثاني

السلام عليكم أخي الحبيب لايجوز عمل كودين بنفس الإسم في ملف واحد وإذا كان الموضوع خاص بأكواد حدث الورقة (مثل هذا الخاص بالتغيير في الورقة) فالأفضل دمجهما إليك الكودين مدمجين Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = Union([B4:N4], [B6:N18]) If Intersect(Target, myRange) Is Nothing Then If Target.Address <> "$O$1" And Target.Address <> "$P$1" Then Exit Sub End If c = Chr(65 + Month([O1])) cc = Chr(65 + Month([P1])) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Charts("Revenues") .SeriesCollection(1).Values = "=Breakdown!$B$4:$" & c & "$4" .SeriesCollection(2).Values = "=Breakdown!$B$6:$" & cc & "$6" End With With Charts("G&A") .SeriesCollection(1).Values = "=Breakdown!$B$8:$" & c & "$8" .SeriesCollection(2).Values = "=Breakdown!$B$10:$" & cc & "$10" End With For Each ce In myRange If IsNumeric(ce) = False Then GoTo 1 ce.NumberFormat = "_(#,##0.00_);[Red]_((#,##0.00);_(--_);_(@_)" If ce.Value = 0 Then With ce .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Else With ce .HorizontalAlignment = xlRight .VerticalAlignment = xlCenter End With End If 1 Next ce Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub لكني لم أستطع التأكد لأنك لم ترسل الملف كاملا (بما فيه الشارتات المذكورة بالكود)

السلام عليكم أخي العزيز استكمالا للموضوع تم عمل المطلوب بالمرفق بالأكواد عن طريق دالتين مستحدثتين هما Decide ، Decide_Count أولا الدالة Decide يعقبها قوسين بينهما قيمتي A ثم B علي الترتيب وتفصلهما فاصلة وعند تطبيقها ومقارنة ماكتبته انت يدويا للتأكد لم يحدث خلاف إلا في حالة واحدة ستراها عند Q#97 ثانيا الدالة Decide_Count يعقبها قوسين بينهما معاملين تفصلهما فاصلة: المعامل الأول وهو المجال (المدي) المحتوي علي Item وA و B علي الترتيب والمعامل الثاني وهو خلية المرجع للمدي المراد به النتيجة (في هذا المثال هي الخلية الزرقاء F11) أنظر المرفق وجرب وراجع ثم أخبرني بالنتيجة Excel Worksheet33_2.rar

السلام عليكم عذرا للتأخير أخي / مجدي الموضوع المشابه علي الرابط http://www.officena.net/ib/index.php?showtopic=36037&hl=%D8%A3%D9%88%D9%84%D8%A7#entry190411 وبه الملف في المشاركة الرابعة

السلام عليكم أولا عنوان الموضوع مخالف ، سأغيره ونرجو الإلتزام مستقبلا ثانيا فترة العمل (بالشهر) تم حلها بالمرفق ثالثا لم أفهم من أين تحسب إجمالي مبلغ الأساسي = 1200ج في حالة "ابراهيم جاد على السعداوى" تسويه 2008_2.rar

أخي العزيز تم رد علي مطلوبين بالمرفق والثالث يحتاج لكود يوجد لي مشاركة قديمة في مطلوب شبيه بالثالث تفضل المرفق Excel Worksheet2.zip

السلام عليكم أخي الكريم ابحث أولا بالمنتدي ستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية كلها مواضيع تناولت هذه النقطة والكثير الكثير أيضا من المواضيع التي تناولتها فقط إبحث

وأيضا هذا الرابط http://www.officena.net/ib/index.php?showtopic=31030&hl=%D8%A5%D8%B1%D8%B3%D8%A7%D9%84#entry156657

السلام عليكم كما نصحك أخونا وأستاذنا / أحمد زمان عليك بعبقري هذا الباب الأخ الفاضل / محمد صالح راجع هذان الرابطان وستجد ماتريد بإذن الله http://www.officena.net/ib/index.php?showtopic=32704&hl=%D8%A5%D8%B1%D8%B3%D8%A7%D9%84 http://www.officena.net/ib/index.php?showtopic=29748&hl=%D8%A5%D8%B1%D8%B3%D8%A7%D9%84#entry148119

السلام عليكم لم أعلم ان أستاذي / احمد زمان سبقني للحل بهذه السرعة ماشاء الله عليك أخي أحمد زادك الله من علمه حلك كالعادة أبسط وأسها وتحياتي لكل من شارك ومن ذكرت إسمه ولكل الأعضاء الكرام

السلام عليكم أخي العزيز في المثال الذي ذكرته (أحمد شعبان) الرصيد 18800 وليس 18000 وبالتالي ستكون النتيجة مختلفة تفضل المرفق به ماطلبت test 10_2.zip

السلام عليكم أخي العزيز إقرأ الموضوع التالي (بالإنجليزي) http://cpap.com.br/orlando/ExcelCalendarMore.asp?IdC=New

السلام عليكم أخي العزيز من صيغة السؤال فهمت انك تستطيع عملها في نفس الصفحة إذن بعد عملها ، كليك عليها بيمين الماوس ، إقطعها (Cut) ثم في الورقة الثانية إنسخها (Paste)

السلام عليكم الأخت الفاضلة الأفضل دائما إرفاق ملف ليسهل علي من يريد المساعدة عموما كترحيب وتحية لكي لأنها أولي مشاركاتك بالمنتدي أرفقت لكي ملفا أرجو أن بكون هو ماتريدين تفضلي المرفق أسماء الشيتات.rar

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

السلام عليكم أخي العزيز لابد أن يكون مضمون الملف مفيدا لك بطريقة أو بأخري عموما سأجيب علي ماأستطيع في الملف الأصلي قبل التعديل نلاحظ الآتي: الزر Populate يخفي أو يضيف أزرار لتناسب عدد أيام الشهر الذي تم إختياره وضع اللأزرار من اليوم الأول إلي اليوم 30 ثابت ، يتغير فقط اسم اليوم بالصف 2 يوجد خطأ في الكود حيث لايأتي بنتائج إذا كان الشهر فبراير أما بالنسبة لما تطلبه من تعديلات أعتقد أنك تريد إعادة نظر فيها الآن وطبعا لايوجد مستحيل بالإكسل (أو هكذا أظن). وفقك الله

أخي العزيز راجع المواضيع التالية بالمنتدي http://www.officena.net/ib/index.php?showtopic=42497&hl=%2B%D8%AF%D9%88%D8%A7%D8%A6%D8%B1+%2B%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=41391&hl=%2B%D8%AF%D9%88%D8%A7%D8%A6%D8%B1+%2B%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=43520&hl=%2B%D8%AF%D9%88%D8%A7%D8%A6%D8%B1+%2B%D8%AD%D9%85%D8%B1%D8%A7%D8%A1

السلام عليكم أخي الفاضل أرجو الإلتزام بقواعد المنتدي سيتم تغيير إسم الموضوع ليساعد باقي الأعضاء لتفهمه والتقدم بالحلول

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

السلام عليكم أخي الكريم تفضل المرفق وبه الشرح بالصور fig1_2.zip