طارق محمود

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

السلام عليكم أخي محمود عندك حق المعادلات كثيرة جدا وتستهلك وقت أخي ابن مرضاح ممكن الحل بالأكواد سيكون أسرع وأقل حجما علي الملف لكن عموما ، أتمني أن يكون المرفق (بالمعادلات) به ماتريد في طلبك الأخير تفضل المرفق علي جزئين (لتفادي موضوع الحد الأقصي للمرفقات) تنزل الجزئين في فولدر واحد وبعد ذلك تعمل لهما extract ملف نموذج3.part1.rar ملف نموذج3.part2.rar

السلام عليكم تفضل المرفق به عمودين مخفيين D,E إظهرهما لتتعرف علي المعادلات وبه أيضا تنسيق شرطي بالعمود B، يجعل الأرقام الغير موجودة في العمود A تتلون بالأحمر أوتوماتيكيا ملف نموذج2.rar

نسيت أخبرك أن تسمي أي مجال بإسم room1 (الأصفر) ليعبر عن عدد صفوف وأعمدة الحجرة 1 و تسمي أي مجال آخر بإسم room2 (الأخضر) ليعبر عن عدد صفوف وأعمدة الحجرة 2 وطبعا تستطيع تغيير العدد في الغرفتين كما تحب مثلا إن كان عندك 120 طالب ، يعني يلزمك (120-104) = 16 مكان وكل مكان محجوز له مقعدين يعني 32 مقعد زيادة ممكن تزيد عدد المقاعد صفين×8 لكل حجرة لتكون 16×8 + 14×8 = 240 فلتحدد فقط مثل هذه المساحات (عدد من الخلايا) وتسميها كما سبق والكود سوف يقوم بالباقي

إذا كنا اتفقنا علي ذلك فالمرفق به ماطلبت تفضل Rnd_N_REP_3.rar

السلام عليكم بداية ، هذا سيكلفنا عدد من المقاعد = ضعف عدد الطلبة وحيث أن إجمالي المقاعد في الغرفتين = 112+96 = 208 ، إذن أقصي عدد من الطلاب في هذه المقاعد تحت هذا الشرط هو 104 (نصف الـ 208) ولايمكنك توزيع أكثر من هذا إلا إذا زادت المساحة أو عدد المقاعد متفقين؟؟

السلام عليكم بعد إذنك أخي / محمود أخي العزيز ؟ خالد يمكنك قراءة التعليق وتحميل الملف في المشاركة 24 ستجد أن المعادلة بدلا من IF(ISERROR(FIND(ADDRESS(ROW(),MOD(COLUMN()-1,4)+1,4),CHOOSE(MID(TEXT($T$1,"0000"),INT(COLUMN()/4)+1,1)+1,"A1A2A3A4A5B1B5C1C2C3C4C5","C1C2C3C4C5","A1A3A4A5B1B3B5C1C2C3C5","A1A3A5B1B3B5C1C2C3C4C5","A1A2A3B3C1C2C3C4C5","A1A2A3A5B1B3B5C1C3C4C5","A1A2A3A4A5B1B3B5C1C3C4C5","A1B1C1C2C3C4C5","A1A2A3A4A5B1B3B5C1C2C3C4C5","A1A2A3B1B3C1C2C3C4C5"))),"","*") أصبحت كالتالي =IF(ISERROR(FIND(ADDRESS(rw,MOD(cl-1,4)+1,4),CHOOSE(MID(tx,INT(cl/4)+1,1)+1,_0,_1,_2,_3,_4,_5,_6,_7,_8,_9))),"","*") وهكذا يمكنك تتبعها ونحن جميعا معك لفهم اي من أطراف هذه المعادلة الشيقة

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

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

