نجوم المشاركات

السلام عليكم هذا الرقم 32092 يظهر لأن الخلايا في العمود K المجاورة لهذا الرقم فارغة... ولتصحيح هذا الخلل أضف إلى معادلتك دالة شرطية IF فتكون مثلا المعادلة في السطر 11 (كما في الصورة) مثل ما يلي: =IF(K11="";"";NETWORKDAYS.INTL(K11;TODAY();7)) ثم تقوم بتمديد هذه المعادلة إلى باقي الأسطر (بالأعلى والأسفل)...

بسم الله الرّحمن الرّحيم السّلامُ عليكم ورحمة الله تعالى وبركاته أحسن الله تعالى إليكم. لُطفًا لو تيسّر من وقت إخوتي؛ تمنّيتُ لو كانت لي معرفة ببرمجة الإكسل؛ لكن أنا بعيدة عن ذلك. أودّ تصميم ملفّ إكسل؛ لتنفيذ الآتي: مُتابعة عدد من الشاحنات (السائق، الموقع، الحمولة، الزّبون). متابعة يومية وشهرية وأسبوعية لحركة الشاحنات والمعلومات الخاصة بها مثل: رقم الشّاحنة. السّائق. طبيعة الشّحن. مكان التّحميل. الطريق. المرآب. مكان التّفريغ. الزّبون. عدد الرّحلات. حيث تتمّ تعبئة البيانات يوميًّا ومن جهة أخرى نتحصّل على: بالنسبة لكلّ شاحنة نودّ معرفة الآتي: عدد أيّام التعطّل. حركة كلّ شاحنة في الأسبوع. حركة كلّ شاحنة في الشّهر. وبالنسبة للزّبون نودّ معرفة الآتي: (أسبوعيًّا وشهريًّا): - عدد الحمولات المسلمة. - تأريخ التسليم. - أرقام الشاحنات التي سلمت الشحنات. وبارك الله فيكم؛ مُرفق تصوّر مبدئيّ لهيكلة بيان الملفّ؛ ولكن بدون أكواد. أيضًا هو تصوّر يُمكن التّعديل بالحذف عليه أو الإضافة؛ لأنّي هكذا فهمتهُ. إذ البرنامج مطلوب من أحد إخوتي؛ قد نقلتُه إلى هُنا رجاء العون من إخوتي. هذا إّا تيسّر من وقت إخوتي. وأشكر لإخوتي وقتهم، جزاكم الله تعالى عني خيرًا. حركة شاحنات الحمولة.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي 2022-2021 INVOICE.xlsx

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

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

حذف كل المرتجعات والنتيجة ممتازة .............. انظر .....

أعتقد أنك تقصد هذا الموضوع 🙂 :

آه صح عليك .. عذرا .. كان تركيزي لمن هو يتمتع حاليا زادك الله علما ورفعة .

وهذا مثال لـ أبو هادي مع تصرف بسيط مني: في آخر الوحدة النمطية (المديول) يوجد إجراء لتطبيق صندوق الرسائل العربي من مواصفاته اختيار الألوان واختيار المؤقت والتحكم بمحاذاة النص. استخدامه يشبه تماما أمر MsgBox مع إضافة ثلاثة حروف Arb بداية الأمر. ArbMsgBox_20200907_03.rar

وعليكم السلام 🙂 تفضل بعضها : رسالة عادية ، ولكن تختفي بتوقيت : . 6 طرق ، ومنها بالونه فوق ساعة الكمبيوتر ، وتختفي بتوقيت : . وهنا شرح عمل البالونه . جعفر

تم تبديل المرفق بعد مراجعتي ومقارنة النتائج مع الزملاء.

تفضل أخي test2023.accdb

حياك الله اخي العزيز اليك ماطلبت بطريقة مختصرة جدا IF(A2>=3750;(A2-2031.25)*20%;IF(A2>=2500;(A2-1458.33)*15%;IF(A2>=1250;(A2-937.5)*10%;0))) ضريبة كسب العمل.xlsx

