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

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

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

ماالجديد فى اكسيل 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

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

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

إنت تأمر يا أ / محمد

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

وعليكم السلام سؤالك غير واضح فاذا كان قصدك انك تريد ان تجعل النموذج الفرعي تحت "رأس النموذج" الرئيسي ، فاليك الطريقة: اختر النموذج الفرعي ، احذفه ، اضغط على "راس النموذج" وسيتغير لونه ، اعمل لصق ، وسيكون النموذج الفرعي هناك جعفر

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

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

بعد اذن استاذنا الغالي رمهااان اخونا عدي... الاجابة موجودة في سؤالك بمعني ان في حقل الاسم حدث بعد التحديث after update يكون حقل التاريخ =()date وحقل الوقت = ()time

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

اخى المهندس ياسر فتحى يشرفنى ويسعدنى مرورك العطر بارك الله فيك اخى الحبيب الصقر يشرفنى ويسعدنى مرورك العطر بارك الله فيك تقبل تحياتى

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

تفضل اخي لعله المطلوب المصنف1.rar

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

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

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

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

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

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

يجب ان يوضع الكود بهذه الصيغة 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

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

السلام عليكم اخي ياسر خليل ماقصدت الوصول اليه بهذا الشكل كي تتضح لديك الصورة اي اننا لن نصل للحد الاعلى من الهيبر لينك نستخدم الخليه الحاليه هيبرلينك ومجرد استخدامنا للخليه الحاليه نحذف السابق ارجو ان وصلت الفكره Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then Dim R As Hyperlink For Each R In ActiveSheet.Hyperlinks If R.TextToDisplay > "" Then R.Delete Next With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With Set R = Nothing End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then Dim R As Hyperlink For Each R In ActiveSheet.Hyperlinks If R.TextToDisplay > "" Then R.Delete Next With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With Set R = Nothing End If End Sub

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

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

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

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

بالنسبة للذين لا يظهر عندهم التطبيق، قم بتحميل الملف المرفق، ثم اتبع الخطوات: أولا. فك ضغط الملف. ثانياً. انسخ الملف المستخرج. ثالثاً. الصقه في مجلد نظام الويندوز (system32) C:\WINDOWS\system32 رابعاً. إذهب إلى موجه الأوامر (Command Prompt) وقم بتشغيله كـ مدير (Administrator). خامساً. انسخ هذا regsvr32 MSCAL.OCX ثم اضغط بالماوس في الشاشة السوداء (شاشة موجه الأوامر) كلك أيمن ثم (Past) ثم (Enter)... ستظهر لك رسالة مفادها أنه تم التسجيل بنجاح. وبذلك يظهر عندك تطبيق التقويم.. ومن الله التوفيق. MSCAL.rar

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

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