أ / محمد صالح

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

تمت الإجابة عن هذا الاستيضاح ولم تتم عن هذا وذلك طبعا إذا زاد المحقق في منطقة عن النسبة التي ينبغي أن يصل إليها الكل

الشكر لله خالص دعواتي بالتوفيق

يفضل البدء بموضوع جديد بعنوان جديد مادام المطلوب مختلف هذا الموضوع يحتوي على ثلاثة مطلوبات أو أربعة على كل حال ضع قبل نهاية الإجراء مباشرة Me.TextBox2 = i2 بالتوفيق

بما ان الضرب في 24 يجلب التاريخ مع الوقت وليس الوقت فقط نجرب استعمال دالة hour الاضافي: hour(000) حيث 000 هي المعادلة القديمة بالتوفيق

ربما يفيدك هذا الفيديو عن الحساب التكراري بالتوفيق

جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

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

جميعا بإذن الله

إن شاء الله يكون هذا هو المطلوب تم إخراج الترحيل لشيت حجوزات من شرط عدم فراغ txt3 ' ليدجر - حجوزات ترحيل Application.ScreenUpdating = FALSE Dim answer As Integer answer = MsgBox("ترغب فى ادخال هذه البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "Confirmation") If answer = vbYes Then If Txt3 <> "" Then Dim rng1 As Range Dim str_search As String str_search = Txt3.Value Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole) Dim row_number As Long row_number = rng1.Row Dim lastcolumn As Long lastcolumn = IIf(Sheets("ليدجر").Range("lu" & row_number) = "", 333, Sheets("ليدجر").Range("lu" & row_number).End(xlToRight).Column + 1) Sheets("ليدجر").Cells(row_number, lastcolumn).Value = C3.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 1).Value = CDate(C4) Sheets("ليدجر").Cells(row_number, lastcolumn + 2).Value = C5.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 3).Value = C6.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 4).Value = C7.Value 'Sheets("ليدجر").Select Cells(row_number, lastcolumn).Select End If Dim lastrow As Long lastrow = ThisWorkbook.Sheets("حجوزات").Range("D100000").End(xlUp).Row lastrow = lastrow + 1 With ThisWorkbook.Sheets("حجوزات") .Range("H" & lastrow).Value = Txt50.Value .Range("I" & lastrow).Value = Txt3.Value .Range("D" & lastrow).Value = TXT1.Value .Range("G" & lastrow).Value = CDate(TXT2) .Range("F" & lastrow).Value = Txt8.Value .Range("K" & lastrow).Value = Txt18.Value .Range("M" & lastrow).Value = Txt28.Value .Range("N" & lastrow).Value = Txt31.Value 'كود مسح البيانات Me.Txt50.Value = "" Me.Txt3.Value = "" Me.TXT1.Value = "" Me.TXT2.Value = "" Me.Txt8.Value = "" Me.Txt18.Value = "" Me.Txt28.Value = "" Me.Txt31.Value = "" End With End If Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" بالتوفيق

سلمكم الله من كل سوء

عليكم السلام السطر الذي يقوم بالطباعة هو sh.Range("a1:q30").PrintOutt نقوم بتغييره إلى sh.Range("a1:q30").PrintOutt Copies:=2 بالتوفيق

جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

بإذن الله يكون هذا هو المطلوب يمكنك استعمال هذه المعادلة في الخلية J3 =MAXIFS('m cost'!$D$3:$D$10,'m cost'!$A$3:$A$10,B3,'m cost'!$B$3:$B$10,"<="&S3,'m cost'!$C$3:$C$10,"<="&R3) بالتوفيق

لا أعتقد أن هذا هو المطلوب @د.كاف يار لأن النتيجة المطلوبة على. ترتيب السجلات هي 5 0 0 8 4 والحمد لله تم تحققها في معادلتي

هل تقصد أن المعادلة تجلب آخر تكلفة لنفس الصنف أم أكبر تكلفة لنفس الصنف؟ بحيث ربما تكون آخر تكلفة أقل

يمكنك استعمال هذه المعادلة مع تغيير تنسيق الحقل إلى hh:mm الاضافى: IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف])) إن شاء اللّه هي المطلوب حيث تراعي إذا كان الانصراف قبل أو بعد بداية الانصراف حتى بعد منتصف الليل وإذا كنت تريد الحصول على رقم صحيح فيمكنك استعمال هذه المعادلة بدون تنسيق الحقل الاضافى: hour(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,24-[بدايه الانصراف]+[الانصراف]))) بالتوفيق

هل تقصد تساوي عمود النسبة؟ لأني أرى القيم في عمود الرصيد غير متساوية وهل يمكن أن يكون الرصيد رقما عشريا أو سالبا؟ كنوع من الدقة

