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

اختار ما تشاء من مجموعة الايقون بما يتناسب مع احتياجاتك https://www.google.com/search?q=employee+icon+png

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

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

السلام عليكم اخواني الكرام لدي قاعده بيانات واريد عمل فلتر لاكثر من قيمه في النموذج برقم الموديل او رقم PO او مقاس واريد ان اربطهم ببعض لان كل موديل لديه رقم PO ومقاس اريد ان تكون الثلاث حقول كومبو بوكس ان امكن لديكم مرفق لقاعده البيانات برجاء ربط الجداول في النماذج https://www.mediafire.com/file/378mhndqy937d5p/m.khaled.rar/file

السلام عليكم اساتذتي الاعزاء وجدت كود بالموقع لاحتساب الراتب مرتبط فيه الدرجة (stage) والمرحلة (step) مثلا عند اختيار الدرجة 3 والمرحلة 1 يكون الراتب 600000 وهكذا المطلوب تدقيق الكود هل هو صحيح 100% ام لا واحيانا يعلق العمل فيه تحياتي للجميع test.accdb

السلام عليكم .. اين اجد مثل هذه الايقونات؟ ايقونات.rar

مبروك الأستاذ حسونة إنضمامك لأسرة فريق الموقع ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك .. وأهلاً ومرحباً بك بين أخوتك من أسرة فريق المنتدى الكريم ..ويسعدنا انضمامك لفريق العمل

السلام عليكم في نموج sale يكون التسجيل لدي باسم الصنف ويظهر رقم الصنف تلقائي لأنه مرتبط به هل يوجد طريقة للتسجيل بالاثنين معا برقم الصنف او بأسم الصنف Documents.rar 20221102_180359.rar

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

وجزاكم الله خير استاذ محمد

وعليكم السلام ورحمة الله وبركاته جزاكم الله خيراً

نعم ممكن .. 🙂 افتح الملف عن طريق الـ WinRaR

المعادله في الاساس غلط لانك كاتب لو c4 اكبر من او تساوي c4 يكتب الناتج الموجود في f4 وكده كده c4 هتساوي نفسها فاكل مره هيكون الناتج هو اللي موجود في f4 لو ممكن توضح اكتر بمثال تاني علشان نقدر نساعدك

السلام عليكم أخي الكريم لقد وضعت شرطاً لا أهمية لوضعه لأن الخلية C2 هي C2 فكيف وضعت شرطاً مثل هذا =IF(C2>=C2;F2;E2) أما ما أسميتها شروطاً هي نتائج متوقعة في حال تحقق الشرط كانت النتيجة الأولى وإلا فالثانية. ولذلك عليك وضع شرطاً غير هذا ، أو وضع شرطين. وإلا فلن تتحقق النتائج كما تريد ...والله أعلم

هذا الحل لو كانت قاعده البيانات على الجهاز فقط وليست الشبكه

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

جزاكم الله كل خير

جزاك الله خيرا استاذ AbuuAhmed وزادك علما لا نعرف كيف نشكرك ربي يحفظك

كود لإنشاء إختصار للبرنامج أو أي مجلد على سطح المكتب مع تعيين أيقونة له Public Function CreateShortCut(strTargetFileFullPath As String, strShortCutName As String, strIconPath As String) 'strTargetFileFullPath : Sorce File Like : "D:\DomnFunBuldr.accdb" 'strShortCutName : Wanted Name for the ShortCut Like : "Moosak" 'strIconPath : Icon Full Path Like : "D:\MyIcon.ico" Dim oWSH As Object Dim oShortcut As Object Dim sPathDeskTop As String Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") strShortCutName = strShortCutName & ".lnk" Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & strShortCutName) With oShortcut .IconLocation = strIconPath .TargetPath = strTargetFileFullPath .Save End With Set oWSH = Nothing End Function '===================================(Testing) Sub TestCreateShortCut() Call CreateShortCut("D:\DomnFunBuldr.accdb", "MoosakAp", "D:\MyIcon.ico") End Sub

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

جهد رائع جزاك الله خير الجزاء

الطريقة الاخرى بدون استخدام دالة dsum وبدلا منها نستخدم استعلام فرعي Expr1: (select(sum([inputN])-sum([outputN])) from [Q_Rsidreport] where [date]<=kh.[date] ;) هنا استخدمنا اسم مستعار لمصدر الاستعلام النتيجة في استعلام q_3 Prog2000.mdb

