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

تفضل جرب قمت باضافة listbox لعرض محتوى الصفحة جرب.xlsm

الف مبروك ، وفخر لمنتدى اوفيسنا انضمامكما الى مجموعة الخبراء

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

السلام عليكم ورحمة الله وبركاته الحمد لله والصلاة والسلام على رسول الله وعلى آلة وصحبه، أما بعـد: أمل ان لا أكون خالفت أنظمة وشروط المنتدى بطرحي هذا فقد قمت بجمع عدد ليس بالقليل من الأمثلة التي قد يستفيد منها المبتدئين وسوف أقوم بتنزيلها على مجموعات لعدم إمكانية رفعها دفعة واحدة و بعد التأكيد من موافقة إدارة المنتدى سوف نضع بين ايديكم المجموعة الأولى والثانية من الأمثلة التي تناسب مع المبتدئين ونسأل الله بعد الموافقة انها تكون مفيدة لكل مبتدي تحياتي

السلام عليكم ورحمة الله أولا لا اعرف ان سبقني احد من الاخوة بهذه الفكرة ام لا لكن احببت ان شارككم ما توصلت الية من عمل من الممكن ان ينفع احد من الاخوة في المنتدى , ثانياً سوف اسرد لكم ما توصلت الية وهيا الاداة الاولى Admin Control هذه سوف تظهر لنا من يتصل بقاعدة البيانات واخر اتصال له ويظهر لدينا اسم جهاز الكومبيوتر الخاص به مع عدة معلومات . Computer Name : اسم جهاز الكومبيوتر المتصل بقاعدة البيانات Access Name : هنا المقصود صلاحية المتصل ودائماً تظهر انها Admin ولكن بصراحة احتاج الى مراجعة مصادر اخرى للتاكد منها Connected : حالة الاتصال بقاعدة البيانات suspect state : هنا لو حصل ضرر بقاعدة البيانات سوف تظهر كلمة True لكن في الوضع الافتراضي تأتي فاضيه لذا استبدلتها بكلمة False Last Time Connection : اخر وقت تم الاتصال به بقاعدة البيانات من قبل المستخدم Refresh في هذه الخانة سوف يتم تحديد وقت عمل لعمل تحديث بيانات اتصال اجهزة الكومبيوتر والحالة يوجد لدينا وقت وايضا دقائق او ثواني اما زر Close all DataBase عملة هو حذف جميع مسارات قواعد البيانات المخزونه لدنيا اما زر Open DataBase سوف يقوم بفتح نموذج جديد نحدد فيه مسار قاعدة البيانات وايضا وضع كلمة السر في حال ان قاعدة البيانات تحتوي على كلمة سر سوف اقوم بأضافته بعض الخيارات ان شاء الله في الايام القادمة للاستفادة اكثر من عمل الاداة اما الاداة الثانية Connected users account هيا فقط تقوم بعطاء عدد المتصلين الحالين بقاعدة البيانات ما فائدة هذه الاداتين ؟ الفائده هيا من الممكن ان تجعل الاداة برنامج مراقبة لمعرفة من اتصل بقاعدة البيانات واخر وقت تم الاتصال به ويصبح لديك بيانات لمعرفة من يستخدم القاعدة والوقت المستغرق وهذا ما انوي فعلة ان شاء الله و ان اجعل من البرنامج اداة حفظ بيانات الاتصال على شكل Log اما الاداة الثانية وهيا بصراحة جزء من نفس الكود للاداة الاولى لكن ابسط غرضه عمل عداد لمعرفة عدد المتصلين بالقاعدة حالياً , ماذا يمكن ان استفاد منها ؟ انا حسب حاجتي لها هيا نوعين من الاستفادة الاولى في حال اردنا ان نحدد عدد المستخدمين المتصلين بقاعدة البيانات وهنا سوف نضعة عند اقلاع البرنامج وسوف يتاكد من عدد المستخدمين وهل تم تجاوز العداد المسموح به , الاستفاد الثانية لو كنت تتعامل مع شركات ولديهم اكثر من جهاز فا موضوع ان نضع لكل جهاز سريال نمبر سيكون مشكلة لدينا لانهم في حالة تغير الاجهزة بستمرار , هنا يمكن ان يتم التعامل معهم على عدد المتصلين بقاعدة البيانات بنفس الوقت هناك نوع من التراخيص التي تعمل بهذا الشكل حيث التعاقد على انه يمسح لك بتصال 5 اجهزة بنفس الوقت لو اردت اكثر يجب ان تقوم بالدفع لاخذ الرخصة وهذه وحده من الفوائد , اتمنى من الاخوان لمن لديه فكرة واحب ان يطور في الاداة فله مطلق الحرية , الادة مفتوح يمكن الاطلاع على الكود وطريقة عمله. ملاحظة الاداتين تعمل لكشف عدد المتصلين بالقاعدة عن طريق نفس الجهاز او عن طريق الشبكة . اتمنى ان اكون قد وفقت بما طرحت . Connected users account.accdbAdmin Control.accdb

