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

تكرم حبيبي الغالي ومنتظرينك علي المصطبة مع ان الجو دا جو بطانيه ولحاف بس نكسر شوية خشب ونولع علي ما تيجي وادي اثبات تشغيلها علي انظمة ال64 bit

بسم الله الرحمن الرحيم هنشرح اليوم كيفية التعامل مع ادوات DriveListBox DirListBox FileList Box أسماء المشغلات DriveListBox : وهذه الأداة تتعامل مع محركات الأقراص الصلبة. عرض المجلدات DirListBox: تظهر كل المجلدات الموجودة داخل أحد المجلدات أو أحد المجلدات الموجودة داخل أحد المشغلات و تعطينا إمكانية الاختيار منها. عرض الملفات FileList Box : تعرض لنا قائمة من الملفات الموجودة داخل مجلد معين و تعطينا إمكانية اختيار أحدها. و التعامل معها. ما الفائدة من هذه الادوات: نستطيع عن طريق استخدام هذه الادوات الثلاث الوصول لاي ملف نحتاجه وكأنك تتصفح الكمبيوتر للوصول لملف انت بحاجه له او لتشغيله ايا كان فيديو صوت ملف فلاش ملف كتابي الخ طيب وايه لزمتها ما انا ممكن اتصفح وخلاص من خارج البرنامج واجيب اللي انا محتاجه طيب متفكر كدا معايا بما ان معانا داخل برنامجنا هذه الادوات نقدر نستغلها في تشغيل الملفات اللي محتاجنها داخل برنامجنا علي سبيل المثال نعمل برنامج لتشغيل الصوتيات مثلا او الفيديو او مشغل فلاش او تصفح ملفات كتابيه مثلا الخ طريقة العمل سيتم تحديد الدريف من اول اداة DriveListBox وبناء عليها يتم سرد المجلدات في الاداة الثانية DirListBox ويتم الاختيار من الاداة الثانية المجلد الهدف وبناء على المجلد الهدف يتم سرد الملفات الموجودة به في الاداة الثالثة FileList Box وبناء علي اختيار الملف من الاداة الثالثة يتم تشغيل الملف تلقائي داخل برنامجنا خلاص توكلنا علي الله ونعمل برنامج مشغل صوتيات وفيديو كمان ودا مجرد مثال لشرح طريقة عمل الادوات وصولا لتشغيل الملف الهدف في النهاية يلا كله يفتح البرنامج الادوات مشروع جديد الاداوت الثلاثة المذكورة كما بالصورة طيب يلا كدا نربط الثلاثة ادوات ببعض عشان لما نقوله هات البارتشن كذا تروح الاداة الاخرى تلقائي تفتح المجلدات اللي في نفس البارتشن وعند الضغط علي المجلد المحدد يتم فتح الملفات بداخله وعند الضغط علي الملف يتم تشغيله اكواد ربط الادوات Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub شرح الاكواد في حدث التغيير عند اختيار احد الدريفات يبقي مسار الاداة الثانية بيساوي مسار الدريف ويبقي كدا ظهر لنا ملفات الدريف في الاداة الثانية الكود الثاني عند اختيار مجلد من الاداة الثانية يبقي مسار الاداة الثالثة بيساوي مسار الاداة الثانية ويتم عرض الملفات الموجودة به طيب كدا الملفات كلها هتظهر واحنا عاوزين نخصص برنامجنا لبعض الامتدادات فقط كيف نخصص امتدادات تظهر فقط عن طريق الكود التالى Private Sub Form_Load() File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv" End Sub نضع هذا الكود مثلا في حدث تحميل الفورم وهنا قمت بتحديد الامتدادات المراد عرضها وهي امتداد الصوت وبعض امتدادات الفيديو وبامكانكم وضع اي امتدادات اخرى طيب احنا كدا وصلنا لاخر شئ بالنسبة للادوات وناقص شئ واحد وهو عند الضغط علي الملف يتم تشغيله لعمل هذا نضيف هذه الاداة للفورم بتاعنا كلنا عارفين الاداة دي وهيا ويندوز ميديا بلير ودا تقريبا في كل نسخ الويندوز يعني مش هنقابل مشكلة تسجيل الاداة ومش موجودة ومش بتفتح معايا لا ابدا البرنامج دا هيفتح باذن الله علي معظم الاجهزة بدون مشاكل نيجي لاكواد التشغيل الملفات التي يتم اختيارها داخل الميديا بلير Private Sub File1_DblClick() WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName WindowsMediaPlayer1.Controls.play End Sub عملت الكود في حدث الدبل كليك داخل الفايل ليست بوكس عشان مش كل ما اختار ملف يشتغل من اول كليك لا الملف اللي محتاج تشغله دبل كليك عليه يشتغل معاك وطبعا ممكن نعمل ازرار تحكم لايقاف وتشغيل ما نريد وطبعا الكل هيبدع في الموضوع دا وبلمسات المواضيع اللي فاتت هيبقي اجمل وادي الكود كامل عشان تعرفو باقل كود ممكن نعمل حاجه كبيرة ومميزة Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_DblClick() WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName WindowsMediaPlayer1.Controls.play End Sub Private Sub Form_Load() File1.Pattern = "*.mp3;*.mp4;*.flv;*.mkv" End Sub وبكدا نكون انتهينا من نقطة تحديد الملفات وتشغيلها وقريبا باذن الله مثال اخر لملفات اخرى لتأكيد المعلومة وتداولها في اكثر من مسار نرجو من الاخوة الكرام الرد علي الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ مرفق ملف الشرح خالص تحياتي ياسر العربي يتبع drive.rar

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

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

