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

وعليكم السلام-يمكنك استخدام هذه المعادلة فى العمود C بداية من الخلية C3 مسحوباً للأسفل =IF(DAY(TODAY())=10,$A3,"") أما عمود تاريخ التحصيل فيمكنك استخدام له هذه المعادلة وبالتوفيق =IF(C3="","",TODAY()) Payment Date.xlsm

Nouveau Microsoft Access Database.rar Nouveau Microsoft Access Database2003.rar

هذا تواضع منكم اخي قاسم .... بارك الله فيك .

عاشت ايدك استاذ @kanory .. هذا الفرق بين الطريقة الاحترافية وطريقتي الغير احترافية

وعليكم السلام .... Nouveau Microsoft Access Database.rar

مشاركة مع اخي المهندس .... مثال.accdb

يمكنك وضع هذه المعادلة في الخلية F2 =INDEX('عدد الوثائق'!B:B,MATCH(B2,'عدد الوثائق'!A:A,0)) وهي للبحث عن القيمة المقابلة للجنة في عمود عدد الوثائق بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية B1 =VLOOKUP($I$1,Feuil1!$A$3:$G$150,ROW(),0) وهي للبحث بدالة Vlookup بصورة رأسية مع إمكانية سحب المعادلة لأسفل للحصول على باقي نتائج البحث بالتوفيق

جرب أن تضع في الخلية G7 هذه المعادلة =COUNTIFS(C7:F7,"<>"&0,C7:F7,"<>") وهي تعني عد الخلايا بشرطين ألا تكون فارغة وألا تتساوي صفر بالتوفيق

جزاك الله كل الخير ونفع بك دوما

الكود بعد التصحيح Function NextCode(ByVal PrevCode As Variant) As String Dim fL As String Dim sL As String Dim No As Byte 'Validation ---------------------------------- NextCode = "" PrevCode = Trim(Nz(PrevCode, "")) If PrevCode = "" Then NextCode = "AA01" Exit Function End If If Len(PrevCode) <> 4 Then Exit Function If Not IsNumeric(Right(PrevCode, 2)) Then Exit Function fL = Mid(PrevCode, 1, 1) sL = Mid(PrevCode, 2, 1) No = Mid(PrevCode, 3, 2) If Not fL Like "[A-Z]" Then Exit Function If Not sL Like "[A-Z]" Then Exit Function 'Start Coding ---------------------------------- If No < 99 Then No = No + 1 NextCode = fL & sL & Format(No, "00") Exit Function End If If sL < "Z" Then No = 1 sL = Chr(Asc(sL) + 1) NextCode = fL & sL & Format(No, "00") Exit Function End If If fL < "Z" Then No = 1 sL = "A" fL = Chr(Asc(fL) + 1) NextCode = fL & sL & Format(No, "00") 'Exit Function End If End Function Sub TestNext() Dim rst As Recordset Dim Seq As Long Dim NewCode As String DoCmd.RunSQL "Delete * from Table1;" Set rst = CurrentDb.OpenRecordset("Table1", dbOpenDynaset) NewCode = "" With rst For Seq = 1 To 100000 NewCode = NextCode(NewCode) .AddNew !Seq = Seq !Code = NewCode .Update If NewCode = "ZZ99" Then Exit For Next Seq End With rst.Close MsgBox "Done" End Sub

تفضل هذا المثال بعد التعديل سيتم انشاء فولد سيتم انشاء ملف بإسم كل مستخدم سيتم تعبئة البيانات بعد ادخال اسم المستخدم و تطابقه مع احد الملفات في حال اسم المستخدم غير نشط لن يستطيع المستخدم تسجيل الدخول Database2.mdb

إن شاء الله يكون هذا هو المطلوب تم إضافة معادلة للعمود A ومعادلة للعمود B ومعادلة للعمود C وما بعده مع إضافة عمود لأسماء العملاء بدون تكرار في الشيت الأول بالتوفيق تحصيل عملاء تجريبى.xlsx

