Eid Mostafa

البقاء لله نسأل الله أن يجعل مثواها الجنه فى هذه الأيام المباركه

أخى العزيز / محمود بالفعل حلولك أكثر من رائعه أيضاَ وطريقتان أخريان يضافان لطريقة أستاذنا الكبير (بن علية) زادك الله علماً تنفع به نفسك والآخرين. لك خالص شكرى وتقديرى أخوك عيد مصطفى

أخى العزيز / محمود تقبل الله منكم ومنا كل أعمال الخير فى هذا اليوم المبارك وفى هذا الشهر المبارك وطول العمر بإذن الله لك منى كل التقدير والإحترام على إهتمامك بالرد. زادك الله علماً تنفع به نفسك والآخرين. لك خالص شكرى وتقديرى أخوك عيد مصطفى

أخى العزيز / بن علية هل لى أن أطمع فى علمك وفى كرمك وأن تفيدنى مرة أخرى فى طلبى هذا إن كان ذلك ممكناً ما أريدة هذة المرة عمل Border أسفل آخر حركة فى كل شهر كالتالى: ستلاحظ أن هنالك Border باللون الرمادى فى الأسطر أرقام 11 و 16 و 25 وهذة الأسطر تمثل آخر حركة فى كل شهر بمعنى أن سطر 11 تاريخة 31/1/2012 ، وسطر 16 تاريخة 29/2/2012 ، فى حين أن سطر 25 تاريخة 29/3/2012 وهو تاريخ آخر حركة فى ذلك الشهر وليس 31/3/2012. فهل بالإمكان عمل ذلك بالتنسيق الشرطى أيضاً ؟ مرفق ملف إكسيل لتوضيح ما أقصدة ، وإن كان مختلفاً بعض الشئ فهو يقوم بعمل الــ Border فى نهاية كل عام. أرجو منك التكرم ومساعدتى فى هذا الأمر (إن كان قابلاً للتطبيق). أرجو أن أكون قد وفقت فى شرح طلبى. لك خالص شكرى وتقديرى أخوك عيد مصطفى --Trading Investments-- 2.rar EXAMPLE.rar

ألف ألف مبروك بارك الله لك فيها ورزقك برزقها بإذن الله

أخى العزيز / بن علية تقبل الله منكم ومنا كل أعمال الخير فى هذا اليوم المبارك وفى هذا الشهر المبارك وطول العمر بإذن الله بالفعل هذا هو المطلوب تماماً سلمت يداك. وكما تعودت منك فأنت بالفعل عبقرى المعادلات لما لك من قدرة على تطويعها بالشكل الملائم. زادك الله علماً تنفع به نفسك والآخرين. لك خالص شكرى وتقديرى أخوك عيد مصطفى

الأخوة الأعزاء كل عام وأنتم بخير بمناسبة قرب حلول عيد الفطر المبارك أعادة الله عليكم وعلى الأمه الإسلامية باليمن والخير والبركات بالملف المرفق قمت بإدراج معادلتى MAX & MIN بالخليتان I90 & J90 على التوالى وتم الإتيان بالنتيجة المرغوبة كمعادلات. وبعد ذلك حاولت إضافة المعادلتان للتنسيق الشرطى كى يتم تطبيق المعادلتان معاً بحيث تكون النتيجة تظليل الخلية J25 باللون الأخضر ، والخلية J59 باللون الأحمر بطريقة تلقائية وذلك لتوافق الشرط بكل خليه منهما ولكنى لم أتمكن من ذلك. ملحوظة : أرجو تطبيق التنسيق الشرطى على المدى من J5 : J85 فأرجو منكم التكرم ومساعدتى فى هذا الأمر. أرجو أن أكون قد وفقت فى شرح طلبى. خالص شكرى وتقديرى أخوكم عيد مصطفى --Trading Investments--.rar

الأخ / عبد الله هدية رائعة من شخص أكثر من رائع. لك خالص شكرى وتقديرى أخوك عيد مصطفى

الأخ / رجب الأخ / بن علية هكذا تعودنا منكم دائماً ، قدرة فائقة على تطويع المعادلات بالفعل أنتم عباقرة. لكما خالص شكرى وتقديرى أخوكم عيد مصطفى

