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

الكود السابق يملأ الخلايا الفارغة كلها بدون شروط لذا يلزم إضافة شرط يمكنك استعمال هذا الاجراء تم إضافة شرط أن تكون خلية العمود B في نفس الصف غير فارغة Sub masFillBlanks() Dim rng As Range For Each rng In Range("H11:AT75") If Range("b" & rng.Row) <> "" And IsEmpty(rng) Then rng.Value = "-" Next MsgBox "Done by mr-mas.com" End Sub وهذا نفس الاجراء بطريقة أخرى Sub masFillBlanks2() Dim arr, r As Long, c As Long arr = Range("H11:AT75").Value For r = LBound(arr, 1) To UBound(arr, 1) If Range("b" & r + 10) <> "" Then For c = LBound(arr, 2) To UBound(arr, 2) If IsEmpty(arr(r, c)) Then Cells(r + 10, c + 7) = "-" Next c End If Next r MsgBox "Done by mr-mas.com" End Sub وأنصح بعدم وجود صفوف أو أعمدة زيادة مثل ما بعد الصف 47 وlما بعد العمود AN بالتوفيق

وعليكم السلام -يمكنك ذلك بهذه المعادلة =COUNTIFS($E$3:$E$500,$E3,$D$3:$D$500,$D3)>1 التنسيق الشرطي للتكرار بشرط1.xlsx

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

السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb

جرب استعمال هذه المعادلة في الخلية G6 =IF(B6="","",IF(DATEDIF(D6,E6,"md")>=30,IF(DATEDIF(D6,E6,"ym")+1=12,0,DATEDIF(D6,E6,"ym")+1),DATEDIF(D6,E6,"ym"))) وهذه في الخلية F6 =IF(B6="","",IF(DATEDIF(D6,E6,"ym")+1=12,1,0))+DATEDIF(D6,E6,"y") بالتوفيق

وعليكم السلام ورحمة الله ...جرب المرفق علامه صح اوخطأ.xlsm

السلام عليكم ورحمة الله وبركاته... قمت ببرمجة هذه الاداة تلبية لطلب اخونا @ابوخليل في هذا الموضوع هنا: الاداة مبرمجة 100% بلغة NET. وهي تستعمل مكتبات Google.Apis.Drive وهي تحتاج منصة الفريم ورك 4.5 ملاحظة: انا طبقت الشرح على نسخة احتياطية حيث وضعت الـ Path عبارة عن CurrentProject.FullName يمكنك استبداله بأي مسار صورة او فيديو او ملف او اي شي الشرح بصوتي الجميل😂: https://youtu.be/Uzj68nCaEbo الرابط الذي استعملته في التسجيل: https://console.developers.google.com/apis/credentials/oauthclient/ لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. GoogleDriveUploader.rar

بعد اذن الاساتذه يوجد موضوع هنا به التوأم والاخوات https://www.officena.net/ib/topic/48176-كود-لإستخراج-الطلاب-التوأم/

دائما تاتى بكل ماهو مفيد وجميل بارك الله فيك وجعله فى ميزان الحسنات

السلام عليكم , فكرة جميلة أخى موسى بارك الله فيك

شكرا استاذ حسين وجزاك الله خير هذا هو المطلوب

بارك الله فيك ... بالعكس بمثل هذه المحاولات والتعديلات على اكواد غيرنا نتعلم ... الحمد لله رب العالمين .... بالتوفيق

شكراً للإفادة اخي الكريم kanory وشكراً لك أيضاً لأنك صاحب كود الإضافة الذي استخدمته وأجريت عليه بعض التعديلات .. وأرجوا ألا تكون تخبيصات 😁

الخطأ :::: لانك سميت احد الكائنات بعبارة محجوزة للاكسس وهي page <<<<<<< غير اسم مربع النص الى اسم اخر مثلا txt_page

بعد اذن استاذنا/ محمد صالح ..هل هذا ما تريدة Days_Medo.xlsx

ربما يكون سبب بطء الكود (من وجهة نظرك) شرط عدم قراغ خلية العمود b في نفس الصف وعدم تحديد النطاق الفعلي (بدون زيادة في الصفوف أو الأعمدة) بالتوفيق

متابع

السلام عليكم بعتذر عن التاخير بالرد وارجو الدعاء لجدى واسال الله ان يرحمه برحمته الواسعه وان يجعل قبره روضه من رياض الجنه وجزاهم الله خيرا اخوتى واساتذتى @ابو البشر و @مبرمج سابق على كل ما يقدمونه لنا فى سبيل التعلم والمساعده لاخوانهم المبتدئين امثالى 💐 واعذرنى فلم ارى مشكله بمثالى الذى ارفقته او الذى ارفقته انت استاذ شعبان ردا على مشاركتى ولا ادرى السبب هذا التعديل ع مثال اخى ومعلمى ووالدى الحبيب @مبرمج سابق واعتذر لو قمت بالتعديل بدون استئذان وهذا التعديل لسببين فى المثال السابق لمعلمى ووالدى الحبيب خالد عند الضغط عالزر يقوم بزياده الرقم بمعنى اذا كان المفروض السجل الثانى رقم 2 فيقوم باضافه 1 مره اخرى فيصبح 3 والثانى لمطلب الاستاذ شعبان Private Sub Form_Open(Cancel As Integer) 'If Me.NewRecord Then أمر11_Click 'End If End Sub Private Sub أمر11_Click() DoCmd.GoToRecord , , acNewRec Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.as_a2 = Date Me.Pu_inx8.SetFocus Me.Refresh Me.Pu_inx8.Form!as_b2.SetFocus End Sub وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات وجزاكم الله خيرا 1(1).accdb