شكر وتقدير واحترام لك اخى استاذ @kanory تسلم ايدك استفادنا كثيرا

استخدم هذا الكود .... Option Compare Database Dim dblStart As Double Dim dblEnd As Double Dim dblTime As Double Private Sub txtTest_Change() If Len(txtTest.Text) <= 1 Then dblStart = Timer Else dblEnd = Timer dblTime = Round(dblEnd - dblStart, 2) If dblTime > 0.2 Then txtTest = "" MsgBox " عفوا ... لايمكن الإدخال إلا عن طريق قارئ الباركود" End If End If End Sub

لا يوجد حدث في الاكسل اسمه مرة كل شهر ربما تقصد في حدث عند فتح المصنف يعني في كل مرة يتم فتح الملف يتم استدعاء الكود ماذا إذا لم يتم فتح الملف في يوم 10 في الشهر أو كان يوم 10 يوم جمعة خلاصة الكلام ان المعادلات افضل في مثل هذه الحالات مع تعديل بسيط وهو أن يكون تاريخ الجهاز أكبر من أويساوي 10 يعني الأيام في الشهر من 10 إلى نهاية الشهر =IF(DAY(TODAY())>=10,$A3,"") بالتوفيق

احسنت اخي الكريم kha9009lid وبارك الله بك هذا هو التعديل الصحيح جزاك الله خير جزاء المحسنين

جرب المرفق New.accdb

المعادلة صحيحة ومتى يتم تنفيذ الكود نهار 13 في شهر

جزاكم الله خيرا على اهتمامكم بالموضوع ممكن تحويل هده المعادلة الى كود

الخطأ في إضافة المعادلة للشيت فالمعادلة صحيحة وتقوم بالغرض وهذا ملفك بعد التعديل وإضافة المعادلة بطريقة صحيحة Classeur20211.xlsx

نفس الاختلاف في المعادلة إليك الملف بعد كتابة المعادلة المطلوبة عدد الوثائق_2.xls

أضف في أول سطر في الإجراء السطر التالي لمسح محتويات القائمة ListBox1.Clear

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

الف ألف شكر تمام أستاذنا محمد صالح بارك الله فيك تحياتي

الحل في تغيير نوع البيانان Integer إلى long كما هو مستعمل في الاجراء addedit Dim med As Long & Dim s As Long في الزر الأول والثالث تم تعديل الكود السابق

اخي الكريم السلام عليك اعلم انك بذلت مجهود لكي تساعدني سلمت وسلمت يمينك لكن مازالت المشكله قائمه عند كتابه قيمه صفر داخل اي من الخلايا الاربع يتم عدها في الخليه G7 هذا لا اريده ما اريده ان الخلايا الاربعه ان كتبت صفر او تركتهم فارغين لا يتم عدهم في الخليه G7 ]داله COUNTA تعطي نفس حاصل التعديل وهذا لا اريده ارجو ان يكون المطلوب واضح وشكرا لك

نسخة منقحة أبجد_هوز_هاوي_2.mdb

يمكنك طباعتهم في برنامج الوورد مثلا من خلال دمج المراسلات أو من خلال الاكسل وتوزيعها بعد الطباعة وتوقيع كل طالب بالاستلام

مثال مرفق Hawiii-Loop-01.accdb

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

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

