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

اختار ما تشاء من مجموعة الايقون بما يتناسب مع احتياجاتك 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 ليست الفكرة المثالية وان كانت تؤدي الى حل المشكلة مع ذلك ننتظر ابداعات اخواننا واساتذتنا ربما يقدمون حل افضل تحياتي

شكرا الاستاذ محمد حسن المحمد والاستاذ ابو ايسل على تفاعلكم عندي شيت به ورقتين ورقة صرف من المخازن اسم المنتج (صنف1 به 25 عبوة ) العبوة الواحدة سعتها متغيرة يتم تفصيلها في شيت البيان مرة 40 او 36.5 او 50 " كمثال اوضح تم صرف صنف1 في شهر1 كمية 2.4 يعني 60 عبوة تم استهلاكها في شيت البيان والنتيجة مظبوطة وكذلك شهر2 ولكن شهر3 تم صرف كمية واحدة المطلوب تعديل معادلة في عمود( J ) كمثل النتيجة الموجودة في عمود ( L ) مصنف.xlsx

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

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

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

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

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

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

عند تغير اسماء المواد فى شيت التفاصيل لايتم تغير المواد فى شيت القائمة والمسودة

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

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

من اكتر المشاكل اختلاف الخطوط عند نقل الملف الي العميل ف لقيت عندي ملف من زمان لتغيير نوع الخط تقريبا كنت نزلته من هنا والله اعلم المهم عدلت عليه بحيث نقدر نختار نوع الخط بدون ما مندخل لوضع التصميم او نتقيد بخط واحد تغيير نوع الخط.rar

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

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

وعليكم السلام أخي أحمد 🙂 شاهد طريقتي في عمل أيقونة سطح المكتب هنا : ويوجد كذلك لدي كود VBA لعمل اختصار للبرنامج في سطح المكتب .. إن شئت أرسلته لك 🙂

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

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

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

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

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

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

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

تفضل 1542070317_-1.xlsx

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

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

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

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

وعليكم السلام-تفضل لا يمكن ذلك الى بكود بوضعه فى حدث ThisWorkBook Private Sub Workbook_Open() Sheet2.Select End Sub الشهادات المدرسية للقدامى للسنوات السابقة.xlsm

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

وعليكم السلام-وده من خلال Data Validation بإستخدام هذه المعادلة =AND($E2="",$F2="",$G2="") حجب 1الخلايا.xlsx

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

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

بسيطة بعد اذن طبعاً الأستاذ ابراهيم ..عليك بإضافة هذا السطر بالكود قبل نهايته TextBox2.Text = Format(Val(TextBox2.Text), "0.0") تجريبى1.xlsm

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

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

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

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