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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته لم نعتد على طول مدة غياب ..بل على العمل المتواتر ..والجهد المتواصل ثم انقطاع دام فترة بالنسبة لنا طويـــــــــــــــــــــــــــــــــلة ... فإن كنت مريضاً دعونا لك بالشفاء العاجل وإن كنت مشغولاً بعمل دعونا الله أن ييسره نرجو عودتك إلينا سالماً معافىً أخي الحبيب ياسر أبو البراء لأن لك خصوصيةً زرعتها محبة وسقيتها مودة وربيتها حتى كبرت في قلوبنا وترعرعت ..حتى أصبحت تتملك أحاسيسنا ومشاعرنا عد إلينا...نحبك في الله والسلام عليكم ورحمة الله وبركاتة

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

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

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذنا . اسعدنى وشرفنى مرورك العطر وهذا رابط تم البحث عن فى جوجل لنسخة اوفيس 2016 http://sigmapc100.blogspot.com.eg/2015/07/office-2016-v2.8-x86-x64.html

الأدوات المهمة ووظائفها الخصائص الشائعة للأدوات نظرا لاهتمام بعض الاعضاء الذين لم يتعاملو مع واجهات البرمجة عموما سواء VBA or VB6 والاستفسارات الدائمة عن بدايات التعامل مع الفيجوال قمت بتوضيح الامور اكثر قليلا وكما قال احد الاخوة لي محتاجين نبدأ من تحت الصفر بداية هذه قائمة الادوات الموجودة علي يسار البرنامج خصائص الأدوات الشائعة الاستخدام الخصائص الشائعة: هناك مجموعة من الخصائص الشائعة الاستخدام والمتوفرة لمعظم الأدوات، سنقوم الآن بشرح أهم هذه الخصائص وسنؤجل الحديث عن باقي الخصائص فيما بعد. 1- الخاصية Name: تعتبر هذه الخاصية من أهم الخصائص على الإطلاق، وهي متوفرة لجميع الأدوات دون استثناء، وهذه الخاصية تحدد الاسم البرمجي للأداة، وهو الاسم الذي يستخدم عند كتابة شفرة تخص هذه الأداة مثل : Form1.Caption="Yasser" حيث Form1 تمثل اسم النافذة. عندما تضع أداة جديدة أو تضيف نافذة جديدة يتم وضع الخاصية Name افتراضياً لهذه الأداة وذلك بذكر اسم الأداة يليها رقم مثل Form1 و Form2 و Label1 و Label2 إلى آخره. والآن إذا كنت ترغب في تغيير هذا الاسم الافتراضي فعليك تذكر ما يلي: 1- يجب أن يبدأ الاسم بحرف ولا يجوز أن يبدأ برقم، ويجوز أن يتخلله أرقام. 2- يفضل أن يكون الاسم باللغة الإنجليزية، وذلك لتجنب المشاكل التي يمكن أن تحدث عند استخدام الأسماء العربية ( أتمنى قريبا يقال العكس) 3- يجب أن لا يتجاوز الاسم 40 حرفاً. 4- لا يجوز استخدام بعض المحارف مثل النقطة و الفراغ و الفاصلة و … 5- لا يجوز استخدام الكلمات المحجوزة مثل : FOR و WHILE و FUNCTION و … 6- يفضل استخدام الأسماء التي تدل على وظيفة الأداة، وتجنب الأسماء العشوائية. مثلاً: يمكنك تسيمة النافذة "F" بدلاً من "Form1" و لكن عندها ستصبح الشفرة على الشكل: F.Caption="Yasser" الخاصية Name متوفرة أثناء التصميم فقط، أي من المستحيل تغيير الخاصية Name ضمن الشيفرة وهناك العديد من الخصائص الأخرى تشترك معها بهذه الصفة. 2- الخاصية BackColor (لون الخلفيه): تحدد هذه الخاصية لون أرضية الأداة، وعند محاولة تغيير هذه الخاصية يظهر مربع صغير يحوي سهم ، عند الضغط على هذا المربع يظهر لوح الألوان الذي يمكننا من اختيار اللون الذي نريد . ونلاحظ في مربع الألوان وجود بوابتين الأولى Palette ومنها نختار ألوان ثابتة ، والثانية System ومنها نختار ألوان يستخدمها النظام Windows . 3- الخاصية Caption (العنوان): وهي تحدد النص الذي سيظهر على الأداة كعنوان لها، ويجب أن لا يتجاوز النص 255 حرفاً بما في ذلك الفراغات. 4- الخاصية Enabled (التمكين): تحدد هذه الخاصية فيما إذا كانت الأداة ستتأثر بالأحداث (النقر أو حركة الماوس) أم لا، حيث تأخذ القيمتين True تتأثر أو False لا تتأثر. لن يظهر تأثير هذه الخاصية إلا بعد تنفيذ البرنامج. 5- الخاصية Font (الخط): تستخدم من أجل تحديد شكل ونوع وحجم الخط الذي سيظهر به عنوان الأداة. 6- الخاصية ForeColor (لون الخط): وهي تحدد لون الخط الذي سيكتب به عنوان الأداة. 7- الخاصية Height: تحدد ارتفاع الأداة . 8- الخاصية Width: تحدد عرض الأداة. 9- الخاصية Left: تحدد مقدار بعد الطرف الأيسر للأداة عن الطرف الأيسر للنافذة. 10- الخاصية Top: تحدد مقدار بعد الطرف العلوي للأداة عن الطرف العلوي للنافذة. 11- خاصية Picture: وتستخدم لتحميل صورة ووضعها كخلفية للأداة. 12- خاصية Visible: وتستخدم لإظهار أو إخفاء الأداة أثناء التنفيذ. من المهم الآن أن تقوم بإضافة الأدوات وتجريب الخصائص السابقة، وتصميم واجهات مختلفة تتخيلها.

