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

كيفية كتابة كلمة الله خط كوفى على الاكسل الفيديو الصورة الملف كيفية عمل خط كوفى فى الاكسل.rar

السلام عليكم تم تصحيح المعادلات في الملف المرفق... بن علية حاجي Book1_2.xlsx

هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما  https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

فكرة ممتازة أخي رمهان ..... تضاف كمعلومة جميلة

انظر المرفق .... Forum.mdb افتح التقرير في وضع التصميم ولاحظ التغيرات ....

تابع الصورة وعدل عدد الاعمدة كما تريد ظهورها في التقرير .....

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

بارك الله فيك وفى معلمنا الكبير

طيب جرب هاد المرفق للعلم هذا من مكتبتى ولا ادرى اواتذكر من اين حصلته بصراحة المرفق تبعك لم يعمل معى اوفيس 2019 32 بيت Compact.accdb

اخي عبداللطيف المشكلة تكمن في انه لايوجد حقل رقم الفاتوره ضمن النموذج وهو حقل مطلوب للعلاقة : كما ان السؤال هنا : كيف تريد ادخال بيانات سقف بدون رقم فاتوره تاجير ؟ الحل : اضافة حقل رقم الفاتورة للنموذج بالتوفيق

السلام عليكم ورحمة الله تعالى وبركاته ولانها المشاركة الاولى فى هذا الشهر الكريم كل عام وانتم الى الله اقرب طبعا اساتذتى الكرام اجابوا وافوا جزاهم الله عنا كل الخير ان شاء الله واستاذن اساتذتى الكرام على استحياء ان اشارك معكم بهذه الهدية البسيطة للعلم حتى يأخذ كل ذى حق حقه شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة مميزات المرفق - موديول به كل ما يخص التاريخ وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما https://www.ssec.wisc.edu/~tomw/java/unicode.html التاريخ.mdb

السلام عليكم ترتيب التركيز --- الحقول المراد انتقال التركيز اليها ترتب من رقم 1 - 2 - 3 ----- الخ بعد فتح النموذج على وضع التصميم من ---- other --- Tab Index وكما في الصور

بارك الله في فيكم على هذا الجهد المتواصل وهذا العطاء المستمر وجزاكم الله خير

السلام عليكم هناك خطاء في العلاقة بين الجداول --- جدول الاصناف وجدول الفواتير وجدول دكه وجدران بالتوفيق

مبادرة واسطة الماكرو مع حرية اختيار ايام الجمعة والسبت الكود Option Explicit Sub How_many_week_day() Application.ScreenUpdating = False With Sheets("salim") Dim t_sun%, t_mon%, t_tue%, t_wed% Dim t_thu%, t_fri%, t_sat% Dim Start_D As Date, End_D As Date Dim k%: k = 1 Dim it As Range, I_Have_this% Dim lr%: lr = .Cells(Rows.Count, 1).End(3).Row .Range("d5").Resize(lr - 4, 10).ClearContents Dim x#, t% Dim Comp_Rg As Range Dim Arr() Set Comp_Rg = .Range("v5:v100") For Each it In Comp_Rg If IsDate(it) Then ReDim Preserve Arr(1 To k) Arr(k) = Weekday(it) k = k + 1 End If Next it For k = 5 To lr If IsDate(.Range("B" & k)) And IsDate(.Range("C" & k)) Then Start_D = .Range("B" & k): End_D = .Range("C" & k) For x = Start_D To End_D If IsError(Application.Match(x, Comp_Rg, 0)) Then Select Case Weekday(x) Case 1: t_sun = t_sun + 1 Case 2: t_mon = t_mon + 1 Case 3: t_tue = t_tue + 1 Case 4: t_wed = t_wed + 1 Case 5: t_thu = t_thu + 1 Case 6: t_fri = t_fri + 1 Case 7: t_sat = t_sat + 1 End Select End If t = t + 1 Next x .Range("d" & k) = t_sun: .Range("E" & k) = t_mon .Range("F" & k) = t_tue: .Range("G" & k) = t_wed .Range("H" & k) = t_thu .Range("I" & k) = IIf([m2] = "نعم", t_fri, vbNullString) .Range("J" & k) = IIf([m2] = "نعم", t_sat, vbNullString) .Range("L" & k) = t .Range("M" & k) = Evaluate("SUM(D" & k & ":J" & k & ")") '==================================== End If t_sun = 0: t_mon = 0: t_tue = 0: t_wed = 0: t_thu = 0: t_fri = 0: t_sat = 0: t = 0 Next .Range("O2") = UBound(Arr) Erase Arr End With Application.ScreenUpdating = True End Sub الملف مرفق (الصفحة Salim) work_date.xlsm

