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

وعليكم السلام-اهلا بك فى المنتدى , تفضل يمكنك جعل المعادلة هكذا =IF(OR(B3="",C3=""),"00:00",(C3+0.5-B3)) إبراهيم الخلية الفارغة1.xls

جرب الملف --------->> Ba_55.accdb

1- تم اضافة صفحة جدبدة باسم SALIM تأخذ بياناتها عشوائياً من الشيت G وذلك كي تبقي الشيت الاساسي على بياناتها دون تغيير 2- لا حاجة لادراح اكثر من 20---30 اسم لأان الماكروالذي يعمل على صف واحد يمكنه العملعلى الالوف 3-البيانات في الصفحة G عشوائية لمعرفة مدى فعالية الماكرو (يمكنك استبدالها من الشيت الاساسي عندك غن طريق النسخ واللصق وزيادتتها الى فدر ما تشاء) 4- جرب هذا الملف في الصفحة SALIM بعد الضغط على الزر Run يظهر عندك ماذا كنت تريد 5 _الكود Option Explicit Sub Salim_Mcro() Dim g As Worksheet Dim S As Worksheet Dim Lg%, Ls%, i%, k%, M%, X, Y Set g = Sheets("g") Set S = Sheets("SALIM") Dim Arr() Lg = g.Cells(Rows.Count, 1).End(3).Row If Lg < 17 Then Exit Sub Ls = S.Cells(Rows.Count, 1).End(3).Row If Ls < 17 Then Ls = 17 S.Range("A17:F" & Ls).ClearContents ReDim Arr(1 To Lg - 16) Dim ST$ Dim oBJ As Object Set oBJ = CreateObject("System.Collections.Sortedlist") For i = 1 To Lg - 16 Arr(i) = Application.Transpose(Sheets("g").Range("A" & i + 16).Resize(, 5)) Arr(i) = Application.Transpose(Arr(i)) ST = Join(Arr(i), "*") Randomize Y = Rnd() oBJ.Add Y, ST Next X = oBJ.Count M = 17 For k = 0 To oBJ.Count - 1 S.Cells(M, 1).Resize(, 5) = Split(oBJ.GetBYINDEX(k), "*") M = M + 1 Next End Sub الملف مرفق HiCham2610.xlsm 1- تم اضافة صفحة جدبدة باسم SALIM تأخذ بياناتها عشوائياً من الشيت G وذلك كي تبقي الشيت الاساسي على بياناتها دون تغيير 2- لا حاجة لادراح اكثر من 20---30 اسم لأان الماكروالذي يعمل على صف واحد يمكنه العملعلى الالوف 3-البيانات في الصفحة G عشوائية لمعرفة مدى فعالية الماكرو (يمكنك استبدالها من الشيت الاساسي عندك غن طريق النسخ واللصق وزيادتتها الى فدر ما تشاء) 4- جرب هذا الملف في الصفحة SALIM بعد الضغط على الزر Run يظهر عندك ماذا كنت تريد 5 _الكود Option Explicit Sub Salim_Mcro() Dim g As Worksheet Dim S As Worksheet Dim Lg%, Ls%, i%, k%, M%, X, Y Set g = Sheets("g") Set S = Sheets("SALIM") Dim Arr() Lg = g.Cells(Rows.Count, 1).End(3).Row If Lg < 17 Then Exit Sub Ls = S.Cells(Rows.Count, 1).End(3).Row If Ls < 17 Then Ls = 17 S.Range("A17:F" & Ls).ClearContents ReDim Arr(1 To Lg - 16) Dim ST$ Dim oBJ As Object Set oBJ = CreateObject("System.Collections.Sortedlist") For i = 1 To Lg - 16 Arr(i) = Application.Transpose(Sheets("g").Range("A" & i + 16).Resize(, 5)) Arr(i) = Application.Transpose(Arr(i)) ST = Join(Arr(i), "*") Randomize Y = Rnd() oBJ.Add Y, ST Next X = oBJ.Count M = 17 For k = 0 To oBJ.Count - 1 S.Cells(M, 1).Resize(, 5) = Split(oBJ.GetBYINDEX(k), "*") M = M + 1 Next End Sub الملف مرفق

حياك الله .... بالتوفيق

بارك الله بك استاذي نعم يعمل ولاحظت التغيير شكراً جزيلاً

مصدر مربع النص ضع هذا الكود .... =DLookUp("[SumمنTotalmany]";"q1";"[Deprt]=" & """علوم الحياة""")

Ibrahim Y فين انت من هذه الإجابة الممتازة ... ليس هناك داعى للتنبيه دائماً على هذا الأمر لأن هذا يعتبر اقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!! أين الضغط على الإعــــــجــاب لإجابة الأستاذ علي ؟!!💙

بعم يمكن ذلك استخدم هذا الكود Private Const TIMEOUT = 99 Public Sub Restart() Dim scriptpath As String scriptpath = Application.CurrentProject.FullName & ".dbrestart.bat" If Dir(scriptpath, vbNormal) <> "" Then If DateAdd("s", TIMEOUT * 1, FileDateTime(scriptpath)) < Date Then Kill scriptpath Else Application.Quit acQuitSaveAll Exit Sub End If End If Dim s As String s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST ""%~f1.%3"" GOTO CHECKLOCKFILE" & vbCrLf s = s & "start "" "" ""%~f1.%2""" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile Dim dbname As String, ext As String, lockext As String Dim idx As Integer For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = Left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) If Left(ext, 2) = "ac" Then lockext = "laccdb" Else lockext = "ldb" End If s = """" & scriptpath & """ """ & dbname & """ " & ext & " " & lockext Shell s, vbHide Application.Quit acQuitSaveAll End Sub ثم استدعيه بهذا الكود Private Sub btRestart_Click() Utilities.Restart End Sub

