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

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

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

نعم اتفضل تم التعديل عليه fenetre_automatique Algérino.rar

السلام عليكم اليوم أرفقت ملف بسيط جدا وهو صورة تتحكرك وعلى مقياس 12./012 جميل جدا أتمنى أن ينال اعجابكم أرائكم تهمنا لذا فلا تترددو أخوكم في الله مناد سفيان الجزائر napperons Algérino.rar

بسم الله الرحمان الرحيم السلام عليكم ورحمة الله وبركاته أولا أشكر اخواني على مدحهم لي ة التعليقات الجميلة و أتقدم الى الأستاذ المحترم مجاهد والى كل الطاقم التعليمي لقد أرفقت ملف اكسل فيه طلب أي برنامج ويرسلها الى البريد الالكتروني لدي وشكـــــــــــــــرا Command.rar

السلام عليكم مرة أخرى أحبائي الكرام أقدم لكم هذا البرنامج البسيط و نموذج حول التصفية واعطاء بنية للفورم و أيضا قاعدة البيانات الشرح كل في اكسل وتقبلو مني كل التقديرات وشكرا دمتم في رعاية الله وحفظه أخوكم مناد سفيان من الجزائر .................... fenetre_automatique Algérino.rar

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

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

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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

سلمك الله من كل مكروه اخي العزيز محمد اذا ممكن ات تضع كل الاحتمالات حتى يتم معالجتها دفعة واحدة عموماً في هذه الحالة سيتغير التعبير للحقل الثاني cod الى التالي : cod: IIf(IsNull([cut]);0;IIf(IsNull([sco]);0;1)) تفضل المرفق بعد التعديل بالتوفيق dt.rar

اشكرك اخى الكريم على ردك عملت زى محضرتك قولت Compile ظهر لي كان هناك اكواد ناقصة وكان المشكلة فى عملية النسخ حيث عند النسخ من الفلاشة للجهاز ظهرت رسالة خطأ فى النسخ ولكن لم القى لها بال وتم اللصق على الجهاز ولكن عند اعادة النسخ مرة اخرى بطريقة سليمة لم تحدث هذه الرسالة والبرنامج يعمل بشكل جيد. اخى الكريم لي طلب اخر ممكن ولا اعمل له موضوع جديد كنت عملت البرنامج بشكل شريط قوائم وطلب المساعدة ان اعمل شاشة دخول باسم مستخدم ليكون اسم المستخدم على التقارير المطبوعة ولكن لم اجد المساعدة وكانت المساعدة كلها مبنيى على واجهة مفاتيح بشاشة رئيسية اريد عمل شاشة دخول على وجهة البرنامج بشريط قوائم فى المرفق قائمة اسمها البيانات الرئيسية فيها امر اسمه اضافة مستخدم عند الضغط عليه يتم فتح نموذج اضافة مستخدم اريد عمل شاشة دخول للشاشة الرئيسية التى بها شريط القوائم Copy of EndWork1.rar

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

بسم الله الرحمن الرحيم اللهم صلي على حبيبك و نبيك و سلم و بارك عليه و على ال نبيك و على كل المسلمين عدد خلقك و رضا نفسك وزنة عرشك و مداد كلماتك حتى يوم الدين و في يوم الدين .......... اما بعد بحث من اعداد "سعيد محمد عبد المالك يونس علي بدر الدين" فانطلاقا من مبدأ زكاة العلم نشره و تعليمه وعتابي على المسؤلين عن المنتدى قمت بكتابة هذا الموضوع حيث الهدف من السؤال هو معرفة ادق التفاصيل وليس ارفاق الامثلة المحلولة فهي لا تحتاج الى اشتراك في المنتدى ... كل ما تحتاجه هو البحث في جوجل ولكن يبقى تفسير طلاسم المثال حتى نصبح في يوم ما محترفين مثلكم ......... دون الاطالة فهذا موضوع عن الصلاحيات و المستخدمين في البداية هذا الدرس او المبحث موجه لمن هم مبتدئين ولكن لمرحلة ما بعد الصفر وليس لمرحلة الصفر فهناك مباحث يجب قراتها قبل هذا المبحث كي تفهم ما هو المقصود من هذا المبحث و الموضوع في شكل ملف ورد وهو يحتوي على عدد 28 صفحة و حوالي 48 صورة وهذا هو الرابط http://www.4shared.com/rar/Zgexs_PPba/_online.html كما تم ارفاق مثل عملي يحتوي على الشرح وبه جزئيتين لم يتم شرحهم ساقوم بعون الله بشرحهم في درس اخر كي لا اثقل على المتلقي وهم في حالة ادخال كلمة السر خطا في نموذج تغير كلمة السر اكثر من ثلاثة مرات وفي حالة عدم وجود مستخدمين في البرنامج "اي استخدام البرنامج للمرة الاولى" ولا اريد الا الدعاء لي بظهر الغيب وبان يرزقني الله بزرية صالحة يحبها ويرضها ارجوا تثبيت الموضوع كي يكون سهل الوصول اليه و اعدكم بمواضيع مشابه في القريب جداً العاجل مثل الصلاحيات.rar

