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

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

شرح بالفيديو طريقة فتح مشروع جديد وإضافة الفورمات وإضافة الأدوات المختلفة علي واجهة الفورم وكيفية حفظ المشروع وكيفية اخراجه كملف تنفيذي للعمل عليه تحياتي ياسر العربي يتبع شرح الفيجوال بيسك.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 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

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

السّلام عليكم و رحمة الله و بركاته الله الله عليك يا سيدي .. تبارك الله باسم الله ما شاء الله ألف مبروك أستاذي الغالي" ياسر فتحي البنّا " على الانطلاقة الطيّبة و الموفّقة بإذن الله .. و الآن إحكيلي و نوّرني بالكود الذي هو بداخل هذا الكنز .. ليختفي الفورم 1 و يظهر فورم معلومات المبرمج .. فائق إحتراماتي

حبيبى الغالى / ياسر العربى شرح أكثر من رائع ستجعل منا مبرمجين محترفين تفضل المرفق أيضا مما تعلمناه منك عايز أعرف ملاحظاتك أول بأول الكود المستخدم 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

السلام عليكم حسب فهمي للمطلوب جرب الكود التالي Sub Ali() Dim Sw As Worksheet, Sh As Worksheet Dim Lr As Long, Rw As Long Dim R As Range Set Sw = Sheets("1"): Set Sh = Sheets("data") With Sw Lr = Split(Sh.UsedRange.Address, "$")(4) Sh.Cells(Lr, 2) = .[M5] Sh.Cells(Lr, 3) = .[D6] Sh.Cells(Lr, 4) = .[D5] Set R = [C9].End(xlDown) Rw = Split(R.Address, "$")(2) Union(.Range(.[C9], "C" & Rw), .Range(.[E9], "E" & Rw), .Range(.[I9], "I" & Rw) _ , .Range(.[AD9], "AD" & Rw), .Range(.[AE9], "AE" & Rw), .Range(.[AF9], "AF" & Rw)).Copy Sh.Cells(Lr, 5).PasteSpecial xlPasteValues Application.CutCopyMode = False End With Set Sw = Nothing: Set Sh = Nothing: Set R = Nothing End Sub

بالامكان استخدام الكود التالي في اي حدث للشيت Sub Refresh() ThisWorkbook.RefreshAll End Sub اضغط الزرين التاليه مع بعض "Ctrl+F"

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

لو تكرمت ممكن مرفق من البرنامج

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

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

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

فيه حاجة اسمها ثابت أو مطلق زي كدا $A$1 كدا العمود ثابت والصف ثابت يعني لما أضيف علامة الدولار قبل اسم العمود أو رقم الصف دا بيخلي المرجع ثابت فهنا العمود ثابت ورقم الصف ثابت $A1 هنا العمود ثابت والصف متغير ..يبقا لما أسحب المعادلة اللي هيتغير هنا هو رقم الصف فقط أما العمود فمطلق أو ثابت A$1 هنا العمود متغير ورقم الصف ثابت يعني الصف مطلق ..يبقا لما اسحب المعادلة الصف لن يتغير (والسحب لو كان في نفس العمود يبقا العمود مش هيتغير لكن لو سحب المعادلة عبر صف محدد فاسم العمود هيتغير) A1 الحالة الرابعة والأخيرة كلاهما العمود والصف متغير ..وليس ثابت غير المعادله تبعا لما تريد كما الامثله السابقه ومن ثم اشر بالماوس علي ركن الخليه حتي يتغير شكل الماوس ثم اسحب الماوس ليتم الملأ تلقائيا للخلايا التي تريد ملأها ولو ارفقت مثالا كاملا كان افضل واوضح

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

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

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

جزيت خيرا

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

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

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

السلام عليكم ورحمة الله تفضل اخي ابو حمادة المرفق KHMBComboBox1.rar

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

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

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

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

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

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

السلام عليكم بالامكان استخدام كودك بالشكل التالي Sub MAS() Application.ScreenUpdating = False Set sh1 = Sheets("1") Set sh2 = Sheets("2") Dim x As Integer ' x= تمشي بشكل عمودي ينتقل من صف الي اخر ولكن بنفس العمود Dim y As Integer ' y= تمشي بشكل افقي بعد الانتهاء من العمود الاول تنتقل للعمود الثاني بشكل صفوف Dim z As Integer 'هي القيمة العددية التي تتناقص For a = 1 To 16 fa = sh1.Range("a" & a) sn = 0 For b = 1 To 26 fb = sh1.Range("a" & b) For c = 1 To 26 fc = sh1.Range("a" & c) For d = 1 To 26 fd = sh1.Range("a" & d) sn = sn + 1 ww = fa & fb & fc & fd sh2.Cells(sn, a) = "http://www." & ww & ".com" Next d Next c Next b Next a '------------------------------------------------------------------------------------------------------ sh2.Activate Application.ScreenUpdating = True End Sub وهذا الكود في حدث الورقة المسماه 2 بحيث عند النقر دبل كليك على اي خليه ينشاء Hyperlink في الخليه Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With End If End Sub او عند النقر مباشره على اي خليه ينشاء Hyperlink في الخليه Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With End If End Sub

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

جزاك الله خيرا .. و كل عام و أنت و الأسرة الكريمة بخير دمت بخير و أعزك الله .

السلام عليكم اعملي مربع نص في النموذج وسميه asa واجعليه مخفي وضعيه في اي مكان في النموذج بالتوفيق

السلام عليكم تفضلي اختنا هذا ما طلبتي ويعطي تاريخ النسخ بالتوفيق ssm_Ali.zip

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

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