مشاركة مع الاساتذة ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟ وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد .. تحياتي

اعرض الملف برنامج اجل نقدا تحية طيبة لكل الاخوه في هذا المنتدى العملاق الذي تعلمت منه الكثير واليوم اهدي هذا العمل المتواضع وهو برنامج حسابات البيع بالأجل والنقد الاصدار الاول وهذا العمل مقارنة بأعمال عباقرة المنتدى نقطة في بحر منهم . شكر خاص للأستاذ الصقر. تحياتي محمد علي الطيب الرقم السري :123 صاحب الملف محمد علي الطيب تمت الاضافه 19 ديس, 2015 الاقسام قسم الإكسيل

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

ماالجديد فى اكسيل 2016 في السنوات السابقة كانت اغلب التحديثات التي تتم في الإصدارات الجديده على مستوى الخلية او ورقة العمل واقصد بذلك انها التحديثات كانت تتم على الدوال او الشكل الجمالى ....الخ . ولكن في الإصدار الجديد 2016 ركزت ميكروسوفت على تثبيت أدوات التحليل الإضافية التي غالبا ماكانت بشكل منفصل عن الاكسيل في صورة تطبيقات وأدوات إضافية مثل POWER PIVOT-POWER VIEW– POWER 3D MAP-POWER QUERY-POWER BI ........ الخ. يحتوى الإصدار الجديد من EXCEL 2016 على العديد من المزايا والامكانيات المفيده والتي لم تكن موجوده في الإصدارات السابقة والان نتعرف على هذه المزايا الجديده . من خلال خلال هذا الملف لاتنسونا بصالح دعاؤكم تحميل الملف http://excelfinancial1.blogspot.com.eg/p/blog-page_16.html

