طارق محمود

السلام عليكم حياكم الله جميعا ماشاء الله ، كما توقعت والحمد لله وفقنا الله لإظهار معلومات قيمة لدي بعض الأعضاء والآن لتنشيط الموضوع مرة أخري سأذهب بكم للمسألة الثانية ماذ تفعل لو - المسألة الثانية ماذ تفعل لو أردت أن ترسم شكل بياني لآخر أسبوع فقط من جدول متجدد البيانات كثير من الأحيان يكون لديك جدول وتزيد فيه البيانات بشكل يومي أو أسبوعي مثلا ويكون المطلوب التعبير عن ذلك بيانيا ولكن إذا زادت البيانات فيكون لاداعي لإظهار البيانات كلها علي الشكل البياني ومايهم الإدارة مثلا هو آخر أسبوع / آخر شهر .. وهكذا والحل التقليدي أن تحرك بالماوس كل فترة (قد يكون كل يوم) ، تحرك نطاق الرسم وقد تنسي ذلك في مرة ، وتقدم بيانات قديمة أو أكثر من اللازم في المرفق ورقتين بهما نفس البيانات والرسم، الأولي بالطريقة التقليدية والثانية تم حل هذه المشكلة بها إحذف أو أضف أسطر من أو إلي البيانات ، ستجد الرسم يعبر دائما عن آخر 7 بيانات أترككم أيضا تكتشفون العملية التي تمت علي الورقة الثانية نطلب مساعدة من صديق (المدي"النطاق" الديناميكي) وأنتظر تعليقاتكم ومشاركاتكم رسم آخر 7.rar

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

السلام عليكم أخي العزيز ربما لم أفهم ماتريد جيدا ولكن أنظر المرفق قد يكون هو ماتريد Book1_2.rar

أخي الحبيب / محمد مصطفى الدالة mod تأتي لك بباقي الفسمة بين رقمين مثلا mod(12,2) تقسم 12÷2 والباقي صفر كما أن mod(15,2) تقسم 15÷2 والباقي 1 واستخدامنا لها مع رقم السطر سيرجع لنا إما بصفر في الصفوف الزوجية ، 1 في الصفوف الفردية أخي الحبيب / نورسعيد راجع التنسيق الشرطي Conditional Format ستجد به المعادلة المذكورة أو أخبرني بأي إكسل تستخدم 2003 ، 2007/2010 وسوف أدلك علي مكان التنسيق الشرطي Conditional Format لو لم تكن تعرفه

السلام عليكم أخي الحبيب / عبدالله المجرب (أبو أحمد) جزاك الله خيرا ، وأشكر تفاعلك المتميز أخي الحبيب / محمد مصطفى جزاك الله خيرا ، شاكرا مرورك الكريم أخي الحبيب / عيد مصطفى جزاك الله خيرا ، شاكرا مرورك الكريم أخي الحبيب / أبو ردينة جزاك الله خيرا ، شاكرا مرورك الكريم أخي الحبيب / الصديق جزاك الله خيرا ، شاكرا مرورك الكريم أخي الحبيب / نورسعيد جزاك الله خيرا ، شاكرا مرورك الكريم أخي الحبيب / عبدالله باقشير مرورك شرف كبير لنا جميعا وكما أشرت في المقدمة أنا أساسا مقتبس منكم الفكرة جزاك الله كل خير أخي الحبيب / حاجب جزاك الله خيرا ، شاكرا مرورك الكريم

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

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

السلام عليكم ممكن عمل بعض التعديلات عليه ليقلل الوقت والحجم للملف لكن أخبرني لماذا تريد البيانات مرتين مرة في سوق كذا ثم مرة في To_سوق كذا إذا لم يكن عندك مانع ممكن إلغاء كل ورقات To_ ويتم الترحيل مباشرة من ورقات الأسواق إلي All_Market ثم الكود الذي علي ورقة All_Market يستهلك الكثير من الوقت عند عمل أي تغيير سأفكر في بديل

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