الأخ / أبو حنين الأخ / محمود أشكركما بالغ الشكر على إهتمامكما وردكما السريع لكما خالص شكرى وتقديرى أخوكم عيد مصطفى

الأخوة الأعزاء السلام عليكم بالملف المرفق ستجدون معادلة بالعمود C تقوم بإستخراج رقم الشهر ما أريدة هو معادلة تقوم بإستخراج إسم الشهر. لكم خالص شكرى وتقديرى أخوكم عيد مصطفى Book1.rar

أخى العزيز / بن علية السلام عليكم بالفعل أخى لا أملك إلا أن أطلق عليك عبقرى المعادلات (وبهذه المناسبة أذكرك بأنك صاحب الفضل فى المعادلات الموجوده بالملف من قبل) بالإطلاع على الملف أرى أن المعادلة حققت المطلوب بدرجه كبيرة وإن وجدت شيئاً فإسمح لى بالرجوع إليك مرة أخرى وإن كان لى طلب صغير جداً وأرجو ألا أثقل عليك به فإن كان بمقدورك وإن لم يكن فلا بأس أريد أخى العزيز فى حالة إستقالة موظف وكما بالمثال فى 31/5/2012 ألا تظهر للموظف أية بيانات مطلقاً أى تظهر الخلايا كما لو كان ليس بها شئ (أقصد هذه "") اقتراح: يستحسن حفظ الملف بصيغة .xlsb بدلا من الصيعة .xlsm أخى ما القصد من هذا الإقتراح ؟؟؟؟؟؟ لك خالص شكرى وتقديرى أخوك عيد مصطفى

للرفــــــــــــــــــــــــع رمضان كريـــــــــــــــــم

UP

أخى العزيز / محمود السلام عليكم ما أقصدة هو الإستقالة العادية وكذلك الإقالة العادية فأنا لم أتطرق إطلاقاً إلى بلوغ الموظف سن المعاش وليس هذا مقصدى مطلقاً كل ما أريدة المعادلة العكسية لإلحاق موظف بالعمل فستجد أن بيانات الموظف تبدأ فى الظهور بالشيت الخاص بها وذلك إعتماداً على تاريخ إلتحاقه بالعمل مثال : إذا إلتحق موظف بالعمل فى 1 مارس فستجد أن مفردات مرتبه تبداً فى الظهور بدءاً من الشيت رقم 3 وما يلية من شيتات ما أريدة عكس المثال أعلاة بمعنى أنه فى حالة إستقالة موظف فى 31 مارس فأريد أن تتواجد مفردات مرتبة فى الشيتات 1 ، 2 ، 3 ثم لا تظهر بدءاً من الشيت 4 وما يليه وذلك لأنه قدم إستقالته من العمل وبالتالى فليس له وجود بدءاً من 1 أبريل أرجو أن أكون وفقت فى إيضاح طلبى. لك خالص شكرى وتقديرى أخوك عيد مصطفى

أخوانى الأعزاء السلام عليكم الملف المرفق هو ملف لإحتساب ضريبة كسب العمل وفقاً للقانون المصرى وتعتمد آلية الملف على إدخال كافة البيانات الخاصة بالموظفين بشيت DATA وستجدون أن هنالك معادلات كثيرة بشيتات الأشهر تعتمد كلية على كل ما يتم إدخالة بشيت DATA. وما أريد إضافتة لهذا الملف هو تاريخ إستقالة الموظف وليكن بعمود J بشيت DATA مع إتباع نفس آلية المعادلات الموجودة. بحيث على سبيل المثال فى حالة إستقالة أحد الموظفين فى تاريخ 31 مايو 2012 على سبيل المثال فلا تظهر لة بيانات (مفردات مرتب) فى الشيتات التى تلى الشيت رقم (5). أرجو أن أكون وفقت فى إيضاح طلبى. لكم خالص شكرى وتقديرى أخوكم عيد مصطفى Payroll Tax - 2012.rar

الأخوة الأعزاء ما زلت فى إنتظار إفاداتكم أخوكم عيد مصطفى

أخى العزيز / عبد الله بداية وبالمصرى ليك وحشه والله وبالطبع أشكرك أيضاً على إهتمامك بالرد وأرجو منك التكرم بالإطلاع على الصور المرفقة والتى توضح إعدادت النظام فهل هنالك شئ لم أقم به بعد ؟ أرجو التكرم بالإفادة لك خالص شكرى وتقديرى أخوك عيد مصطفى Regional Setting.rar

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

