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

المثال يتكون من حرفين كبيرين لاتيني/انجليزي ورقم ويمكن تحديد طول الرقم بين 1 و 5 أعداد ويمكن تحديد بداية الأرقام لكل حرف بصفر أو واحد ويمكن كذلك اختيار فاصل بين الحروف والأرقام. والمثال يمكنه جلب الرمز السابق والرمز التالي. Hawiii-Coding-02.accdb

استخدم هذا الكود .... 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

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

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

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

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

جرب المرفق مع ملفاتك جميعها .... حتى نكمل بقية البيانات بعد التأكد من عمل البرنامج مع جميع ملفاتك ....... ‏‏test_kanory.accdb

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

جرب هذا الكود Database1.rar

اعتقد هذا الموضوع يفيدك

اخي الحقل الذي تنحث فيه ليس فيه عبارات للباج فيها الاسم والعنوان فقط .... طبق الموجود في الصورة ...

تاكد من الملفين عن طريق فتحهم ببرنامج الاكسل هل يعمل الملفين .... ام احدهما عطلان ؟؟؟؟؟؟؟؟

طيب ... شوف هذا التحايل .... NM.accdb

تم إضافة الشرطين شرط اسم الشيت يكون data وشرط قيمة الخلية لا تساوي "" أو " " يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا Sub Add() If ActiveSheet.Name = "data" Then Dim FR For FR = 10 To 50 If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then Cells(FR, 3) = Val(Cells(FR, 3)) + 1 End If Next MsgBox "plus 1 add to all" End If End Sub بالتوفيق

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

افضل توظيف للفكرة ! تحويل مربع العطل الى مربع نص ---- هذا اولا في حدث عند التغيير في فئة العطل و في آخر حدث يتم تحويل مربع العطل من مربع نص الى مربع تحرير و سرد ---- هذا ثانياَ و في حدث عند التغيير في مربع العطل يتم تحويل من مربع التحرير و السرد الى مربع نص --- هذا اخيرا بهذه الطريقة لن تكون مضطر لوضع مربع تحرير و سرد فوق مربع نص

اتفضل التعديل سبب المشكلة الحدث بعد التحديث يجب ايقافه DATA14-1.mdb

جميل استاذنا الفاضل عمل موفق ورائع ما شاء الله عليك تحياتي

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

تفضل هذا المثال MsgboxForWin.mdb

يمكنك عمل ذلك من خلال التنسيق الشرطي بمعادلة مثل =MONTH(D3)=MONTH(TODAY()) وتطبق على المدى C3:C14 بالتوفيق

هذه هي التصفية بالمعادلات وتتم بمعادلات المصفوفات حدد النطاق B3:B16 ثم اكتب في شريط الصيغة المعادلة التالية =IFERROR(INDEX(entries!D:D,SMALL(IF(1001=entries!$C:$C,ROW(D:D),""),ROW()-2)),"") واضغط Ctrl+shift+enter لقبول المعادلة وكررر ذلك مع النطاقات C3:C16 =IFERROR(INDEX(entries!E:E,SMALL(IF(1001=entries!$C:$C,ROW(E:E),""),ROW()-2)),"") وأيضا مع النطاق D3:D16 =IFERROR(INDEX(entries!F:F,SMALL(IF(1001=entries!$C:$C,ROW(F:F),""),ROW()-2)),"") ملحوظة: هذه المعادلات لا يتم سحبها أفقيا أو رأسيا وإذا تم ينتج عنها بطء شديد للملف لذا يفضل تحديد النطاق الذي ستطبق عليه كله مرة واحدة بالتوفيق

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

يفترض أن تظهر عندك القوائم كاملة جرب الرابط الخاص بالشرح في مشاركتي السابقة https://support.google.com/docs/answer/1218656?hl=ar&ref_topic=9055295

'طبعاً كما أخبرك استاذ محمد ... وهذا فيديو للشرح , طبعاً بع اذن استاذنا الكبير محمد صالح

هذا ما أريده من بداية الكلام فربما لا يحسن أحدنا وصف ما يريد فيحكي بالتفصيل ما يريده فيحاول الجميع الفهم أنت تريد عمل توزيع المحصلين عشوائيا على شهور العام من 1 إلى 12 تفضل هذا ملفك بعد التعديل توزيع المحصلين عشوائيا.xlsm

مشكور اخي الكريم وجزاك الله خير الجزاء

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(C19=$F$7,$E$8,"")

عمل رائع وجميل ... بارك الله فيك استاذ @Hawiii

