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

المثال يتكون من حرفين كبيرين لاتيني/انجليزي ورقم ويمكن تحديد طول الرقم بين 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

المكتبة العلمية دروس إكس وورد اكسس أندرويد قرآن المكتبة العلمية دروس إكس وورد اكسس أندرويد قرآنأقدم لكم رابط المكتبة العلمية على سحابة ميقا https://mega.nz/folder/kkojTSCL#l5i4J_pOmepM4n5xZW67MA بس لسة قيد الانشاء فيها ماقد تسير رفعه بفضل الله

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

هذه الميزة جميلة لكنها تنطق عند حدوث تغيير في كل مكان وهذا مذعج جدا الكود يحدد الخلايا التي ينطقها البرنامج مثلا إذا أردنا نطق أي تعديل في خلايا العمود A نستعمل الكود التالي في حدث عن التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim v As Object Set v = CreateObject("SAPI.SpVoice") v.Speak Target.Text Set v = Nothing End If End Sub وأعمل حاليا على كود ينطق باللغة العربية ولكنه يحتاج إلى اتصال بالانترنت إن شاء الله أعرضه فيما بعد بالتوفيق

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

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

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

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

هذه هي التصفية بالمعادلات وتتم بمعادلات المصفوفات حدد النطاق 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 المستخدمة الف الف شكر لك اخي تم اضافة هذا العمل الجميل لمكتبتي

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

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

جرب هذا التعديل 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

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

الامر سهل انظر الى مواقع الاسهم في الصورة واضغط على النقاط الثلاث في الصورة مكان السهم يظهر لك استعلام لبيانات مربع القائمة ... طبق على مثالك ..

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

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

لاحظ التقرير .... بعد التعديل ..... اما بالنسبة للوقت هناك خطأ لديك وهو انك جعلت الحقل الخاص بالوقت نص المفروض تجعله وقت وتاريخ حتى يمكن جمع الساعات والدقائق ويمكن ان تساوي يوما في حالة التاخر حتى يتم الخصم على الموظف يوم في حال اكتمالها يوما .... Dawam1 (1)1.accdb

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

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

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

يارب

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

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

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

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

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

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