شكرا جزيلا استاذمحمد بارك الله فيك

تلوين السجل بالفاتوره.rar

اخي / حربي واجهت تلك المشكلة من قبل وعندما قمت بالبحث وجد الحل في كود جميل لاحد الاخوان وهو MR STEEV (ويارب يكون الاسم صح علي ما اتدكر) والشكر موصول له ويارب يجعله في ميزان حسناته انظر المرفق اخي / حربي ولاحظ عدم تكرار الرقم 3 الموجود في نمودج الهدايا واقترح ان يكون اسم الموضوع هو : عدم تكرار رقمين في جدولين بشرط ان يكون بنفس الاسم 714.ProgSals.rar

عليكم السلام ليست اصدار 2003 تم نقلها وتحويلها تفضل تم التعديل ، وقمت ببعض تعديل المسميات ،، db1.rar

السلام عليكم انظر الي الروابط https://www.officena.net/ib/topic/42166-مطلوب-للأهمية-_-برنامج-علي-الاكسل-لادارة-مطعم/ https://www.officena.net/ib/topic/54603-مطلوب-شيت-خاص-بتكاليف-المطاعم/ https://www.officena.net/ib/topic/32220-مشروعات-03-نظام-محاسبة-ومخزون-مطاعم-وفنادق/?page=2 https://www.officena.net/ib/topic/73839-هام-برنامج-لادارة-حسابات-مطعم/

السىلام عليكم تفضل عرض محتوى خلية في تاكس بوكس .rar

و أنتي كذالك بنيتي

أهلا @محمد احمد لطفى في نظري لا يمكنك الحصول على بيانات طبيعية بهذه الطريقة المربكة.. والسبب يعود إلى تبنيك جداول بيانات غير سوية (في مصلح قواعد البيانات العلائقية). من المهم لكي تعمل العلاقات بشكل سليم أن تقوم بتسوية البيانات وتطبيهعا؛ بمعني إزالة التعارضات التي تسبب فشل تكامل البيانات.. من ذلك توريث بيانات لها معرفات فريدة في جدول إلى جدول له بيانات متعددة.. هذا الأمر يؤدي إلى تعارض البيانات ويتطلب منك مزيد من العمل لمعالجة البيانات. الجدول التي تحتوي على بيانات فريدة لا يلزم أن تكون هي الجداول الرئيسة.. هذا اعتقاد خاطئ.. لكوني لا أعلم الغرض من قاعدة البيانات المرفقة إلا أن الجدول (ID) في نظري هو الجدول الرئيس لأنه يحتوي على بيانات متناسقة يمكن أن تعطي مدلولا يمكن فهمه، أما باقي الجداول فهي جداول فرعية حتى وإن كان بها بيانات فريدة..