يوجد ولكن باللغة الإنجليزية

الحماية في جوجل شيت هي بنفس الطريقة من قائمة tools -- protect sheet أدوات حماية ورقة العمل وتعطي فيها صلاحيات لمستخدمين معينين للتعديل على الشيت كله أو بعض الخلايا وهذا رابط التعليمات الخاصة بجوجل شيت باللغة العربية https://support.google.com/docs/topic/9054603?hl=ar&ref_topic=1382883 وهذا رابط طريقة الحماية https://support.google.com/docs/answer/1218656?hl=ar&ref_topic=9055295 بالتوفيق

عمل جميل و للتصحيح هذا ليس ترميز بل ترقيم مضاف الى نصوص او حروف Auto numbering with letters الجميل في الموضوع ان الكود سهل الفهم للغاية و يستطيع المستخدم المبتدء قرائته و فهم المتغيرات و الوظائف Function المستخدمة الف الف شكر لك اخي تم اضافة هذا العمل الجميل لمكتبتي

لن يتم اضافة المستخدم الآخر على نفس الملف سيتم انشاء ملف بإسم كل مستخدم تفضل هذا شرح بالفيديو المرفق Video2.zip

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

جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub

تفضل ..... ناقل_1.accdb

المطلوب غير منطقي أريد كود (هذا اعتراف بأنه كود) وجميع الأكواد لن تعمل إلا إذا قام المستخدم بتفعيل الماكرو ربما أن يفتح الملف على شيت به صور وشرح لطريقة تفعيل الماكرو يؤدي الغرض مثل هذه الصور مع كتابة عبارات مثل : حتى يعمل الملف بصورة صحيحة يجب الضغط على زر تمكين المحتوى Enable content أو ضبط الإكسل على الموافقة على تشغيل جميع الأكواد بهذه الطريقة بالتوفيق

طبق هذا المثال لديك .... ناقل.accdb

العبارة مع الاستعلام يعملان بالتعدل الظاهر في الصورة لدي بدون مشاكل ... تفضل الملف بعد التعديل .... New (5).rar

هل هذا ماتريد؟؟؟؟ انظر النموذج ..... كلمة المرور هي نفسها mohd1234 Dawam1 (1)1.accdb

انا الحقيقة سألت لان احد الملفين لم يعمل معي .... ؟؟

طيب اتفضل هذا التعديل عقود خدمات 2.accdb

شكرا لكل من مر على أول موضوع لي بالمنتدى ذكريات جميلة

هل ما زلنا لم نصل لسر ترتيب الأرقام بهذه الطريقة؟؟!!

بسم الله الرحمان الرحيم السلام عليكم اعلم اعلم ان غيابي طال عنكم احبتي في الله هي الظروف ومشاغل الحياة التي تمنعني عنكم لاكن دائما و ابدا لن اعود بعد غيابي و انا فارغ اليدين لا اطيل عليكم اقدم لكم اليوم نموذج فاتورة بسيط مصمم على الاكسل ؟؟؟؟ ماذا يوجد الكثير من النماذج في المنتدى نعم يوجد لا كن هذا النموذج مختلف جدا عما الفتوموه من الاخر فكرة النموذج هي انشاء ليست برمجيا تسهل علينا ادخال الاصناف بالاضافة الا الشكل الجمالي لها ماذا ستستفيد من هذا البرنامج غير استعماله ؟؟ وانا اقصد الذين يريدون تطوير مهاراتهم في برمجة VBA اولا ستتعلم كيفية استخدام المصفوفات ثانيا ستتعلم شيئ اسمه الوراثة في البرمجة ثالث كيفية الاستفادة من الكلاس موديل و استخدامه مع الوراثة ملاحظة لم اعمل الجزء المتعلق باضافة و تعديل الاصناف وايضا الجزء المتعلق بالعملاء امرهم بسيط يمكن لاي عضو اضافة العملية من نفسه لا اطيل عليكم واترككم لتجربة البرنامج وانا طوع اي احد يريد الاستفسار حول اكواد البرنامج تحياتي للجميع FcteurRabie.rar

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

بسم الله الرحمن الرحيم لي ملاحظة صغيرة على طريقة الأخت زهرة في إخفاء نافذة الأكسس وهي أن البرنامج لا يكون له زر في شريط المهام ولا يمكننا التحكم به إلا من خلال واجهته فما الحل؟

جزاك الله خيرا أخي أعطى الخيار السابق حلا لمشكلة زر الإغلاق ماذا عن الجزء الأبيض على يسار وأسفل النموذج؟