النسخة الثانية تم تبديل الكود الأساس بالكامل وتم بناءه من جديد. النتائج الآن أفضل والخيارات أوسع. وشكر خاص للاستاذ سعد @saad 77 لتقديمه المعلومات المطلوبة لانهاء المشروع. توزيع القرار لمدارس العراق_02.xlsm

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"

وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022 ..وأما بالنسبة لما لا يظهر معك من عقوبة ومهمة وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm كشف حضور 1مميز.xlsx

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

على بركة الله بارك الله فيك استاذ هشام والى الأمام دائماً ونتمنى لكم المزيد من النجاح والتفوق

بارك الله فيك استاذ AbuuAhmed وجعلك الله دائماً وأبداً زخراً لكل المحتاجين وجعل الله هذا العمل الممتاز فى ميزان حسناتكم وزادك الله من فضله

وعليكم السلام-تفضل =IFERROR(INDEX($G:$G,MATCH($C3,$H:$H,0)),"لا يوجد") Book3.xlsx

السلام عليكم و رحمة الله استخدم هذه المعادلة =((D5+E5)+(F5*2))/4

يمكنك استخدام هذه المعادلة على الرغم انك لم توضح أين يتم وضع معادلة البحث ,, فقد تـــم عمل وتنظيم كل شيء ..فقد تم عمل قائمة منسدلة بكل أرقام السيارات ما عليك سوى إختيار السيارة المراد البحث عنها واترك الباقى على الإكسيل =LOOKUP(2,1/($B$2:$B$500=$N2),$G$2:$G$500) 1تموين سولار.xlsb

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

وعليكم السلام لا يمكن استخدام معادلة VLOOKUP لطلبك, وذلك لعدم تنظيمك لجدول البيانات وعدم جعلك لإسم الشركة بعمود يسبق رقم الفاتورة وليس العكس ..ملحوظة :لابد من تطابق اسم الصفحة للإسم الموجود بالصفحة التى سيتم البحث بها ولكن يمكنك استخدام المعادلة التالية : =IFERROR(LOOKUP($C3,INDIRECT("'"&H$1&"'!$I$6:$I$61"),INDIRECT("'"&H$1&"'!$b$6:$B$61")),"") INVOICE COLLECT. TEST1.xlsx

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

تفضل 1542070317_-1.xlsx

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

لا يمكن ذلك لأن ذلك سيتم بأكواد vba وهى بدورها لا تعمل على التليفون وشكراً

ارفع من فضلك الملف أو صورة من المشكلة التى تحدث لك فهذا هو الحل الوحيد لهذه المشكلة !!!

تفضل كان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك , فطلبك تكرر كثيراً ..واليك الحل مشكلة في اللغة العربية

وعليكم السلام-جرب هذه المعادلة =SUMIF($B$13:B14,$B14,$D$13:D14) Book2.xlsx

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

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

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

وعليكم السلام-استخدم هذه المعادلة =IF($B7="مصطفي","لا يوجد","")

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله بمقابل مادى وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

تفضل بسيطة يمكنك التواصل مع الأستاذ خالد صابر .مصمم البرنامج المشروح بالفيديو وسينفذ لك طلبك ان شاء الله وللتواصل معه عبر الإميل :khaledsaber2030@gmail.com واتس : 00201007630611

السلام عليكم ورحمة الله الاخ الكريم يمكنك التخلص من الجزء العشرى فى الرقم بدون عمل تقريب للكسور وذلك باستخدام الدالة Int وهى الدالة الخاصة بالعودة بالجزء الصحيح للعد بدون جبر الكسور. فعلى سبيل المثال لو كان حقل السعر هو Price فان العمود الثانى الذى تحسب فيه الخصم سيكون بالشكل التالى discount: Int(Price*30/100) على اساس ان discount هو مقدار الخصم. وطبعا لك ان تغير المعادلة الرياضية حسب ما تريد حسابه فعليا, المهم ان تضع المعادلة داخل الدالة Int للعودة بالرقم الصحيح بدون جبر الكسور. وبالتوفيق بعون الله,,, اخوك عماد حمدى احمد