أخوانى الأعزاء السلام عليكم أرسل لكم اليوم بعد أن أعيانى البحث عن حل لتلك المشكلة ، والتى أتعشم أن أجد حلاً لها بفضلكم بإذن الله. المشكلة وكما يبدو من الصور المرفقة تتلخص فى عدم عرض اللغة العربية بشكل صحيح وتظهر فى شكل لغة أو رموز غريبة لا أعلمها ، ولا أعلم إن كان هنالك Setting معين يجب ظبطه أم ماذا. وللتوضيح أكثر فالمطلوب كالتالى :- أولاً : أن تظهر كلمة " مدين " أو " دائن " بالخلية J7 حسب رصيد الحساب وذلك بالإستعانة بالكود التالى:- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2,E6,C6,C7")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next If Target Is emptey Then Sheet2.Range("B12:C403,E12:J403").ClearContents R = 12: sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0 For I = 2 To Sheet1.Range("C2000").End(xlUp).Row + 1 Application.ScreenUpdating = False If Sheet2.Range("E6").Value = Sheet1.Cells(I, "C") Then If Sheet2.Range("C6").Value > Sheet1.Cells(I, "H") Then sum3 = sum3 + Sheet1.Cells(I, 1): sum4 = sum4 + Sheet1.Cells(I, 2) End If If Sheet2.Range("C7").Value = "" Then GoTo a2 If Sheet2.Range("C7").Value >= Sheet1.Cells(I, "H") Then a2: If Sheet2.Range("C6").Value = "" Then GoTo a3 If Sheet2.Range("C6").Value <= Sheet1.Cells(I, "H") Then a3: Sheet2.Cells(R, 2) = Sheet1.Cells(I, 1) Sheet2.Cells(R, 3) = Sheet1.Cells(I, 2) Sheet2.Cells(R, 5) = Sheet1.Cells(I, 5) Sheet2.Cells(R, 6) = Sheet1.Cells(I, 9) Sheet2.Cells(R, 7) = Sheet1.Cells(I, 7) Sheet2.Cells(R, 8) = Sheet1.Cells(I, 6) Sheet2.Cells(R, 9) = Sheet1.Cells(I, 8) Sheet2.Cells(R, 10) = R - 11 sum1 = sum1 + Sheet1.Cells(I, 1) sum2 = sum2 + Sheet1.Cells(I, 2) R = R + 1 End If End If End If Next I [h5] = sum1: [i5] = sum2: [J5] = sum1 - sum2 [h4] = sum3: [i4] = sum4: [J4] = sum3 - sum4 [H7] = [J5] + [J4] If [H7] < 0 Then [J7] = "مدين" ElseIf [H7] > 0 Then [J7] = "دائن" Else [J7] = "--" End If End If End If If Not Intersect(Target, Range("C2")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.ScreenUpdating = False [E6] = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("data"), 2, False) End If If Not Intersect(Target, Range("E6")) Is Nothing Then Application.ScreenUpdating = False On Error Resume Next Application.EnableEvents = False Target.Offset(-4, -2).Value = Application.WorksheetFunction.VLookup(Target, Sheet3.Range("G1:H200"), 2, False) Application.EnableEvents = True End If End Sub ثانياً : أن يظهر المبلغ بالحروف بالخلية E408 حسب رصيد الحساب وذلك بالإستعانة بالكود التالى وهو كود تفقيط للمبالغ :- Sub Hide_Rows() MsgBox ("You are now in the process set the page settings for printing") Application.ScreenUpdating = False W = ActiveSheet.UsedRange.Rows.Count On Error Resume Next Range("J1:J" & W).AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.PrintPreview Range("J:J").AutoFilter Application.ScreenUpdating = True End Sub أتعشم فى الله خيراً ثم فيكم أن أجد الحل المناسب لتلك المشكلة. لكم خالص شكرى وتقديرى أخوكم عيد مصطفى

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

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

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

حمد لله على السلامه أبو أحمد وعمرة مقبولة بإذن الله وعقبال الحج لكم ولنا بإذن الله تعالى

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