تكمن المشكلة في أن الأرقام التي يصدرها البرنامج لا يعتبرها الإكسل أرقاما نظرا لأنها تحتوي على رموز غريبة غير مرئية char(254) لذلك ينبغي علينا : أولا إصلاح تنسيق الأرقام ثانيا: إيجاد المفقود من سلسلة الأرقام تفضل هذا كود إجرائين للغرضين السابقين Sub mas() lr = Cells(2, 2).End(xlDown).Row Range("A1:L" & lr).NumberFormat = "General" Range("D1:D" & lr).NumberFormat = "@" Range("L1").Value = "القيم المفقودة" For n = 2 To lr Range("b" & n).Value = Replace(Range("b" & n).Value, Chr(254), "") Range("c" & n).Value = Replace(Range("c" & n).Value, Chr(254), "") Range("d" & n).Value = Replace(Range("d" & n).Value, Chr(254), "") Next n FindMissingNumbers Range("b2:b" & lr), Range("l2") End Sub Sub FindMissingNumbers(InputRange As Range, OutputRange As Range) For i = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange) If InputRange.Find(i, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then OutputRange.Cells(j + 1, 1).Value = i j = j + 1 End If Next i MsgBox "Done" End Sub بعد تنفيذ الإجراء mas سيتم تعديل الأرقام والتواريخ وتغيير تنسيق رقم الحساب إلى نص لأنه يبدأ بصفر على اليسار ثم إيجاد الأرقام المفقودة ووضعها في العمود L ملحوظة: لا يوجد أرقام مفقودة في ملفك. ولتجربة الكود يمكنك حذف أي عدد من الصفوف بطريقة عشوائية وسيتم كتابتهم في العمود L بالتوفيق

خاÙ_ اخÙ_Ù_Ù_.xlsx

تم تعديل الملف جرب هذا خام اخميم.xlsx

حصل 🙂

لا يوجد أي مشكلة في التحميل إلا المرفق المسمى بحروف عربية يظهر بعد تحميله برموز غريبة قليلا والحل لهذه المشكلة هو استعمال برنامج internet download manager في تحميل المرفقات

هذي المشكلة من عندك ، أبو عبدالله استطاع فتح ملفي وعدل على نموذجي وكل حاجة زي الفل. مرفع لكم الملف أخرى مضغوط أبجد_هوز_هاوي.rar

جرب هذا .... ابجد هوز.rar

اطلع stud.rar

3 اضف هذه المكتبه في مسار C:\Windows\System32 wiaaut.rar

يمكن تغيير خاصية محاذاة النص الى توزيع تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل هل هذا ما تريده تم عمل مجموعة اوامر وهي تشغيل الاسكانر او تشغيل من ملف او سحب كافة الصور ddd.rar

السلام عليكم انت تريد عدد حقل prop وهذا الحقل غير موجود في جدول2 والصحيح ان يكون geab والمعادلة كالتالي abs: DCount("[geab]";"22";"[s]='" & [1]![S] & "'") ASD123.accdb تحياتي

جرب هذا الكود sub delete_externallinks() With ActiveWorkbook For Each lnk In .LinkSources(Type:=xlLinkTypeExcelLinks) .BreakLink Name:=lnk, Type:=xlLinkTypeExcelLinks Next End With end sub

بفضل من الله سبحانه وتعالي تم عمل الملف شكرا لاعضاء المنتدي الغالي

اهلا بيكم اصدقائي واحبائي البوست ده فعلا فعلا مهم جدا لكل واحد شغال بالاكسيل محتاج يزود مهاراته ويطور من نفسه في شغله علشان فعلا الواحد يجب عليه التعلم دائماً حتى لا يقف عند حد معين... موش هاطول عليكم انا جهزت 27 فيديو .... يعني كورس حلو وممكن تقول خلاصة البور كويري فا من فضلك فضي نفسك شوية ... واتفرج على الخلاصة دي من البور كويري حاطت لك اسم الفيديو وجنبة اللينك بتاع الفيديو ... بالترتيب وكمان لو عايز تنزل الفيدوهات عندك يبقى حاجة احلى .... علشان ترجعلها لما تحتاجها 1 انواع البيانات في البور كويري https://youtu.be/Q4HDzz9DfgA 2 جلب بيانات من نطاق أو من جدول https://youtu.be/6kckAB1dkRQ 3 جلب بيانات من ملف مغلق https://youtu.be/4lRJOctUejI 4 كيفية جلب بيانات من جوجل شيت https://youtu.be/bwt_qv_djBs 5 كيفية إضافة اعمدة بها عمليات حسابية- واضافة عمود بشرط https://youtu.be/PvL9qg7edQA 6 كيفية استخلاص بيانات من ملف اكسيل مغلق والتعديل على البيانات ودمجها في ملف اخر https://youtu.be/zKYoZvwLxkk 7 لماذا نستخدم الاتصال فقط بالبيانات في بور كويري https://youtu.be/HXEFMfPYyH0 8 كيفية تعبئة البيانات لأسفل وكيفية التعبئة لأعلى في البور كويري https://youtu.be/ZOFlmn9i618 9 كيفية تقسيم عمود إلى عدة اعمدة في البور كويري https://youtu.be/AcPSHKzj0R8 10 كيفية تقسيم الخلية إلى عدة صفوف في البور كويري https://youtu.be/7BDs5oNWu38 11 كيفية تجميع وفصل البيانات وعمل قيم فريدة والعمل عليها في البور كويري https://youtu.be/5rY4oATWcdk 12 كيفية عمل عمود مخصص وعمود منسق في البور كويري https://youtu.be/sSLFec8Hrzw 13 كيفية عمل عمود بمثال منك انت في البور كويري https://youtu.be/D5N9cwdGQNs 14 كيفية دمج اعمدة باكثر من طريقة في البور كويري https://youtu.be/VbSEJDkryOE 15 كيفية عمل ترقيم تلقائي في البور كويري https://youtu.be/YHXbMggYnzc 16 كيفية استخدام اداة الشرط لو في البور كويري https://youtu.be/UBPScAEN2Fo 17 كيفية استخدام المعادلات في البور كويري https://youtu.be/ReOwUnfK8Ho 18 كيفية تحويل رؤوس الاعمدة إلى صفوف والصفوف إلى أعمدة في البور كويري https://youtu.be/8-PKq-p6grs 19 كيفية عمل فلتر متقدم في البور كويري https://youtu.be/RsulK98Gsk4 20 كيفية دمج صفوف في خلية واحدة لصنف واحد https://youtu.be/l1qj8bS0nkw 21 كيفية إضافة صف بعد كل صف بطريقتي https://youtu.be/DbxIAcuiUBM 22 كيفية تحديث البيانات تلقائيا في البيفوت والكويري https://youtu.be/UX-EGsvNJcE 23 كيفية استخراج القيم الفريدة والقيم المقررة من الجدول https://youtu.be/6GRtyH1c5i0 24 جلب بيانات الحضور والانصراف من برنامج جهاز البصمة إلى اكسيل والتعديل عليها https://youtu.be/JUu6s3b72kM 25 مثال بالبور كويري وتحدي ازاي تعمل المطلوب منك https://youtu.be/ETQqxChGu_s 26 مثال بالبور كويري وتحدي رقم 2 ازاي تعمل المطلوب منك https://youtu.be/01WZGCFjBuQ 27 مثال بالبور كويري وتحدي رقم 3 ازاي تعمل المطلوب منك https://youtu.be/JjnMEbfag2E وده لينك البلاي ليست كامل https://www.youtube.com/watch?v=JUu6s3b72kM&list=PL_VK9sJe7kq6RKF-jjjZxggOF3OG9pvD5

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

جرب هذا الملف 88_sali.xlsx

بسم الله الرحمن الرحيم - بناء على طلب الأخ SOJOD وهو عضو معنا بالمنتدى . فقد قمت بتصميم برنامج للمستودعات والمبيعات وأليكم البرنامج مع الشرح بالصور - في البدايه البرنامج مصمم على الأكسيل xp وسيعمل مع جميع الأصدارت بمشيئة الله تعالى - عند تشغيل البرنامج ستظهر لك الشاشة الرئيسيه والتي تحتوي على مجموعة من الأزره كما ترى بالصوره - أولاًُ : يجب عليك تسجيل المنتجات أو الأصناف المتوفره لديك وذلك بالضغط على صفحة الأصناف ستجد أن الأصناف مرقمه من ( 1 - 150 ) صنف والأرقام ثابته ولكن عليك أدخال أسم كل صنف أمام رقمه ( خطوه أساسيه ) - ثانياً : عليك أدخال أسماء الموردين الذي تتعامل معهم لشراء المنتجات التي لديك وذلك بالضغط على زر صفحة الموردين . تحتوي الصفحه على 150 مورد ولا تنسى أن لديك خيار للبحث عن أسم المورد ( خطوه أختياريه ) - ثالثاً : بعد تسجيل أسماء المنتجات وهذه الخطوه هامه جدا . تجد زر خاص بفواتير الشراء عند الضغط عليه تتوجه للصفحه التي بها عدد ( 31 ) زر أي ( 31 ) فاتوره بأقصى عدد أيام للشهر وللعلم فإن كل فاتوره يتم تحريرها سيظهر أمامها بهذه الشاشه مبلغ إجمالي الفاتوره والذي سيساعدك في معرفة إذا كانت الفاتورة محرره أم لا . - رابعاً : تجد أيضاً فواتير خاصه بعمليات البيع خلال الشهر وهي أيضاً بعدد ( 31 ) وبنفس فكرة فواتير الشراء - خامساً : عند الدخول الي فاتورة الشراء أو البيع ستجد أنك ستكتب تاريخ اليوم - رقم الفاتوره - وبيانات المشتري أو البائع وستجد أنك بمجرد أدخال رقم الصنف سيظهر أسم الصنف حيث سيستسقي البرنامج بياناته من البيانات التي أدخلتها أنت في صفحة ( الأصناف ) - سادساً : توجد صفحه خاصه بالتقارير وبها مجموعه كبيره من التقارير كما ترى بالصوره وسأتركك تستكشفها بنفسك - سابعاً : بما أن البرنامج شهري ويتم مسح بياناته نهاية كل شهر فيجب عليك لكي تحصل على تقارير سنويه أن تقوم بحفظ البيانات أولاً قبل مسح الشهر وذلك بالضغط على زر ( تخزين البيانات ) من الصفحة الرئيسيه ثم سيفتح لك صفحه بها أسماء شهور السنه قم بالضغط على اسم الشهر الحالي ليتم حفظ البيانات تلقائيا - ثامناً : الآن وبعد حفظ بيانات الشهر يمكنك مسح كافة بيانات هذا الشهر والبدأ بتسجيل شهر جديد وذلك بالضغط على زر المسح من الصفحة الرئيسية - ستجد أن البرنامج يطلب منك كلمة السر لتأكيد الدخول لصفحة المسح وكلمة السر هي ( بسم الله ) وبعد الدخول للصفحه تجد العديد من الخيارات حيث يمكنك : * مسح بيانات الشهر الحالي فقط * مسح جميع البيانات مع الأحتفاظ بأسماء المنتجات والموردين * مسح كامل بيانات البرنامج وتصفيره وبدأه من جديد بالكامل * ملحوظه هامه ( تغيير أسم الملف الأصلي وهو ( STORE ) قد يؤدي لخلل بعملية مسح البيانات وعليه يجب عدم تغيير أسم الملف الأصلي * لا تنسى أنه بأمكانك مشاهدة تقرير بالأرباح والخسائر * تقرير بفواتير الشراء * تقرير بفواتير البيـــــع * تقرير بعدد مرات شراء أو بيع صنف * والعديد والعديد من التقارير الشهريه والسنويه * البرنامج مضغوط ببرنامج Winzip وحجمه ( 1.12 ) ميجابايت . وبعد فك الضغط حجمه سيكون 4.48 ميجابايت * في النهايه أشكر كل من ساعدني في أتمام البرنامج وأخص بالذكر : * الأستاذ ( محمد طاهر ) * الأستاذ ( أبومؤنــــس ) * وأشكر الآخ ( sojod ) على طرح الفكره رابط تحميل البرنامج تجدونه في المرفقات * شكراً لكم ولا تنسونا من صالح الدعاء * download.zip