السلام عليكم ورحمة الله وبركاته علي نسق الموضوع الرائع والمتميز "هل تعلم---------- معلومات تخص ListBox" لأخونا وأستاذنا الجليل / عبد الله باقشير (خبور خير) كما هي مواضيعه دائما ، أعزه الله وبارك له في جهده ووقته أردت أن نبدأ معا موضوع مشابه بعنوان "ماذ تفعل لو" وقصدت هنا أن نتعرض للمسائل التي نحتاجها كثيرا ، علي إختلاف وظائفنا واهتمامتنا تلك المسائل التي قد تأخذ الكثير من الوقت وقد يكون عند أحدنا حل سريع لها (بالمعادلات أو الأكواد) أو إن جاز التعبير (بعض التحايلات علي الإكسل) وللعلم سأستعين بأمثلة موجودة في كتاب إسمه : EXCEL-2007-Formulas_John Walkenbach أرجو أن يعجبكم الموضوع وان يشارك الجميع بما يفتح به الله عليه ملاحظة : بناءا علي طلب أخونا الفاضل حسين في المشاركة #27 من الموضوع سأضع فيما يلي فهرس للموضوعات 1- المسألة الأولي : تظليل سطر وتترك سطر -------------------------------------------- بدءا من المشاركة # 2 2- المسألة الثانية : تشكيل بياني أوتوماتيكي لآخر عدد محدد من البيانات -------------------------------------------- بدءا من المشاركة # 22 3- المسألة الثالثة : الحصول علي آخر (أحدث) سعر / بيان -------------------------------------------- بدءا من المشاركة # 34

السلام عليكم كليك يمين علي المحور الرأسي ستظهر لك نافذة أول أقسامها Axis Options وفي آخر هذا القسم من الأسفل جزء عنوانه Horizontal Axis Crosses أكتب رقم التقاطع الذي تريده ، في هذه الحالة 1.0E-27 وتفضل المرفق به ماطلبت وبه أيضا شارت آخر به بعض التحسين في المحور الأفقي 5-3_3.rar

السلام عليكم تفضل أخي المرفق به التعديلات اللزمة new_Book1.rar

السلام عليكم أخي الكريم يمكنك مراجعة الروابط التالية ومع قليل من الممارسة ستكون أستاذا في هذا الباب الجميل من ابواب الإكسل http://www.officena.net/ib/index.php?showtopic=34017&st=0&p=177826&hl=+pivot%20+table&fromsearch=1&#entry177826 http://www.officena.net/ib/index.php?showtopic=33782&st=0&p=176182&fromsearch=1&#entry176182 أو ابحث عن Pivot Table وإذا أردت الشرح من أول ألف باء جداول فعليك بالرابط http://www.officena.net/Taher/Pivot/Pivot.htm

السلام عليكم علي قد ماأعرف مؤقتا الجزء الأول تفضل المرفق حوالة الدفع بالفورم_معدلة1.rar