جميعا بإذن الله

هذا الموضوع تمت مدارسته أكثر من مرة في منتدانا الرائع لمن يريد التعلم بفضل الله إن شاء اللّه تفيدك هذه النتائج https://www.officena.net/ib/search/?q="كشف حساب عميل"&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and عليك أن تبدأ بتعلمها ووضع الأكواد أو المعادلات المطلوبة وإذا تعثرت في نقطة أو اثنتين يمكن عرضها في موضوع جديد بالتوفيق

الشكر لله أخي الكريم يبدو أنك ما لاحظت أن المسلسل بعد 1009 هو 1010 وليس 10010 أو ربما يكون التسلسل الصحيح يقفز من 1009 إلى 10010 وحضرتك نسيت وكتبت التسلسل كما بالصورة المأخوذة من ملفك بنيت فكرتي في الحل على مسلسل الرقم والكود وليس على الفكرة الموجودة في الملف وهي دمج الرقم مع 100 نظرا لعدم موافقتها للتسلسل خالص دعواتي بالتوفيق

كود الترحيل ليس به أخطاء الأخطاء في تنظيم الملف والكتابة فيه أكثر من مرة مع عدم الحذف ++ وأول الأخطاء الموجودة هو عدم وجود بيانات في الصف الثاني إلا في الأعمدة F & G & H وكود LR الذي يحمل الصف الأخير مضافا عليه 1 لن يكون مضبوطا لأن الصف الثاني هو المقصود رغم انه به بيانات * وحل هذه المشكلة هو وضع العناوين في الصف الثاني أو كتابة أي شيء في الصف الثاني مثل ======== بحيث يكون أول صف بعد المكتوب فيه هو 3 ++ ثاني مشكلة يوجد كتابة في وسط الشيت تمنع من وصول المتغير lr لمكانه الصحيح * والحل هو الوقوف في الخلية A2 ثم ضغط ctrl وسهم لأسفل سيقف المؤشر عند خلية معينة يتم تحديد صف هذه. الخلية وكل الصفوف التي بعده إلى ما بعد الكتابة ثم حذف هذه الصفوف وليس حذف المحتويات (كلك يمين على رقم الصف ثم حذف) الصواب بعد الضغط على ctrl وسهم لأسفل أن يصل المؤشر إلى آخر خلية في الشيت A1048576 ++ وثالث مشكلة هي اعتمادك على العمود A في تحديد الصف الأخير في شيت الصف الرابع والذي يكون غير دقيق بسبب وجود معادلات في هذا العمود تجعل آخر صف هو 534 في حين أن الصواب 219 * والحل هو أن تعتمد على العمود B في جلب الصف الأخير lr = sh1.Cells(Rows.Count, 2).End(xlUp).Row ++ رابع مشكلة هي أنك تريد ترحيل عمود الفصل إلى العمود 14 ولكن استعملت في الكود العمود 13 مما يجعله يرحل الفصل إلى عمود التوزيع * والحل تعديل سطر الترحيل إلى sh2.Cells(erow, 14) = sh1.Cells(i, 5) بعد حل هذه المشكلات يتم تطبيق كود الترحيل بطريقة سليمة ولمزيد من الاحترافية في تطبيق كود الترحيل ينبغي في بداية الكود تنظيف محتويات الشيت المرحل إليه أولا باستعمال كود مثل sh2.Range("a3:o1000").ClearContents بالتوفيق

بعد إذن صديقي العزيز @Ali Mohamed Ali هذه الحيلة لن تفيد مع دمج الرقم 100 مع 10 لأن الناتج سيكون 10010 عشرة آلاف وعشرة وليس 1010 لذا أقترح وضع هذه المعادلة في C1 =SUM(1000,A1) وفي هذه الحالة يمكن الاستغناء عن العمود B مرفق الملف بعد التعديل ليتناسب مع الأرقام بعد 9 بالتوفيق TEST.xlsx

بعد كتابة 01/07/2021 في خلية التاريخ D2 ظهر في خلية عدد ايام الجمع التي بها المعادلة 5 وليس 3 لو أرفقت ملفك بعد وضعك للمعادلة بإذن الله نتوصل إلى مكان الخطأ في التطبيق لتفاديه

ما فائدة تكرار المواضيع ؟؟ المعادلة السابقة تقوم بالغرض مع تغيير بسيط بسبب استعمالك تاريخ بداية الشهر وليس اسم الشهر يمكنك استعمال هذه المعادلة =NETWORKDAYS.INTL(D2,EOMONTH(D2,0),"1111011") بالتوفيق