السلام عليكم هذا البرنامج عملته في زمن مضى برنامج لتسجيل الأسر : الأجداد والآباء والأبناء والأحفاد بكل يسر وسهولة باستخدام جداول عدة مترابطة و يتم عرضهها في تقرير خاص ايضا استخدمت شجرة الحسابات كمستكشف لعرض الأصول والفروع بطريقة شيقة ولمسات خاصة وبالألوان ولمسات اخرى تجدونها عند تجربة البرنامج ارجوا ممن يستفيد منه الا ينساني من دعوة في ظهر الغيب . Osrah.rar

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

حياك الله اخي الكريم ...... بالتوفيق

الاخ الكريم Barna محمد البرناوي شكرا جزيلا لك بارك الله فيك

شكر وتقدير واحترام من اخيك استاذ سليم

hicham2610 فين انت من هذه الإجابة الممتازة ... ليس هناك داعى للتنبيه دائماً على هذا الأمر لأن هذا يعتبر اقل ما يقدم لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!! أين الضغط على الإعــــــجــاب لإجابة الأستاذ سليم ؟!!💙 حفظ الله دائما لبنان استاذ سليم وزال عنها الدمار وسلم الله اهلها من كل سوء

استاذ محمد مع الاسف لم يعمل ويضهر الرسالة بالصورة 55.accdb

نعم صحيح والاستدعاء عن طريق زر ممكن

شكراً اخي على المرور هل اضعه في وحدة نمطية

الى كل من يريد استعمال هذه المعادلة داخل اليوزرفورم و الاخ مهند الذي قال لي اني اضيع وقت الاساتذة فانا اتحداك ان طرح هذا الموضوع من قبل و رجاء حسن اسلوبك في الرد على طلبات الاخوة بارك الله في الجميع Lab1.Caption = Evaluate("=SUMPRODUCT((A4:A18=D4)*(B4:B18=E3))")

بالتوفيق للجميع المهم أن يعم النفع للجميع بدون استغلال لحاجة الناس والله في عون العبد مادام العبد في عون أخيه

اخي الكريم السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير هل يراودك شك احيانا في بعض الكلمات او الرموز عند تسمية الحقول هل هي محجوزة أم لا ؟ اليك الحل هدية العيد : في المرفقات تطبيق بحثي يشتمل على جميع كلمات ورموز الاكسس المحجوزة والتي يجب أخذ الحيطة عند تسمة الحقول واجتناب التسمية بها لان ذلك يؤدي الى ظهور أخطاء أمام المبرمج يخفى عليه سببها . آمل ان تجدوا الفائدة ،،، dbx.rar

هذا الخطأ بالتقريب موجود في برنامج الاكسل وغيره من البرامج، والسبب كما يقولون هو التقريب الحاصل نتيجة تخزين الأرقام العشرية بالكمبيوتر بصيغة الرقم الثنائي binary number ويمكن ملاحظة ذلك في المثال التالي: والمتحدثون عن ذلك يقترحون حلين: 1- استخدام الدالة round لتخطي خطأ التقريب 2- التعديل بخيار الاكسل لاعتبار العدد كما هو ظاهر وتجاهل الدقة غير المعروضة بعد تعديل الخيارات، ظهرت النتيجة للمزيد ممكن الاطلاع على: https://docs.microsoft.com/ar-sa/office/troubleshoot/excel/floating-point-arithmetic-inaccurate-result https://www.microsoft.com/en-us/microsoft-365/blog/2008/04/10/understanding-floating-point-precision-aka-why-does-excel-give-me-seemingly-wrong-answers/ بالتوفيق

تفضل-يمكنك استخدام هذه المعادلة =SUMIF(Sheet1!$B:$B,$B2,Sheet1!$F:$F) Total.xlsx

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

واضح ان امان الماكرو عندك مرتفع ، لذا اكسس يقوم بتعطيل الأحداث ابحث في المنتدى عن طريقة تخفيض امان الماكرو .. وهذا واحد منها في الاصدار 2003 : من شريط الادوات ادوات / ماكرو / الأمان ... ومن مربع الحوار اختر منخفض ثم موافق

العنوان والمحتوى مخالفان 4. يجب أن يكون عنوان المشاركة يدل على محتواها 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. يغلق ،،،

بارك الله فيك استاذ ماجد عمل ممتاز

فيديوووو جميل وشيق كيفية استخدام اهم نصائح في paste special في الفيديو ده هانتعلم اهم 5 نصائح في ال paste special PASTE SPECIAL.xlsx

بارك الله فيك استاذ ماجد وزادك الله من فضله

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

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

انا فحصت المثال ويعمل 100%

تفضل اخي الكريم ضع هذا الكود قبل كود الاستيراد مع تغيير اسم الجدول CurrentDb.Execute ("Delete * From tbl1") تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لديك زر يقوم بتفريغ البيانات من جميع الجداول وزر اخر يقوم بعمل نسخة احتياطية بجورا البرنامج متابعة الشيكات v391.rar تحياتي