وعليكم السلام اكتب الكود بعد التحديث...هكذا Private Sub xx_AfterUpdate() If Nz(DCount("[Key]", "dfg", "[xx]=[nmber]"), 0) = 0 Then Else MsgBox "هذا الرقم مكرر", vbInformation, "رسالة تنبيه" DoCmd.CancelEvent Me.xx = "" End If Me.الاسم.SetFocus End Sub

الظاهر استاذ @طاهر الوليدي ان تعديلى لم يرقى للرد منكم بالتوفيق

ان شاء الله نمشي خطوة خطوة حتى تكمل المطلوب نبدا أولا بالترحيل ثم الاستدعاء 2-(ماهو معيار البحث) بمعنى سوف يتم استدعاء البيانات برقم الفاتورة او الكود او...... 3- وعند الانتهاء نقوم بتصميم الفاتورة للطباعة وبالنسبة للفورم المضاف لم تذكر دوره في الملف المرفق Sub Tarhil() Dim DL1%, DL2%, DL3%, MH% Application.ScreenUpdating = False DL1 = Range("B65500").End(xlUp).Row - 1 With Sheets("اليومية العامه") DL2 = .Range("B65500").End(xlUp).Row + 1 DL3 = .Range("R65500").End(xlUp).Row + 1 MH = DL2 + DL1 - 9 .Range("F" & DL2 & ":K" & MH) = Range("B9:G" & DL1).Value .Range("B" & DL2 & ":B" & MH) = Range("D3") 'التاريخ .Range("C" & DL2 & ":C" & MH) = Range("D4") 'اسم الشركة .Range("D" & DL2 & ":D" & MH) = Range("D5") 'رقم الفاتورة .Range("E" & DL2 & ":E" & MH) = Range("D6") 'كود الفاتورة .Range("L" & DL2 & ":L" & MH) = Range("B3") 'اسم العميل .Range("M" & DL2 & ":M" & MH) = Range("B4") 'التيلفون' .Range("N" & DL2 & ":N" & MH) = Range("B5") 'العنوان .Range("O" & DL2 & ":O" & MH) = Range("B6") 'المحافظة .Range("P" & DL2 & ":P" & MH) = Range("F3") 'شركة الشحن .Range("Q" & DL2 & ":Q" & MH) = Range("F4") 'اسم المندوب .Range("R" & DL2 & ":R" & MH) = Range("F5") 'رقم التيلفون .Range("S" & DL3) = Range("F6") 'خدمة التوصيل End With Application.ScreenUpdating = True End Sub officena 1.xlsm

بل طبقته على تقرير ، لاحظ اسم التقرير : . . كلما في الامر اني حفظت النموذج بضيغة تقرير ، فانا وضحت لك في مشاركتي السابقة ، واليك توضيح آخر: الاكسس فيه خاصية تحويل كائن النموذج الى كائن تقرير ، يعني اذا كان عندك نموذج ، واردت ان تعمل تقرير شبيه له ، فيمكنك تحويل النموذج الى تقرير ، والتعديل عليه وحذف الكود والازرار التي به ، هكذ : . اذا وضعت مؤشر الفأرة على كلمة acOutputReport في الكود ، ثم ضغطت على زر F1 ، فسترى البدائل الاخرى التي يمكنك تصديرها ، فقط تأكد بمطابقة نوع الكائن الذي تريد تصديره (مثلا acOutputForm) ، بوضع اسمه الصحيح (fform) : . جعفر

معلومة اكسيليه على السريع ================== في بعض المعادلات في الاكسيل نرى هذه العلامات داخل المعادلة وهى علامة (*)و (--) ويتسأل البعض ماهي هذه الرموز وماهي وظيفتها ========================================== الاجابة بكل بساطه ان هذه الرموز تستخدم في معادلات الصفائف وهى تعيد قيما منطقية TRUE او FLASE وهذه الرموز تحول القيم الى ارقام حيث تعيد القيمة TRUE الى واحد (1) والقيمة FALSE الى (0) صفر تقبلوا خالص تحياتى محمد الريفى TRUE&FALSE.rar

السلام عليكم موضوع للتسلية والمعرفة في نفس الوقت اختبر نفسك مع معادلات الاكسل شبكة من الكلمات المتقاطعة كلمات متقاطعة.rar

السلام عليكم موضوع جديد كيف نستخرج مجموعة اسماء من جدول استخراج اسماء.rar