اللهم امين يارب العالمين 🤲

اتفضل 1- تاريخ اخر اضطرارية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='اضطرارية'"),"yyyy/mm/dd") 2- تاريخ اخر حافز =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='حافز'"),"yyyy/mm/dd") 3- تاريخ اخر مغادرة =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='مغادرة'"),"yyyy/mm/dd") 4- تاريخ اخر سنوية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='سنوية'"),"yyyy/mm/dd")

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

في حدث عند تحميل النموذج sirtfecat ضع هذا الكود ... وجرب واعلمنا <<<<<>>>>> DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO sirtf_details ( item_nob, item_descr, unte, contr_Qty, contr_price, nob4 ) SELECT item.item_nob, item.item_descr, item.unte, item.contr_Qty, item.contr_price, DLast(""[nob3]"",""[sirtfecat]"") AS Expr2 FROM item;" DoCmd.SetWarnings True

جزاك الله خير الثواب استاذ مجدى

تم اضافة قائمة للشهر حسب العام تم اضافة معيار الشهر مع المعيار السابق تم تغيير طريقة المعيار باستخدام like مع * ليمكن البحث بالجهد او الشهر او الاثنين معا او بدون الاثنين لاضافة كل السجلات مع ذلك لو انني مبرمج فسوف اقترح عليك الاتي استخدام جدول sd كحاوية للبيانات فقط نعمل قائمة منسدلة بالشهر والعام نجعل شرط الاضافة من خلال هذة القائمة فقط مثلا شهر ثمانية لدينا سجلين فقط للجهد احداهما 500 والاخرى 400 وكذلك الحال لكل شهر قيمته نجعل التعامل مع جدول sd من خلال الاستعلام فنستطيع استخلاص بيانات شهر محدد وايضا قيمة محدد او كل القيم او الرجوع لاشهر سابقة يدون الحاجة لتنفيذ الكود كل مره ولكن لو حرف امتناع لامتناع فانت لم تطلب ولا انا مبرمج تحياتي والملف مرفق Database5112.accdb

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

وعليكم السلام اتفضل اخى @طارق عبد الرازق يجب ان تكون المعايير كلها على صف واحد بالتوفيق فلتر وتصفية ثلاث معيار.accdb

تفضل تـــم التعديل وذلك بسبب مشكلتك انت مع الكود لأنك لغيت سطر إظهار التكست بوكس كتاريخ 1حلقات مسجد الجامع....xlsm

وعليكم السلام-بعد اذن الأستاذ محمد يوسف-تفضل فاتورة جديدة12022.xls

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

كل عام وانتم بخير ادعو الله ان يتقبل منا ومنكم سائر الأعمال

كل عام وانتم بخير

تم التعديل أخي هاني 🙂 تجميع غياب لكل طالب.mdb

وعليكم السلام .. فى زر الخروج اضف الكود التالى مثلا If IsNull(Me.txit1) = True then docmd.close else cancel=msgbox("لا يمكن الخروج لوجود قيمة بالحقل") end if end sub

أعجبني الملف المرفق لما فيه من أفكار للتصميم العصري للنماذج و شريط الأدوات أردت أن يطلع عليه من يريد التجربة و الإستفادة نظرا لكبر الملف فهو مجزأ لذا فك الملفات الثلاثة في ملف واحد، رابط موقع صاحب الملف الموقع من هنا bin.rar VBA_TOOLS.rar dll_Test.rar

استخدم دالة Replace مرتين ، مرة لإزالة "." والأخرى لتبيدل "," بـ "." Num = Replace(Num, ".", "") Num = Replace(Num, ",", ".") وتستطيع جمعهما في سطر واحد: Num = Replace(Replace(Num, ".", ""), ",", ".")

تفضل أخى كارتة الصنف المعدلة.xlsm

اخى انه يعمل معى ط­ط±ظƒط© ظٹظˆظ…ظٹط© 2018NNNNN.xlsm

من فضلك اخى محمد لا تقوم بمشاركتين بنفس السؤال حتى لا تشتت الأخوة فى مساعدتك فبالتالى ينصرفوا عنك دون تقديم اى مساعدة لك بارك الله فيك

تفضل أخى حماية الخلايا مباشرة بعد الإدخال.xlsm

جرب هذا حركة يومية 2018NNNNN.xlsm

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

تفضل أخى لقد تم التعديل من قبل أستاذنا زيزو العجوز ترحيل من صفحة الى أخرى الى صفوف معينة.xlsm

جرب كده ..لقد تم تعديل معادلة الإجمالى فى صفحة البحث طھطµط­ظٹط­ ظ…ط¹ط§ط¯ظ„ط© ط¨ط­ط« ط¨ط§ظ„ط£ط­ط±ظپ ط§ظ„ط£ظˆظ„ظ‰ ظˆط£ط³ط¦ظ„ط© ط£ط®ط±ظ‰.xlsm

جرب هذا أخى بكار تصحيح معادلة بحث بالأحرف الأولى وأسئلة أخرى.xlsm

أستاذ محمد سؤالك غير واضح هل انت تريد معادلة Average فى العمود P ومن أى صف او عمود أخذ بنود هذه المعادلة من فضلك وضح ما تريد بالتفصيل مع أخذ مثال من ملفك لو حتى 20 صف وقوم بإرساله مع توضيح النتائج المطلوبة يدويا بارك الله فيك

وعليكم السلام ..تفضل أخى هذا بالمعادلات tarheel.xlsm

وعليكم السلام أخى من الأفضل ارسال الملف نفسه وليس صورة بارك الله فيك