هذه الرسالة من تضبيط الإكسل في جهازك من القائمة الرئيسية Excel Options إختر Trust Center ثم Trust Center Settings ثم Macro Settings ثم Enable all macros (not recommended ..

أخي الحبيب / محمود أليس من الأفضل ان تسهل قليلا علي من أراد فهم الحيلة ليستفيد منها بعد إذنك سأرفق الملف بعد عمل تعديلات طفيفة عليه لتسهيل الفهم والإستفادة لمن أراد التعديلات مثل 1. أضفت أسماء لبعض المتغيرات مثلا الشكل 0 والذي ترمز إليه بالرمز (A1A2A3A4A5B1B5C1C2C3C4C5) سميته _0 ونفس الحال لباقي الأرقام 2. أضفت ورقة أخري بها جميع أشكال الأرقام من0 إلي 9 ينتج عن هذا أن المعادلة أصبحت صغيرة نسبيا ويسهل تتبع الحيلة اللذيذة تفضلوا المرفق من عجائب المعادلات2.rar

السلام عليكم أرجو أن يكون المرفق هو ماتريد أضفت عمود خاص بالعميل الرئيسي وافترضت بعضهم رئيسين (لهم عملاء تابعين) مثل عميل_001 ، عميل_009 ، عميل_018 ، عميل_029 ، عميل_040 ، عميل_049 ، عميل_050 ، عميل_060 ، عميل_070 وأضفت اداة البحث منها تختار فينقلك للصفحة المقصودة ثم تظهر لك اداة بحث مماثلة للأولي بها العملاء التابعين (إن كان رئيسيا) جرب المرفق وأخبرني دفتر اقساط4.rar

السلام عليكم سأحل لك فقط أول سؤال في المرفق الكود التالي في حدث الصفحة الرئيسية وهو يخفي باقي الأوراق كلما رجعت للصفحة الرئيسية الكود Private Sub Worksheet_Activate() For i = 2 To Worksheets.Count Sheets(i).Visible = False Next End Sub السؤال الثاني سأفكر فيه السؤال الثالث ، مش فاهمه ، ياريت توضح أكثر تفضل المرفق به حل أول سؤال فقط دفتر اقساط3.rar

رائعة جزاك الله خيرا

السلام عليكم بعد إذن أخي أبوحنين يمكنك أيضا إضافة هذه الجزئية والتي ستوقف عمل الزر الأول إستبدل السطر الثالث من كود أخي أبوحنين والذي كان If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True ليكون If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True: CommandButton1.Enabled = False: TextBox1.Enabled = False حيث أنه بدون هذه الإضافة سيستمر بالسماح بالإضافة لأن الفورم ماتزال مفعلة

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

السلام عليكم أخي العزيز تقول إذن كيف تعرف الديون علي العميل حسب فهمي لكل عميل جانب دائن (الدفعات التي دفعها) وجانب مدين (عدد وأسعار البضاعة التي استلمها)

السلام عليكم مضبوط ، فهمك للدالة تمام 100% ورقم الحصة والصف اللذان ذكرتهما مضبوتان فقط أعد تعريض الأعمدة لتظهر قيمة الخلية

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

السلام عليكم مرفق الحل بالمعادلات مع ملاحظة أن التاريخ في العمود A لابد أن يكون تصاعديا للحصول علي نتيجة مضبوطة من الدالتين OFFSET / MATCH في أول تاريخ أو الدالة LOOKUP في آخر تاريخ تفضلي المرفق تاريخ أول وأخر تعامل2.rar

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

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

وشرحا لهذه المعادلة أولا هذا المدي الديناميكي class_T يعتمد أساسا علي مقدار الخلية N3 كما سبق وشرحت بمعني أن إختيار اللغة الإنجليزية في الخلية L3 سيأتي بالرقم 3 في الخلية N3 وبالتالي يكون class_T = المدي E3:E20 ثانيا في العمود M معادلة أخري تعتمد علي ذلك المدي الديناميكي class_T بدءأ من M5 للأسفل يأتي بأعلي رقم ثم الذي يليه وهكذا ثالثا بالتنسيق الشرطي للعمود M تختفي البيانات إذا كانت الرجة أقل من 90 رابعا المعادلة التي تسأل عنها =OFFSET($B$2,MATCH(M5,class_T,0),0) تأتي بالإسم المقابل للرقم في العمود M إذا مررناه علي المدي class_T يعني MATCH تأتي بترتيبه (مثلا هذا الرقم موجود في خامس صف من class_T) ، OFFSET تأتي من العمود B الذي به اسم الطالب وبالتحديد بداية من B2 تبتعد عدد الصفوف الذي جائها من MATCH (مثلا 5)

السلام عليكم أخي العزيز هذا مدي ديناميكي وهو واحد من أفضل مميزات الإكسل عموما ، إذا ضغطت Ctrl+F3 سيظهر لك قائمة بها الأسماء التي قمت بتسميتها في الملف وفي حالتنا هذه ستظهر لك القائمة وبها إسم واحد هو class_T وفي معادلته ستجد أنه يساوي =OFFSET('11s'!$B$2,1,'11s'!$N$3,18,1) وهذا يعني أنه مدي متغير مكون من 18 صف وعمود واحد ويبدأ من الخلية التي تبعد عن B2 بمقدار صف واحد للأسفل وعدد من الأعمدة = الخلية N3

السلام عليكم أخي الحبيب الشرح يتكون من عدة خطوات في إيجاز 1. كلما أشرت بالماوس علي أي من الخلايا الصفراء في ورقة "الاساتذة" تتغير تلقائيا قيمة الخلية F5 في ورقة "الشكل الذي اريده عند الضغط" 2. وفي ورقة "الشكل الذي اريده عند الضغط" بتغير قيمة الخلية F5 يتغير محتوي الجدول الموجود ليحتوي علي بيانات الأستاذ المذكور 3. الصورة الموجودة بورقة "الاساتذة" تحمل شكل الخلايا المراد صورتها من ورقة (الشكل الذي اريده عند الضغط) يعني باختصار كلما أشرت بالماوس علي إحدي الخلايا تحمل إسم الأستاذة تتغير تلقائيا قيمة الخلية F5 في الشيت السابع لتحمل إسم الأستاذ المراد فيتغير تلقائيا محتويات الجدول بالشيت السابع ومن ثم يتغير شكل الصورة التي تنقل الجدول منه والآن الشرح التفصيلي الخطوة الأولي : يوجد كودين في حدث صفحة "الاساتذة" الكود الأول : إذا تغير محتوي الخلية A11 (التي بها قائمة منسدلة) فيعطي قيمته للخلية F5 في ورقة "الشكل الذي اريده عند الضغط" If Target.Address <> "$A$11" Then Exit Sub Sheet7.[F5] = Target.Value الكود الثاني : إذا تغير مؤشر الماوس (أو بالكيبورد - يعني الإختيار) إلي أي من الخلايا A2:A9 (الصفراء) فيعطي قيمته أيضا للخلية F5 في ورقة "الشكل الذي اريده عند الضغط" If Intersect(Target, [A2:A9]) Is Nothing Then Exit Sub Sheet7.[F5] = Target.Value الخطوة الثانية: إذهب للشيت السابع (الشكل الذي اريده عند الضغط) تم عمل مجموعة من المعادلات به تجعل جدول الأستاذ يأتي أوتماتيكيا لهذا الشيت ، أنت سألت فقط عن دالة OFFSET وهي تكون بالصيغة OFFSET(A,r,c) حيث تأتي لك بما في الخلية التي تبعد عن الخلية A,r,c بعدد من الصفوف = r وعدد من الأعمدة = c يعني OFFSET(A1,5,3) ستأتي لك بمحتوي الخلية D6 (التي تبعد 3 صفوف ، 5 أعمدة عن A1) أنظر للخلايا الصفراء في ورقة Names وطبعا OFFSET(السبت!A1,5,3) ستأتي لك بمحتوي الخلية D6 (التي تبعد 3 صفوف ، 5 أعمدة عن A1 من ورقة السبت) وباقي الدوال والمعادلات يمكنك مراجعتها والسؤال فيما تشاء الخطوة الثالثة: في ورقة "الاساتذة" : أضف أي صورة (أي صورة عندك بالكمبيوتر ، طبعا يكون حجمها صغير) وتجعل هذه الصورة تحمل شكل الخلايا المراد صورتها من الشيت السابع (الشكل الذي اريده عند الضغط) كليك علي الصورة وفي سطر العنوان بأعلي القائمة الرئيسية بجوار ƒx تكتب = ثم تشير بالماوس علي مساحة الجدول أرجو أن أكون وفقت بالشرح مرفق الملف مرة أخري school5.rar