كلّنا بانتظار إبداعات أستاذنا القدير " محمّد حسن المحمّد " بشغف كبير .. أعماله لها نكهة خاصّة .. فائق إعجاباتي بالأستاذين القديرين : ياسر العربي محمد حسن المحمّد بارك الله فيكما و في أعمالكما للإثراء ..و بعد إذن أخي الغالي قبل كلمة أستاذي القدير .. مجموعة من السْكيناتْ .. قد تغني ربّما عناء البحث .. http://up.top4top.net/downloadf-5602ju91-rar.html

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

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

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

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar يتبع

تم التعديل مع ذكر صاحب العلامة ترتيب لكل صف salim 1.rar

السلام عليكم ورحمة الله وبركاته ليه يتم استخدام برامج خارجية لما ممكن نعمل نفس الشيء باستخدام الاكواد انا بستخدم الكود التالي DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, , True, , , acExportQualityPrint

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

تفضل اكتب رقم اكبر من 20 في عمود A تنبيه.rar

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

السلام عليكم ورحمة الله وبركاته اقدم لكم شيت كنترول الصفين الاول والثانى التجارى الجديد بعد التعديلات التى اضيفت على مادة الحاسب الالى واعتبار العملى والتحريرى منفصلين والراسب فى اى فرع يكون دور ثان فى هذا الفرع فقط http://www.zshare.net/download/75816906579823fc/

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

اعرض الملف الدليل الشامل في حساب مدد خدمة الموظفين وإجمالي هذه المدد بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ================ كثرت الأسئلة في الفترة الأخيرة حول حساب الفرق بن تاريخين ويستخدم هذا في حساب مدة خدمة الموظفين من تاريخ التعيين إلى الآن وكذلك مدد الخدمة الإضافية وكذلك مدد الانقطاع عن العمل -------------------------------------- ولذلك توكلت على الله وقمت بتصميم هذا الملف لعله يفيد كل من يبحث في هذا الموضوع والله من وراء القصد ولا ينقصني سوى دعاؤكم ............ تم تحديث البرنامج وإجراء بعض التعديلات صاحب الملف أ / محمد صالح تمت الاضافه 13 نوف, 2011 الاقسام قسم الأكسيس

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

الله ينور حبيبي الغالي واخي عبد العزيز شغل جميل كنت زود بقي تغيير الايقونة وتغيير ايقونة الماوس انا فاكر موضوع الايقونات بس كانو موجودين علي هارد داتا وانا البوردة ساتا بدور علي جهاز ابقي انقلهم ليك من عليه باذن الله وشايفك كنت عاوز تعمل SKIN المهم شغل جميل ولمسات جميلة تقبل تحياتي

السّلام عليكم و رحمة الله و بركاته درس رائع .. بل فوق مستوى الرّوعة .. و ما جعلنا نستوعبه بسرعة هو روعة أسلوب شرحك و سلاسته بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله هذه محاولة بسيطة للتّطبيق على الدّرس الأخير .. بانتظار رأيك و بانتظار التّطوير إن شاء الله فائق إحتراماتي http://up.top4top.net/downloadf-5606a1z1-rar.html

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

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar

أخي الكريم خالد جرب المعادلة التالية للحصول على الهللة =MOD(SUM(B3:B20),100) وهذه المعادلة للحصول على الريال =SUM(C3:C20)+QUOTIENT(SUM(B3:B20),100) تقبل تحياتي

تم التعدبل حسب الرعبة ترتيب لكل صف salim 3.rar

شكرا كتييييير زبط معي

جربي هذا الشيء large.rar

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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية جرب الكود بهذا الشكل لاختبار لون الخلية Sub Test() If Range("A1").Interior.Color = vbRed Then Range("A10").Value = "راسب" Else Range("A10").Value = "ناجح" End If End Sub أما إذا أردت معادلة فالأفضل أن تعتمد على قيمة الخلية وليس لونها تقبل تحياتي

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

كم انت راااااااااائع اخي سليم

يا شباب حد معاه رقم جوال الاستاذ / عادل حنفى

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

الشكر لله أخي.. تحياتي

أخي الكريم أبو سليمان إليك الملف المرفق مطبق فيه المعادلة ترتيب لكل صف.rar

جرب هذا الملف monney_sum.rar

ربما كان المطلوب هذه المرة مثال _لجدول التقاطعات_معدل salim.zip

ربما كان المطلوب اذا لم يكن كذلك ارسل نموذجاً عما تريد مثال _لجدول التقاطعات salim 1.zip