السلم عليكم جرب الملف المرفق كده R 11_1.xlsx

سلمت يداك ياغالي

السلام عليكم تم عمل المطلوب في الملف المرفق... بن علية حاجي Book1_1.xlsx

السلام عليكم محاوله اتمنى تكون قريبه من المطلوب مخطط تعداد التلاميذ.xlsx

([المبلغ]-[النسبة])*Abs([الحدث]='ذاهب') وانا شايف ان تضاف كحقل من نوع محسوب بالجدول افضل زبه المعادلة اعلاه او معادلة الاستاذ kanory بالتوفيق

السلام عليكم ورحمة الله كل عام و انتم بخير اخى الكريم بمناسبة الشهر الفضيل و نهاية العام الدراسى اليك ماطلبت باذن الله و اى ملاحظات ستجدنى فى الموعد باذن الله ثانية.rar

السلام عليكم ورحمة الله وبركاته اخوي العزيز ابو خليل انا جدا ممنون منك على الفكرة والمجهود الرائع الذي بذلته من اجل تقديم المساعدة ، وانا فاهم قصدك بصورة دقيقة ، لكن المشكلة تكمن في تغيير سعر الصرف في الجدول راح تكون صعبة لان قد يلزمنا التغير كل يوم . لو سمحت لي انا عملت بنصيحة اخوي عبد الله قدور ووضعت سعر الصرف في جدول الفاتورة حتى اتمكن من جلبه في نموذج رأس الفاتورة والله وفقني في جلبه عن طريق الدالة Dlookup من استعلام (اخر سعر صرف) هسة اصبح عندي لما اختار من كومبو بوكس العملة دولار يظهر اجمالي الفاتورة بالدولار ولما اختار اجمالي الفاتورة بالدينار يظهر بالدينار . مش عارف الكود الي عملتو مضبوط ولا لاء المهم يشتغل . المعضلة هسة شلون اعمل تفيقط للفاتورة في حالة اذا كانت بالدولار ام بالدينار عند الطباعة ؟ بالمناسبة انا بقدم شكر وامتناني للاخ عبد الله قدور على النصحية . CurConvert3.rar

برنامج عبارة عن 6 صفحات حتي الان ولقد طلبه مني احد اصدقائي لكي يدير تجارته عبر الحاسب. اسماء الصفحات(invoice-stock-sales list-customers-purchase order-purchase list) والمرحلة التي انتهيت منها حتي الأن هي: انه عندما يقوم التاجر ببيع اصناف للعميل ان يسجل العملية عبر فاتورة وكل ما عليه ان يكتب اسم العميل اورقمه(اذا كتب رقم العميل يظهر له اسمه تلقائي) ادخال الصنف و إذا افترضنا ان هذا التاجر يبيع منتجاته بأسعار مختلفة حسب نوع العميل فيمكن للتاجر ان يكتب في عمود صغير(b) فئة السعر 0 السعر الذي اشتري به التاجر 1 فئة السعر الاولي 2 فئة السعر الثانية 3 فئة السعر الثالثة 4 فئة السعر الربع امااذ ترك تلك المربع خالي فيباع له بأعلي سعر دون اي خصومات