طارق محمود

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

السلام عليكم أرجو أن يكون المرفق هو ماتريد حساب2.zip

السلام عليكم نظرا لضيق وقتي ساساهم فقط برفع الملف هنا مؤقتا وليتدخل من يشاء من الأحباب لصديقنا أحباب ex.zip

وعليكم السلام ورحمة الله وبركاته أخي وحبيبي أبا البراء

السلام عليكم تفضل المرفق اسم المجموعة.rar

لإرفاق الملف لابد من ضغطه أولا عن طريق winrar أو winzip ثم رفع الملف المضغوط

لإرفاق الملف لابد من ضغطه أولا عن طريق winrar أو winzip ثم رفع الملف المضغوط

تفضل 12345_New4.rar

السلام عليكم لاأدري إن كان هذا ماتريد أم لا تفضل المرفق وقل لي النتيجة 12345_New3.rar

الملف لم يٌرفع بعد يلزمك ضغطه أولا بصيغة winrar أو winzip ثم رفع الملف المضغوط ========== مرفق ملف به المعادلة التي أوضحتها لك في المشاركة السابقة Round.rar

إن كنت تريد أن تجمعها كأرقام صحيحة ويكون الجمع متضمنا التقريب لكل رقم علي حدي فيمكنك بدلا من استخدام صيغة SUM يمكنك استخدام صيغة SUM(ROUND( ولكن بصيغة صفيف أي بدلا من ضغط زر Enter في آخر المعادلة تضغط أزرار Shift-Ctrl-Enter معا

السلام عليكم أخي العزيز أنت لم توضح جيدا إن كنت تقصد آخر يوم عمل في نصف السنة المالية السابق وآخر يوم عمل في السنة المالية السابقة أنظر المرفق مرة أخري 12345_New2.rar

السلام عليكم بعد إذن أخي الحبيب / ياسر أنا فهمت المقصود أخي الكريم / توكل يمكنك إضافة دالة التقريب لرقمين عشريين مثلا في ثلاث مواضع في الكود كالتالي Sub dataselect() T = Round([D21], 2) ' Target Number 1 [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهي طبعا Round(X, 2) حيث X هو الرقم المراد تقريبه كما لاحظت المواضع الثلاثة هي: T = Round([D21], 2) ' Target Number 1 .. .. .. .. If Round(Sm, 2) > T Then GoTo 10 '2 If Round(Sm, 2) = T Then GoTo 20 '3

السلام عليكم تفضل أخي جرب الكود التالي Sub dataselect() T = [D21] ' Target Number [B:B].Interior.ColorIndex = xlNone LR = [B99999].End(xlUp).Row For r = 2 To LR - 1 Sm = Cells(r, 2) For j = r + 1 To LR Sm = Sm + Cells(j, 2) If Sm > T Then GoTo 10 If Sm = T Then GoTo 20 Next j 10 Next r Exit Sub 20 Range(Cells(r, 2), Cells(j, 2)).Interior.ColorIndex = 4 Cells(r, 3).Select MsgBox "Rows from " & r & " to: " & j End Sub وهذا المرفق به الكود SUM.rar

السلام عليكم وبعد إذن الإخوة الأعزاء جميعا ولمزيد من الإثراء أخي العزيز ضع هذا الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count <> 1 Then Exit Sub With ActiveSheet.ListObjects(1) S_Rw = .Range.Row + 1 L_Rw = .ListRows.Count + S_Rw - 1 End With If Intersect(Range(Cells(S_Rw, 2), Cells(L_Rw, 2)), Target) Is Nothing Then Exit Sub Cells(Target.Row, "E") = Time Cells(Target.Row, "F") = Date End Sub يعتمد الكود علي أن يحدث تغيير في إحدي خلايا الجدول بالعمود B عندها يكتب أوتوماتيكيا قيمة الوقت والتاريخ في عموديهما لحظة هذا التغيير تفضل المرفق أيضا طلب دالة أو كود يثبت الوقت والتاريخ تلقائياً.rar

السلام عليكم رائع أخي العزيز / الزباري فككت طلسما كان يسبب مشاكل للعديد من الأعضاء جزاك الله خيرا

السلام عليكم أخي الكريم أرجو أن يكون المرفق هو ماتريد ملحوظة: صلحت لك شيئا يسيرا في المطلوب 12345_New.rar

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

Cond-Format.rarالسلام عليكم مرفق حل ينبهك علي الخلايا التي طولها لايساوي 9 أو 12 بالتنسيق الشرطي Conditional Format أرجو أن يكون هو ماتريد وإلا إرفق أنت ملفا من عندك

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

وهذه الصورة لشرح كيفية فتح موضوع جديد

السلام عليكم ورحمة الله وبركاته جائني علي الخاص الرسالة التالية من أخونا الفاضل (رجب محمد) ===================================== عندي شيت اكسل يحتوي على بيانات اكثر من عشرين الف اسم وقد حاولت ان اطبع كل عشرين اسم في صفحة مستقلة الطريقة التي اتبعها دائما هو عمل بيج بريك للصفحة وظبط الهوامش كما تعلم حضرتك وهذا يتم في ملف صغير يحتوي على عدد قليل من الاسماء اما الملف الاكبر فقد تعبت فيه لان عند الطباعة يظهر في صفحة عدد مثلا ثلاثون وفي صفحة اخري خمسون هل هناك طريق بسيطة لعمل ذلك الرجاء الرد سريعا ولكم جزيل الشكر =================================== إنتهت الرسالة ولم يكن أخونا رجب يستطيع رفع الملف المهم نصحته باستخدام الكود التالي Sub Macro1() LR = Sheet1.[A99999].End(xlUp).Row For r = (15 + 19) To LR Step 20 ' يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1) Next End Sub وبعد إرسال الملف لي واستئذانه في نشره هذا هو الملف مرفق بعد عمل اللازم (ليس به معلومات تضر بمصلحة العمل) بيج بريك.rar

السلام عليكم اخى ياسر هديه قيمة شكر الله لك وبارك الله فيك تقبل تحياتى

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

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