انسخ هذه المعادلة الى الخلية h8 ثم اسحب يسارا و نزولاً =IF($G8<>H$7,"",COUNTIF($B$2:$B$25,$G8)) مثال _لجدول التقاطعات salim.zip

وعليكم السلام نفترض ان الحقل Name_ID هو الحقل الذي تعتمد عليه في اختيار سجلاتك ، اعمل استعلام جديد ، واختر الجدول data1 ، غيّر الاستعلام الى استعلام الحاقي للجدول data2 ، واضف الحقول التي تريدها ، والبرنامج سيضيف الحقول المتشابهة بين الجدولين (طبعا يجب عليك ان تغير الحقول يدويا اذا تطلب الامر) ، *** لا تلحق اي رقم الى حقل AutoNumber ، فهذا سيوقف الاستعلام ولن تعلم ما المشكلة *** في حقل Name_ID ، اذهب الى Criteria واضف: Forms!form1!form2!Name_ID واحفظ الاستعلام والآن ، في النموذج الفرعي ، انصحك : بعمل زر لكل سجل (او زر واحد في اعلى النموذج الفرعي) ، وتجعل حدث النقر يشغل الاستعلام ، او بعمب النقر المزدوج على احد الحقول ، وتعمل حدث النقر المزدوج يشغل الاستعلام . والسبب هو ، انك قد تحتاج الدخول في احد سجلات النموذج الفرعي لأي سبب ، فلا تريد ان تقيد المستخدم بعدم تمكنه من التنقل بين السجلات على كيفه ، وانما اعطه حلاً ابسط جعفر

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

https://www.youtube.com/watch?v=c1Bii6sCKG0

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

اخى العزيز ايضا يمكن ان تحمل هذا البرنامج سيفيدك كثيرا فيما تريد برنامج TSR Watermark Image، برنامج مجاني للإستخدام الشخصي لتتمكن من إضافة العلامات المائية إلى صورك بطريقة شفافة، كما يمكنك من خلال ابرنامج أن تقوم بالتحكم في حجم الصور قبل إضافة العلامة المائية عليها. عند إنشاء اللامة المائية تستطيع أن تجعل هذه العلامة عبارة عن نص أو صورة، وتستطيع جعل النص أو الصورة التي اخترتها أن تكون شفافة وأن تتحكم في حجم النص ولونه ودرجة الشفافية الخاصة به. تستطيع استخدام هذا البرنامج بدلاً من برنامج الفوتشوب لإضافة العلامة المائية إلى صورك، ويعتبر البرنامج هو أسرع وسيلة لوضع علامة مائية على صورك الخاصة، كما يمكنك البرنامج من استخدام العلامة المائية في ملفات الوورد وأكسل وملفات PDF. صورة البرنامج الحجم: 1.03 MB الترخيص: Freeware متطلبات التشغيل: Win 8 / Win 7 / Vista/ XP ___________________

السلام عليكم بعد اذن الاستاذ القدير ابو عبدالله اكسلجي عدلت على الكود لطلبك يعمل على مدى معين فرضاً من a3:c10 هكذا Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R_ALI As Range Set R_ALI = Intersect(Target, Range("A3:c10")) If Target.Value <> R_ALI Then Exit Sub If R_ALI > 20 Then Application.Speech.Speak "Sorry You Entered Number Greater Than 20 If You Want To Keep It Press Yes Else Press No" Choices = MsgBox(" YES " & "إذا كنت تريد الإبقاء على الإدخال الحالي إضغط " & vbNewLine & " NO " & "وإذا كنت تريد حذف الإدخال الحالي إضغط ", vbYesNoCancel, "تحديد المطلوب") Select Case Choices Case vbYes Exit Sub Case vbNo Target.Select Target = "" GoTo 1 End Select End If 1 End Sub تنبيه برسالة 1صوتية.rar

السلام عليكم اضافة بسيطة لكود الاستاذ القدير يحياوي في حالة اذا كان الرقم اكبر من ====> 20 يظهر الصوت - ورسالة تنبيه - والغاء الرقم المدخل هكذا Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Then Exit Sub T = Target.Row If Cells(T, 1) > 20 Then Beep 800, 2000: MsgBox "تعد العدد 20", vbCritical, "تبنيـة !!!": Application.Undo End Sub

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

تحية طيبة للاخوة الافاضل طاهر و ابو نصار و سعد عابد ...لاثراء الفكرة تم عمل تنبيه صوتي بالاستعانة بكود اخي ابو نصار ادخل قيمة اكبر من 20 في العمود A ياتيك تنبيه صوتي .... تنبيه صوتي.rar

اود هكذا بتحدبد مدى يعمل الكود من السطر الثاني في العمود A Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Or Target.Row < 2 Then Exit Sub If Application.Intersect(Target, Range("a3:a100")) > 20 Then MsgBox "تعدا النقاط 20", vbCritical, "تنبيـة !!!" End Sub

السلام عليكم حط الكود فد حدث الصفحة مخصص التنبيه على عمود A Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Then Exit Sub T = Target.Row If Cells(T, 1) > 20 Then MsgBox "تعدا النقاط 20", vbCritical, "تنبيـة !!!" End Sub