أ / محمد صالح

الحمد لله الذي وفقنا لهذا

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

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

يمكنك استعمال هذه المعادلة في الخلية A2 =TRANSPOSE(OFFSET(Coffee!$C$2,(ROW()-2)*8,0,8,1)) مع نسخ المعادلة لأسفل بالتوفيق

الملف المرفق يعمل بدون مشاكل راجع هذا ربما تكون المشكلة في تنسيق التاريخ بين الويندوز والاكسل حيث يجب توافق الاثنين معا TEST_3.xlsx

أعتقد في حالتك هذه يلزمك تحديد نسبة الربح الكلى أولا بمعنى أنك تريد إجمالي الأرباح مثلا 50% من التكلفة ساعتها تستطيع حساب ما تم تحقيقه من الربح الكلى ثم تقسم المتبقي على الكمية المتقية وإذا كتبت في نسبة الربح 0 ستحصل على ثمن التكلفة الفعلية للمتبقي بحيث يكون ناتج ضرب الكميات المباعة في أسعار بيعها يساوي سعر الشراء راجع هذا التكلفه.XLSX

يفضل إرفاق ملفك أو الجزء الذي يخص المشكلة لأن هذه حالة فردية تخص حضرتك

آمين ولك مثل ما دعوت وزيادة بإذن الله

الشكر لله الذي وفقنا للخير

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

متى وجدت عملية قسمة فمن المحتمل وجود أكثر من رقمين على يمين العلامة العشرية لذلك يفضل استعمال دالة trunc مع أي عملية ضرب أو قسمة في المرتبات وهذه الدالة مهمتها اقتصاص أول رقمين بعد العلامة العشرية بدون تقريب ولا جبر مما يجعل المجاميع متساوية مع ما يظهر في الخلايا وصيغتها العامة =trunc(a1*b1,2) وتطبيقها على المعادلة المطلوبة من حضرتك =IF(BO10="مدرس",trunc(C10*25%,2),"") بالتوفيق

يمكنك استعمال هذا الإجراء Sub mas() lr = Cells(Rows.Count, 3).End(3).Row With Range("d4:d" & lr) .Formula = "=IFERROR(VLOOKUP(C4,H$4:I$27,2,0),"""")" .Value = .Value End With MsgBox "Done by mr-mas.com" End Sub وربطه يزر أو في حدث التغيير بالتوفيق

هذا أمر معروف هو اختلاف بعض الأجهزة في إعدادات الفاصلة فبعضها بنظام الفاصلة وهذا هو الأفضل وبعضها بنظام الفاصلة المنقوطة الشكر لله الذي وفقنا لهذا

يمكنك استعمال هذه المعادلة =if(E14/(D14*4)>=1,1,E14/(D14*4)) بالتوفيق

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

إذا كانت صفحات الملف أسفل بعضها فهذا يتم من خلال خصائص الطابعة printer properties الموجودة في نافذة معاينة قبل الطباعة وبعد ضبط خصائص الطابعة يتم الطباعة بكود الطباعة العادي ActiveSheet.PrintOut ستتم الطباعة على الوجهين وبعد البحث لم أعثر على كود يقوم بتغيير خصائص الطابعة إلى ماهو مطلوب بالتوفيق

وفقنا الله جميعا لكل خير

أعتقد وضع اليوم في تنسيق خانة التاريخ يغني عن استعمال عمود إضافي لليوم وإذا كان لابد منه يمكن استعمال هذه المعادلة في الخلية A4 =IF(B4="","",TEXT(B4,"dddd")) بالتوفيق

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

يمكنك استعمال الأشكال التلقائية في رسم الدوائر من تبويب إدراج insert ثم أشكال shapes ثم شكل بيضاوي oval ثم نضغط مع السحب بزاوية مع الضغط على زر shift لرسم الدائرة وبعدها يتم الكتابة داخلها ثم نسخ الشكل الناتج وتعديل الرقم بالتوفيق

يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق

لكي يتم وضع الصورة في النموذج يجب أن يتم استعراض الملفات وتحديدها فلماذا نريد طباعتها بعد وضعها في النموذج الأولى طباعتها من مسارها الأصلي إلا إذا كان مصدر الصورة ليس على الجهاز والهدف هو استخراجها مرة أخرى على كل حال يمكنك استعمال هذا الكود في الزر Private Sub CommandButton1_Click() Dim image_path image_path = CreateObject("scripting.filesystemobject").GetSpecialFolder(2).Path & "\mas.bmp" SavePicture Image1.Picture, image_path If MsgBox("هل تريد طباعة الصورة الآن؟", vbYesNo) = vbNo Then Exit Sub Call apiShellExecute(Application.hwnd, "print", image_path, vbNullString, vbNullString, 0) End Sub بالتوفيق

يمكنك استعمال برنامج advanced office password recovery

المطلوب غير واضع لي لكن حسب فهمي للمطلوب يمكن استعمال هذه المعادلة في الخلية D18 =VLOOKUP(C18,A$4:K$15,10,1) وهي معادلة بحث عادية جدا يعرفها من يعلم أساسيات معادلات الاكسل لدرجة أني لم أكن أتوقع أن يكون هذا هو المطلوب بالتوفيق

الاسم البرمجي للشيت المستعمل هو sheet10 ومن الظاهر في الصورة لا يوجد لديك شيت اسمه البرمجي sheet10 يظهر في الصورة sheet4 أو ورقة1 بالتوفيق