السلام عليكم أخي الكريم الطلبات التي أرسلتها كثيرة وتحتاج وقت كما أنني للأسف لست جيدا في الفورم ومكوناتها أقترح عمل طلباتك جزء بجزء وأنت عليك التجميع أو حتي بعد استكمالها تطلب التجميع ولنبدأ بالطلب الذي في ورقة PROG وسوف أعيد صياغته المطلوب عمل فورم بها عدد 7 كمبوبوكس/ أو ليستبوكس تستقي بياناتها من هذه الصفحة من وجهه نظري نبدأ بعمل تصفية Filter-Advance -Unique records بالكود طبعا ، لكل عمود في أعمدة أخري بعيدة وتكون هذه الأعمدة الجديدة هي مصدر البيانات للـ كمبوبوكس/ أو الليستبوكس

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك القيم بالشارت تبدأ بالقيمة 1.54E-27 وتنتهي بالقيمة 1.23E-08 وهذا فارق كبير للغاية لن تستطيع التمييز بين النقاط علي المنحني ولا علي المحور الرأسي للتوضيح أكثر بين أقل قيمة وأكثر قيمة فارق كبير من 27 إلي 8 = 19 خانة وتتساوي هذه المشكلة فيما إذا كانت الخانات أرقام عشرية أو صحيحة سأشرح علي الأرقام الصحيحة لتقريب الموضوع لو أخذنا مقياس الرسم مثلا كل 6 أصفار نقطة (مليون في الأرقام الصحيحة) فستظهر القيم 0 ، 10 ، 100 ، .. حتي المليون في نقطة واحدة علي المحور الراسي ولن تظهر في النقطة الثانية إلا الأرقام من 1,000,000 إلي 1,000,000,0000,000 وهكذا ولعلاج ذلك يُنصح في هذه الحالة باستخدام المقياس اللوغاريتمي للمحور الرأسي مما يساعد علي رؤية النقاط علي المحور الرأسي أو علي المنحني أنظر الملف المرفق الشكل العلوي كما هو الشكل السفلي (الأصفر) بالمقياس اللوغاريتمي ولاتتردد في أي سؤال 5-3_2.rar

السلام عليكم ممكن طبعا ولكن اعطيني معيار إذا تم تغييره أو ملؤه ، يتم تشغيل الكود أوتوماتيك و ويتم تنفيذ الجزئية الخاصة بنسخ السطر مباشرة مثلا لو وضعت رقم مسلسل في أول خانة تكون البيانات كاملة أو لو كانت عدد البيانات مثلا كذا ، أو العمود الخاص بالسائق لايكون فارغا ولكن في هذه الحالة عندك مخاطرة أن يتم تنفيذ الكود قبل أن تستكمل بيانات الصف ببساطة تخيل أنك تريد التعديل في السطر 60 انقل بياناته copy / Paste للسطر 46 ثم عدل كما تشاء ولا تضغط السهم ، فقط .copy / Paste Special.Value من الصف 46 للسطر 60

السلام عليكم أخي العزيز طبعا كان ممكن ، وكنت ستأخذ النقطة كفاصل بين الكلمات ولكنك كنت ستضطر لتجميع بعض الأسماء التي بها نقطة أخري مثل M. Amjad Hussain في السطر 18 T. Meera في السطر 30 Mohammed R. Al Faleh في السطر 44 ممكن أيضا ولكني قرأت أن الوقت المتاح للإمتحان كله 15 دقيقة فقط ومخاطرة أن تؤلف دالة قد تصيب وقد تخطيء في مثل هذا الوقت مخاطرة شديدة ، أنا شخصيا لاأفضلها ، ولكن الموضوع يرجع لمستواك في الأكواد والدوال السؤال الرابع كما شرحته في الملاحظة (البحث عن الإميلات الخطأ) بسهم الفلتر التصفية 1- التي لاتحتوي علي @ 2- التي تحتوي علي " " مسافة 3-التي لاتحتوي علي "." من سؤالك السابق واضح أنك فاهمه ، لعلك تقصد السؤال الخامس وباختصار كل الأرقام التي في المثال (فيما عدا أول سطر) مكونة من اليسار من 3 خانات مفتاح الدولة + 1 خانة للمنطقة + الباقي لو الأرقام في العمود N أدرجت بجواره 3 أعمدة ثم كونت المعادلة التالية للرقم الذي في الخلية N3 =LEFT(N3,3)&"#"&MID(N3,4,1)&"#"&RIGHT(N3,LEN(N3)-4) ثم نسختها لباقي العمود ثم Copy / Paste.special / Value ثم استخدمت Text to Column بفاصل # والباقي سهل تتعرف عليه (وضع + ، وضع 0 ، مسافة ) أرجو أن أكون وفقت

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

السلام عليكم أخي الكريم تفضل المرفق اضغط السهم الأحمر ادراج صف جديد.rar

السلام عليكم أخي العزيز الملف وبه الحلول مع بعض الإيضاحات تفضل المرفق Data Sample for Test - Candidate Name.rar