بسم الله الرحمن الرحيم الكنترول الأبتدائي 1-2-3 الكنترول الإبتدائي 4-5 الكنترول الإعدادي 1-2 معلومات البرنامج v تسجيل بيانات المدرسة من الإدارة والمدرسة والصف والمدير والوكيل ومسئول الكنترول في الصفحة الخاصة حتي تظهر في المطبوعات المختلفة . v تسجيل بيانات الطلاب المختلفة مع التركيز البدأ برقم الجلوس أولا ثم باقي البيانات ولابد من التأكد من تسجيل النوع والديانة والأسم. v تسجيل درجات الطلاب في اختبار نصف الفصل الدراسي الأول والثاني في النمازج المخصص لذلك . v تسجيل درجات الفصل الدراسي الأول والثاني في النمازج المخصص لذلك مع ملاحظة أنه يتم تسجيل درجة أعمال السنة فقط بدون [20] درجة نصف الفصل . ولاحظ أن خانة ]التقويمات[ هي مجموع درجة نصف الفصل وأعمال السنة . v المطبوعات الخاصة بنصف الفصل الأول والثاني ( الشهادات وبيان الدرجات وتحليل النتيجة ) . v المطبوعات الخاصة بالفصل الدراسي الأول والثاني ( تحليل النتيجة والإحصاء والشهادات والطلاب الراسبون والطلاب الناجحون والأوائل ) v خطاب ولي الأمر هو خطاب للأولياء أمور الطلاب الراسبون فقط لإخبار ولي الأمر بدرجة الطالب ومتابعة المدرسة . v البرنامج يحتوي علي إمكانية حذف إي طالب بسهولة ويسر . من خلال نموزج تحديث البيانات واختيار حذف طالب وتحديد الطالب ثم ضغط حذف . v في نموزج تحديث البيانات تصفر الدرجات تعني أن يتم تصفير جمع الدرجات في الشيت لجميع الطلاب . v في نموزج تحديث البيانات حذف البيانات تعني حذف جميع البيانات المسجلة في الشيت . v البرنامج يحتولي كذلك علي امكانة التقسيم علي مجموع أجهزة والتسجيل من خلال أكثر من جهاز . v البرنامج يعمل علي أوفس 2010 و2013 مع ملاحظة لابد من أن تكون نسخة الوندوز كاملة البرامج . مع تحيات أ/ خيري محمد محمد 01016105703

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

اشكرك استاذ رمهان على مجهودك الرائع

تفضل اعمل وحدة نمطية وبها الدالة : Function access_work_days(fdate As Date, edate As Date) For i = fdate To edate x = x + (Weekday(i) = 6 Or Weekday(i) = 7) Next access_work_days = edate - fdate + x End Function وبكذا نقول انبسط ياكسس ! والله وصار عندك دالة حساب ايام العمل زي الاكسل ! وببركات الاخ شوقي ! طبعا بتنادي الدالة من اي مكان وتمرر لها اولا تاريخ البدء ثم تاريخ الانتهاء ! ولو يتفضل احد صاحب صلاحية ويعدل العنوان بحيث يدل على دالة ايام العمل في الاكسس مشكورين ! بالتوفيق

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

جميل جدا يا استاذ ابا جمانة ! اصبحنا نتعلم من اسئلتك واجاباتك !

حبيبى الغالى أستاذى ومعلمى القدير / عبد العزيز بسم الله ما شاء الله على كل أعمالك التى أشاهدها وأستمتع بها زادك الله من علمه وفضلة ثانيا الموضوع سهل جدا جدا نحدد CommandBatton جديد فى نهاية الفورم الأول ونضغط علية وفى اليمين فوق نضغط Add Form ونضغط على أيقونة Image بالقائمة إللى على الشمال ونحدد لها مكان داخل الفورم الثانى ثم نختار الصورة المراد وضعها وطبعا يكون مكتوب عليها معلومات المبرمج ثم نضغط دبل كليك على CommandBatton فى الفورم الأول ونضع الكود التالى Private Sub Command1_Click() Form2.show End Sub ثم نقوم بحفظ البرنامج أرجوا أن أكون أوصلت المعلومة تقبل خالص تحياتى وتقديرى لشخصكم الكريم

حبيبى الغالى / ياسر العربى شرح أكثر من رائع ستجعل منا مبرمجين محترفين تفضل المرفق أيضا مما تعلمناه منك عايز أعرف ملاحظاتك أول بأول الكود المستخدم Private Sub Command1_Click() label1.caption=time label2.caption=date End Sub Timer Yasser Albanna.rar

السلام عليكم ورحمة الله سبق ان تم عمله ولكن حسب الفهم إستدعاء ولكن يجب عليك الرد إن لم يكن المطلوب ولكنك تجاهلت الموضوع وفتحت موضوع آخر. الموضوع السابق علي هذا الرابط http://www.officena.net/ib/topic/65640-نقل-او-ترحيل/#comment-427169 والآن تفضل إليك المرفق ترحيل وإستدعاء حسب رقم الفاتورة KHMB فاتورة.rar

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

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

استاذ رمهان بعد تجربة الكود لاحظت عند ظهور الرسالة الزر ok , cancel كل منهما يفتح النموذج مسج4بوكس - .rar هذا التعديل قمت به حتى يعمل كل زر بعد ظهور الرسله وظيفته انتظر رد حضرتك هل انا طبقت كلام حضرتك صح واللا انا طبقت غلط مسج5بوكس.rar

شهادة اعتز بها من علمى القدير واستاذى الجليل واخى الحبيب جزاكم الله خيرا وبخصوص الكود If MsgBox(" لديك " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & " قاربت على الانتهاء ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS مشتاق لتجربته فدائما وابدا يشغلنى بلهفة مشتاق تطبيق ما تتفضل به من لمسات ساحرة وخلابه فمنتديات اوفيسنا هى مدينة للعلم وحضرتك باب من ابوابها ولك مدرسة خاصة اسال الله العلى العظيم ان يبارك لك فى علمك وعملك ويرزقكم الجنة انت ومن تحب

تفضل اخي لعله المطلوب ادارة المحل .rar

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد اقدم لكم اليوم أعزائي أعضاء منتدى أوفيسنا كود بسيط تستطيع من خلاله تحويل الأرقام من أرقام إلى كتابه لكن ( إنجليزي ) . ويسمى in words طريقة إضافة الكود سهله جداً , بعد فتح ملف الإكسل اظغط على Alt+F11 في الكيبورد وبعدها Insert > module وأضف الكود , تابع الشرح في الصور . الكود + ملف إكسل جاهز في المرفقات in words code & xmls.rar

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

الف شكر استاذ KHMB هذا هو المطلوب لك مني تحياتى

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

يا سلام أخوي رمهان ، اعرفك فنان من زمان انت قربت الجواب بوضع رابط الموضوع ، وانا دخلت في الرابط وشايف ان المشاركة التالية هي الاقرب لسؤال أخينا أبوعبدالله http://www.officena.net/ib/topic/52619-إدارة-الجداول-المرتبطة-،-أداة-وشروحات/?do=findComment&comment=329298 جعفر

جزيت خيرا

السلام عليكم نعم اخي الكريم عندما تتحول الى sql server يكون جلب البيانات اسرع من الاكسس لقد صممت Microsoft برنامج SQL Server من البداية كقاعدة بيانات عميل/ ملقم، حيث تتواجد البيانات والفهارس في كمبيوتر ملقم وهذا يسهل من انسيابية البيانات وكذلك الsql server معد للتعامل مع بيانات كبير ه جدا هذا ما يخص السرعه هذه لم نفهم قصدك ---- هل تقصد كيقيه نقل البيانات ام كيفية التحول بالتوفيق

الاخ الكريم ادخل على الرابط التالى وحمل البرنامج مجانا http://www.officena.net/ib/topic/65471-اريد-برنامج-مبسط-لمحل-تجاري-لمعرفة-الربح-والخسارة/?do=findComment&comment=426450 تقبل تحياتى

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

السلام عليكم ورحمة الله اخي الفاضل عمرو محمد بارك الله فيك. إن (منتـــــدى أوفسيـــنا ) يأدي رسالة عظيمة في العلم والتعلم وليس للدعاية والتجارة الله يبارك لنا ولك ويزيدنا ويزيدك من فضله. إذا عندك إستطاعة في تقديم المساعدة لإخوانك او لا تجعل المنتدى يخــرج عن ماوضع له.وجزاك الله خير وانا آسف جدا علي الاحراج والإزعاج

اخى الحبيب السلام عيكم ورحمة الله الحمد لله الذى بنعمته تتم الصالحات اليك شرح المعادلة التى طلبتها الجزء الاول من المعادلة وهو IF(COUNTIF(D$3:$D$3;D$3)>1;"" ويقصد منه اذا تكرر التاريخ مرة اخرى اترك الخانة خالية اما الجزء الثانى فهذا يعنى ;("TEXT(DATE($C$1;$AI$1;D$3);"ddd")) ان التاريخ المدرج فى هذه الخلية حولها من رقم الى نص ارجو من الله عز وجل ان اكون قد وفقت فى الشرح

حبيبى الغالى وأخى الفاضل / محمد الريفى جزاك الله خيرا على كل ما تقدمه من أعمال رائعة ومفيدة للجميع تقبل خالص تحياتى وتقديرى

الاستاذ الفاضل أ - سيد الصقر ممكن حضرتك ترفق لنا الملف الخاص ب 2016 لان النسخه دى عجبتنى جدا - تعبك واضح فيها بجد .... ربنا يعوضك وشكرا جدا لحضرتك

يجب ان يوضع الكود بهذه الصيغة Sub set_active_sheet() Dim sa As Worksheet If ActiveSheet.Name = "sheet1" Then Set sa = Sheets("sheet1") Else Set sa = Sheets("sheet2") End If sa.Activate lr = ActiveSheet.Cells(Rows.Count, 1).End(3).Row End Sub

تفضل اخر الكريم جرب البرنامج التالى لو عجبك ارسلك نسخه 2016 المستخدم الدعم الفنى الباسورد 123 ( يمكنك تغيير بنفسك ) تقبل تحياتى برنامج EMA 2015م.zip

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

وعليكم السلام افتح على خصائص الحقل / لسان التبويب تنسيق انظر القيمة : لغة لوحة المفاتيح ، وقم بتغييرها الى العربية

مثال رقم 3 :- فى المثال رقم 2 كان الشرح على نفس الصوره السابقه فورم فى مرحلة التصميم وصممت عليه Frame والفريم لا يوجد به اى عناصر تحكم تم تصميمها وكان المثال برقم 2 انى اعمل كود عند فتح الفورم يكون هناك عدد 10 صفوف من العناصر كل صف به ليبل وتكست بوكس وكمبوبوكس المثال بتاعنا اليومعايز اعرف ازاى اضيف عناصر تحكم اثناء فتح الفورم من شيت اكسيل وعدد الصفوف بالشيت غير معروف عددها فى زياده او نقصان شاهد الصوره هتعرف اكتر المثال بتاعنا بكل بساطه نفس الكود اللى بالمثال 2 مع تعديلات فنيه بسيطه جدا دا كان الكود اللى بالمثال 2 Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer Top = 5 For i = 1 To 10 With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = "الصقر" & i End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub ايه المطلوب تعديله بالكود لكى يتناسب مع المطلوب بتاعنا رفع الخلايا من الشيت الى الفريم المثال كان على ان عدد الصفوف 10 لذالك استخدمنا الحلقه For next كالتالى For i = 1 To 10 فدلوقتى انا عايز اجيب الخلايا بالشيت رقم 1 النطاق من A2 الى اخر صف هيكون به اخر طالب اذن بداية الحلقه هى اول صف بالجدول وهو الخليه A2 ورقم الصف لها هو 2 اذن الحلقه هتبدأ من رقم 2 الى ؟ الى اخر صف به بيانات فى العمود A اذن لازم احدد اخر صف به بيانات من خلال السطر التالى واحنا شرحناه قبل كدا lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row عملت متغير واسمه Lr وتقدر تسميه اى اسم كيفما شئت وقلت ان المتغير Lr يساوى كتبت اسم الشيت المراد العمل عليه واستخدمت Cells لتحديد عدد الخلايا الممتلئه بالبيانات فى العمود 1 كدا انا عرفت الحلقه من اين تبدأ واين تنتهى ( تبدأ من الصف 2 الى اخر صف به بيانات ) For i = 2 To lr شاهد الكود بعد تعديل الحلقه For Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Top = 5 For i = 2 To lr With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a .Text = Sheet1.Cells(i, 3).Text End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = Sheet1.Cells(i, 1).Text End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub اللى مركز معايا هيلاقى 1- تم تعديل بداية ونهاية الحلقه For 2- فى سطر تم اضافته فى خصائص كل عنصر فى عنصر الكمبوبوكس تم اضافه السطر التالى .Text = Sheet1.Cells(i, 3).Text قيمة الكمبوبوكس هى كتبت اسم الشيت وهو بمثالنا الشيت 1 ثم الخلية المطلوبه Cells عباره عن (رقم العمود, رقم الصف)Cells ( Cells( i , 3 i هنا هى رقم الصف اللى هيتغير كل مره بالحلقه For والعمود هو رقم 3 الخاص بالحاله --------------------------------- فى عنصر التكست بوكستم اضافه السطر التالى .Text = Sheet1.Cells(i, 2).Text نفس الكمبوبوكس ولكن تم تغيير رقم العمود هو 2 الخاص بالدرجه ---------------------------------- فى عنصر الليبل تم اضافه السطر التالى .Caption = Sheet1.Cells(i, 1).Text نفس الكمبوبوكس والتكست بوكس ولكن تم تغيير رقم العمود هو 1 الخاص باسم الطالب ----------------------------------------------------------------------------------------------------------------------- ملحوظه اخيره لمن يريد درجة الاحترافيه فى الكود لما كنا بنعمل خصائص العنصر كان الخاصيه Left & Top & Width& Height لكل عنصر كان بيتم كتابتهم بالشكل التالى كلا منهم على حد فى سطر مختلف على سبيل المثال خصائص التكست بوكس With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With ممكن اكتب الاربع خصائص فى سطر واحد من خلال Move القاعدة الخاصه بــ Move Move Left, Top, Width, Height. ويكون شكل الكود كالتالى بالخصائص With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Move 180, Top, 150, 40 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With تم استبدال الاربع صفوف بسطر واحد من خلال Move -------------------------------------------------------------------------------------------------------- جرب الكود بنفسك هتثبت المعلومه اكتر الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية التحكم فى العناصر الموجوده داخل الفريم سوء كانت مصممه اثناء عملية التصميم او تم انشائها بكود انتظرونا تقبلوا تحياتى

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

السلام عليكم ورحمة الله أخي بن علية .. بجد أنا مش عارف كيف أشكرك ع هاللمسة السحرية ما شاء الله عليك .. ربي يحفظك ويرعاك .. وأنا آسف جداً ع التأخير ف الرد بسبب بعض المشاكل مع الإنترنت .. جزاك الله كل الخير .. المشكلة انحلت والحمد لله تعبي كله ما راح ع الفاضي .. والفضل ليك يا طيب ..

اخي بن عليه حاجى انت ررررررراااااااااائع بارك الله فيك

بارك الله فيك أخي الحبيب غسان وجزاك الله خيراً كم أعشق موضوعاتك المتميزة ! تقبل تحياتي

إخواني الأعزاء أحببت أن أضيف معلومة رأيت أنه هامة ومرتبطة بموضوع تسجيل الماكرو وقمت بشرحها فيديو ، وأرجو أن تلتمسوا لي العذر في الإطالة بعض الشيئ والغير متعمدة بكل تأكيد ولكنها نتيجة أول تجربة لي مع فكرة التسجيل بالصوت والصورة ، وإن شاء الله سأعمل على تحسين الأداء في المرات القادمة ، في انتظار مقترحاتكم واستفساراتكم بكل سرور . مرفق نفس الملف الذي تم العمل عليه بالشرح لتوضيح الفكرة وأرجو الاطلاع على الكودين الموجودين بالملف وتحديد الخلاف بينهما ومناقشة ذلك لتوضيح الفكرة . تحياتي http://youtu.be/peiRPK0lEwI المراجع الثابتة والمراجع المطلقة في تسجيل الماكرو.rar

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=729&st=0&p=3588&hl=العائد&fromsearch=1&#entry3588