كود يصلح للمدارس المصريه لاستخراج حاله الطالب '================================ 'هذا الكود للاستاذ المحترم ياسر العربي 'الهدف من الكود هو استخراج حاله الطالب سواء كان ناجحا او عنده دور تان او غايب ' Sub اظهار_حاله_الطالب() 'YASSER_ELARABY Dim ARR Dim ARRY Dim ARRYS '___________________________________________ Dim R As Long Dim X As Long Dim XX As Byte Dim ALL_LESS As String '___________________________________________ Const STATUS As Byte = 135 'عمود الحالة ناجح او دور ثان Const NOTES As Byte = 136 ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر Const GENDER As Byte = 5 ' عمود الجنس ذكر او انثى '_____________________________________________________ Const LESS_ROW As Byte = 6 'صف الدرجة الصغرى Const NAM_ROW As Byte = 2 'صف اسماء المواد Const NAME_FIRST As Byte = 6 ' اول صف لاسماء الطلاب Dim NAME_LAST As Long: NAME_LAST = Sheets("بيانات المدرسة").Range("B10").Value + NAME_FIRST ' عدد الطلاب '_____________________________________________________ ARR = Array(20, 31, 42, 53, 68, 140) ' اعمدة اختبار الفصل الدارسي الثاني لجميع المواد ARRY = Array(24, 35, 46, 57, 72, 140) 'اعمدة الدرجة النهائية لجميع المواد ARRYS = Array(15, 26, 37, 48, 59, 140) 'اعمدة اسماء كل المواد '_____________________________________________________ With Sheet8 'اسم شيت البيانات Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For R = NAME_FIRST To NAME_LAST ' حلقة تكرارية تبدأ بأول اسم طالب الى اخر اسم For X = 0 To UBound(ARR) ' حلقة تكرارية تبدأ من الصفر الى اقصى مصفوفة اعمدة اختبار الفصل الدارسي الثاني On Error Resume Next '____________________________________________________ 'يتم حساب عدد ا لمواد المتغيب بها الطالب او درجتها صفر ويتم وضع عدد المواد في المتغير اكس اكس 'اذا وصل عدد المواد الى 11 اصبح الطالب متغيب If .Cells(R, ARRY(X)) = 0 Or .Cells(R, ARRY(X)) = "غ" Then XX = XX + 1 End If '___________________________________________________ If ARR(X) = 140 Then 'مجموع 'لايوجد اختلاف بين هذا الكود وبين الكود الموجود بالاسفل If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لنصف الدرجة " & " - ": GoTo 86 GoTo 86 Else GoTo 86 End If End If '____________________________________________________ 'هذا الجزء خاص بمادة العلوم تحديدا الفصل الدراسي الثاني لانه مقسم على عمودين فتم اضافة هذا الجزء ليتم معالجة هذه المرحلة If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Or .Cells(R, ARR(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لثلث الدرجة " & " - ": GoTo 86 End If If .Cells(R, ARRY(X)) < .Cells(LESS_ROW, ARRY(X)) Or .Cells(R, ARRY(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " - " End If '______________________________________________________ 86 Next X 'الذهاب الى المادة الاخرى لاعادة تطبيق الكود مرة اخرى حتى انتهاء جميع المواد 'اذا كان المتغير اكس اكس بيساوي عدد المواد اذن الطالب متغيب If XX = 6 Then ALL_LESS = "غياب ": XX = 0 '_____________________________________________________ 'هنا بعد اكتمال الكود يتم عمل شرط للمتغير 'ALL_LESS 'اذا كان المتغير فارغ اي لم يتم اضافة اي مواد به اذا الطالب ناجح If ALL_LESS = "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "ناجح" 'اذا كان نوع الطالب ذكر يتم وضع ناجح If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "ناجحه" 'اذا كانت انثى يتم وضع ناجحه If .Cells(R, GENDER) = "ذكر" Then .Cells(R, NOTES) = "ومنقول " & Sheets("بيانات المدرسة").Range("B11") 'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو If .Cells(R, GENDER) = "أنثى" Then .Cells(R, NOTES) = "ومنقولة " & Sheets("بيانات المدرسة").Range("B11") 'مثل ماسبق 'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان ElseIf ALL_LESS <> "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "له دور ثان في" 'مثل ما سبق بخصوص النوع If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "لها دور ثان في" ' .Cells(R, NOTES) = Left(ALL_LESS, Len(ALL_LESS) - 2) 'هنا يتم وضع قيمة المتغير اي المواد في خلية الملاحظات ALL_LESS = Empty 'تفريغ المتغير لاعادة تعبئة اسم طالب اخر End If '_____________________________________________________ Next R 'الذهاب الى الصف التالي حتى انتهاء عدد الطلاب End With Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic MsgBox "بتوفيق الله .. تم اظهار النتيجة بنجاح" End Sub

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة (((( تابع / الدرس الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها1اكسيل .rar