السلام عليكم الخلل كان في تنسيقات الصفحة (ناحية الطباعة-تحجيم الصفحة-فاصل الصفحات..) وقد تم تعديلها... الملف.rar

وتفضل تلوين مربع البحث بنفس لون المجموعة رسالة2.rar

هذي النقطة أعتقد ليس لها علاقة بالكود وإنما بتضبيطات بريد الياهو عندك .. فقد حصلت معي سابقا .. ****************************************************************************************** هذا السطر الذي ذكرته لك ( أزل الرمز ( ' ) من أمامه) : وبعد التفعيل تم ارسال المرفق بنجاح : ****************************************************************************************** وبالنسبة لفحص الاتصال بالانترنت استخدم هذا الكود (يوضع في موديول عام) : #If VBA7 Then Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #Else Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #End If Function Is_Connected() As Boolean Dim IEStat As Long Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0) End Function Public Sub TestInternetConnection() If Is_Connected() = True Then MsgBox "Connected" Else MsgBox "Not Connected" End If End Sub ثم يتم استدعاء أحد الدالتين التاليتين : Connected() هذه تعطيك نتيجة نعم/ لا على الإتصال TestInternetConnection() وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا ****************************************************************************************** وأنا أريدك أن تتعلم كيفية التعامل مع الأكواد أخي @حمدى الظابط 🙂

تفضل أخي رسالة1.rar

اخى الكريم @عبدالفتاح في بي اكسيل الملف (الفصل الثاني ) الذي ارفقه اخونا @dodo222وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت محمى

@محمد صغير شعبان ما الهدف منه؟ اليست بوكس يقوم بنفس الشيء !

اخي قلت ليست لي فكرة عن هذا يعني عن برمجتها

هي اضافة يتم تثبيتها من خارج الاكسل ثم تضيفها الى صندوق الادوات

ليست لي فكرة عن هذا ولم اجد في الفورم اي اداة اخرى غير Textbox و label

🙂

السلام عليكم هذا المثال من بدايات المنتدى (2003) ، و قد نبهني الأخ حسونة أمس أنه أثناء المراجعة والتنقيح بأن المرفق للمثال مفقود و صراحة لم اجد المرفق متاحا بسهولة ، فأعددت مرفق سريعا وفقا لما فهتمته من الشرح و اضفته للموضوع ، وربما يكون الملف الصلي مختلف ملاجظة اسم الملف القديم كان Form1.rar فاذا كان احد قدامى الأخوة محتفظا به فليضفه مشكورا لنتذكر ماذا كان بالملف 🙂 و ربما تكون فرصة أيضا لاضافة طرق افضل من قبل الأخوة الكرام.

وعليكم السلام ورحمه الله وبركاته معادله المرتب تقوم بعمليه قسمه للراتب(5000) في الخليه a2 / عدد ايام الشهر (30) ثم ضرب في عدد ايام الحضور(18) في الخليه b2 فتكون المعادله في الخليه C2 كالتالي =A2/30*B2 بالنسبة للمكافئة لا يوجد معطيات حتى اعطيك نتائج

انظر اخي ليس يوجد مشاكل بالنسخ @Khorsheed Omar

هممم معلش اخوي حمدي ، يجب الالتزام بقوانين المنتدى ، موضوع مستقل لكل سؤال 🙂 فإذا تمت الاجابة على سؤال الموضوع ، فرجاء تفتح موضوع آخر للسؤال التالي 🙂 جعفر

السلام عليكم لدي وجهة نظر بما ان السجل يخص ثوب محدد لزبون محدد ، وانت تريد عرض جميع انواع الجزئية سواء كانت اكمام او ياقات او جيوب .. الخ لتختار منها ما يناسب الزبون فأرى انك لست بحاجة الى النموذج المستمر سوف تعمل مجلدات تدرج فيها صور انواع الجزئيات .. كل جزئية بملف يخصها ( لاحظ ان اسم الصورة التي تمثل الجزئية المختارة سيكون الرقم المعرف للصورة ) وفي النموذج عند النقر على : ( الكم ) يفتح المجلد بجميع الصور الخاصة بالكم ، وبمجرد اختيار الكم المناسب يتم تسجيل رقم الكم ( المعرف) في الحقل .. وايضا الوصف تصوري للمخرجات لو اردت طباعة وصل او تقرير .. سيظهر التقرير كقائمة بمواصفات الثوب ,, لاحظ انه لا يوجد صور السبب اننا نستخدم الصور فقط لاتاحة اختيار الزبون من بين الانواع

جزاك الله خير وياليت لو كان هناك تعريف بسيط لمحتويات كل مجموعة 😀

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

والله امثلة بديعة ومفيدة جدا جدا الله يبارك لك فى علمك وصحتك وعافيتك ويرحم والديك فى الدنيا والاخرة

الخطوات اللي اقوم بها للتاكد من مكان الخلل: 3. الدخول في احد المواقع العالمية الاخرى. اذا الخطوة رقم 3 عملت ، فاعرف ان الموقع رقم 2 فيه مشكلة 🙂

لتنفيذ المطلوب يتطلب وجود رقم فريد لكل موظف يجب أن لا يتغير لتتم المقارنة بين القائمتين. ولمعرفة وجود موظفين جدد أو حذف آخرين. (لا بد من وجود رقم فريد لكل موظف ويجب أن لا يتغير مع مرور السنوات)😘

وعليكم السلام ورحمة الله وبركاته هل هذا هو المطلوب نموذج.xlsx

بارك الله فيكم لا يوجد لدي مرجع لهذا البند- مستودع الادوية للاسف، عذرا.

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

جزاك الله عنا كل الخير

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

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

ألف مبروك

ألف مبروك

بالانتظار مشكور اخى الكريم

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

وعليكم السلام ورحمة الله وبركاته 🙂 لقد قام مجموعة من الاعضاء مشكورين بمشاركة اكوادهم وامثلتهم ، ولا يوجد مانع لنيل المزيد منها 🙂 مع مراعاة عدم نشر أية مواد تخالف حقوق الملكية الفكرية 🙂 جعفر

كان لابد من بدء المشاركة بالتحية .. فلا يمكن تقديم المساعدة لأى شخص بدون رفع ملف مدعوم بشرح كافى عن المطلوب !!!!!

اخى @Abu Rafatما هي شكل النتائج المطلوبه

وعليكم السلام ورحمة الله وبركاته هذه طريقة مختصرة جدا وتعطي نتيجة صحيحة تم اعدادها بطريقة معادلات رياضية IF(A2>2500;(A2-1458.33)*15%;IF(A2<1250;0;IF(OR(A2<=2500;A2>=1250);(A2-937.5)*10%))) حساب ضريبة كسب العمل.xlsx

بارك الله فيك استاذ اشرف

حل بسيط حساب ضريبة كسب العمل.xlsx

ويمكن استعمال هذه المعادلة بدون الاعتماد على الكود قي الخلية A2 =IFERROR(INDEX(المجمع!$A$2:$E$1000,SMALL(IF(المجمع!$A$2:$A$1000=$X$1,ROW($1:$999),""),ROW()-1),COLUMN()),"") مع سحب المعادلة يسارا ثم لأسفل بالتوفيق

دفتر صنف.xls