السلام عليكم أخي العزيز كنت قد حللتها بالمعادلات (باستخدام عمود مساعد) قبل أن أنتبه لطلبك بالأكواد زيادة الخير خيرين تفضل الحل بالطريقتين (بالمعادلات + بالأكواد) Book1_both.rar

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Target, Range("range46")) Is Nothing Then Exit Sub If [C46] = "" Then [D46] = 0: GoTo 10 [D46] = WorksheetFunction.Lookup([C46], [B3:B39], [C3:C39]) 10 If [C46] = "" Or [F46] = "" Then [G46] = 0: GoTo 20 [G46] = WorksheetFunction.Lookup([F46], [AH3:AH39], [AI3:AI39]) 20 If [L46] = "" Then [M46] = 0: GoTo 30 [M46] = WorksheetFunction.Lookup([L46], [D3:D39], [E3:E39]) 30 If [G46] <> [AI5] Or [K46] = "" Or [K46] = 0 Or [D46] = "" Or [D46] = 0 Then [N46] = 0: GoTo 40 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 [N46] = WorksheetFunction.HLookup([K46], [L2:Q39], x, 1) 40 If [K46] = "" Then [O46] = 0: GoTo 50 If [G46] <> [AI4] Then a1 = 0: GoTo 42 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 a1 = WorksheetFunction.HLookup([K46], [V2:AA39], x, 1) 42 If [G46] <> [AI3] Then a2 = 0: GoTo 44 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 a2 = WorksheetFunction.HLookup([K46], [F2:K39], x, 1) 44 If [G46] <> [AI6] Then a3 = 0: GoTo 46 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 a3 = WorksheetFunction.HLookup([K46], [AC2:AD39], x, 1) 46 If [G46] <> [AI7] Then a4 = 0: GoTo 48 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 a4 = WorksheetFunction.HLookup([K46], [AB2:AB39], x, 1) 48 [O46] = a1 + a2 + a3 + a4 [P46] = [O46] * 1.1 'O46 = IF(G46=$AI$4 ,HLOOKUP(K46,$V$2:$AA$39, x ,TRUE),0) ' +IF(G46=$AI$3 ,HLOOKUP(K46,$F$2:$K$39, x ,TRUE),0) ' +IF(G46=$AI$6 ,HLOOKUP(K46,$AC$2:$AD$39, x ,TRUE),0) ' +IF(G46=$AI$7 ,HLOOKUP(K46,$AB$2:$AB$39, x ,TRUE),0) If [L46] = 100 Or [L46] = 50 Or [L46] = "" Then [S46] = 0: GoTo 50 If [D46] = 0 Or [D46] = "" Then GoTo 50 x = WorksheetFunction.Match([D46], [C3:C39], 0) + 1 [S46] = WorksheetFunction.HLookup([K46], [R2:U39], x, 1) 50 End Sub أما الكود التالي ففي الموديول عادي واربطه بزر تضغط عليه بعد نهاية الإدخال فيرحل للأسفل تفضل المرفق وبه بعض التوضيحات دفترالحركه2.rar

أخي العزيز جاري العمل علي الموضوع إن شاء الله اليوم سأرفعه لك

السلام عليكم أخي الكريم أضف الكود التالي (في حدث الصفحة) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 2 Then Exit Sub LR = [A10000].End(xlUp).Row For i = 1 To LR If Cells(i, 1) = "d" Then Cells(i, 2) = -Abs(Cells(i, 2)) Else Cells(i, 2) = Abs(Cells(i, 2)) End If Next i End Sub فكرة الكود في كل مرة ـ تأتي علي أي من خلايا العمود الأول أو الثاني (بالماوس أو بأزرار الكيبورد) في كل مرة ، سيتم تشغيل برنامج فحص لخلايا العمود الأول ويضع أمام كل c موجب وأمام كل d سالب تفضل المرفق وبه الكود القيم السالبة.rar