omar elhosseini

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

شكرا لك اخى نزار تحياتى لأخونا ابو اسامة وجميع الاخوة

شكرا لك اخى عاشق الاكسيل شرفنى مرورك الكريم

شكرا اخى العزيز أبو اسامة شكرا اخى العزيز يحيى

الاخ aysam شكرا لك اخى العزيز

الاخ YasserKhalil شكرا لك اخى عاشق الاكسيل على كلمتك الجميلة والملهمة الاخ احمد يعقوب شكرا لك اخى احمد انتم وحشتونى اكثر الاخ adam13 شرح الكود ببساطة اخى : Private Sub Worksheet_Change(ByVal Target As Range) 1 If Target.Count > 1 Then Exit Sub 2 Application.EnableEvents = False 3 If Target.Text = "0" And Target.Offset(, 1) = "" And Target.Column = 1 Then 4 Target.Offset(, 1) = Date - 1 5 End If 6 Application.EnableEvents = True End Sub 1 - السطر الاول من الكود هو اجراء وقائى لعدم توقف الروتين عند مسح خليتين او اكثر معا 2 - السطر الثانى من الكود إيقاف تتابع الاحداث حتى لا يدخل التنغيذ فى دورة تكرارية لاتنتهى 3 - السطر الثالث من الكود هو سطر الشروط ( بداية حلقة الشروط ) ويحتو على ثلاثة شروط مجتمعة معا ولا يتم تنفيذ الكود اذا بطل احدهما ( وهو جوهر طلبك ) الشرط الاول : ان تحتوى خلية العمود الاول على القيمة ( صفر ) الشرط الثانى : ان لا تحتوى خلية العمود الثانى على اى شئ ( وهنا مربط الفرس حتى يعاد تحديث التاريخ مرة ثانية بعد المرة الاولى اثناء عملية اعادة الحساب الاتوماتيكية للأكسيل ) 4 - السطر الرابع من الكود عند تحقق الشروط السابقة يتم ادراج التاريخ مطروحا منه يوم واحد 5 - السطر الثالث من الكود لا يقوم بإى شئ هو ( نهاية حلقة الشروط ) 6 - السطر الثالث من الكود تشغيل تتابع الاحداث ( الذى تم ايقافة فى السطر الثانى )

السلام علكيم ورحمة الله وبركاتة بعد إذن اخى نزار حل آخر بالمرفق Test_1.rar

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

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

السلام عليكم ورحمة الله وبركاتة تمنياتى لجميع الاخوة بالصحة والعافية والتوفيق بإذن الله الاخ احمد يمكن عمل ذلك اخى بأضافة هذا السطر فى بداية الكود الذى اشرت اليه If Application.CutCopyMode Then Exit Sub وهو يعمل على ايقاف الكود عند قيامك بالنسخ ثم اضف هذا الروتين الذى يعمل على تشغيل الكود بعد اكتمال عملية اللصق Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.CutCopyMode = False End Sub شاهد المرفق اخى Highlight_omar.rar

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

بسم الله الرحمن الرحيم تخفيض مستوى امان الماكرو ومنع ظهور الرسالة المزعجة له بنفيذ ملف مرة واحدة قبل تشغيل الاكسيل خاص ب اكسيل 11 متوافق مع اكسيل 11 فقط قد ينجح البعض من خلال الاكسيل فى تخفيض مستوى امان الماكرو بمستوى واحد فقط ولكن اذا كان مستوى امان الماكرو ( مرتفع جدا ) او ( مرتفع ) فلن يمكن الإكسيل تخفيضة الى ( المستوى المنخقض ) حتى لاتظهر الرسالة المزعجة ولكن يمكن التحايل على ذلك بتنفيذ ملف سكربت معين مرة واحده على الاجهزة التى بها هذا الازعاج فينخض مستوى امان الماكرو اى كان مستواه حتى لو كان ( مرتفع جدا ) فينخفض الى ( منخفض ) اذا كانت نسختك من الاكسيل 11 ( اوفيس 11 ) - ( 2003 ) جرب تنفيذ الملف المرفق قبل تشغيل الاكسيل Excel__11.rar

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

الاخ dahy2020 اذا كنت تستخدم اكسيل 11 نفذ الملف ( MyBasicExcel_11 ) من المرفقات و اذا كنت تستخدم اكسيل 12 نفذ الملف ( MyBasicExcel_12 ) من المرفقات ستعود الامور الى وضعها الطبيعى طمنى عن النتيجة Desktop.rar

الاخ nyef شاهد المرفق اخى _________________________________________3.rar

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

بسم الله الرحمن الرحيم إستيراد وتصدير جدول إكسيل من وإلى الأكسيس يرغب بعض الاخوة فى الاحتفاظ ببيانات جدول الإكسيل فى ملف قواعد بيانات الاكسيس لإسباب منها ::: أن يكون عدد صفوف جدول البيانات كبير نسبيا او لإسباب اخرى قد يكون منها أمن البيانات وعلى ذلك يظل ملف الإكسيل صغير دائما وخفيف فيرغب فى تصدير هذا الجدول إلى ملف MDB الخاص بالاكسيس والمطلوب منك فقط بعد نقل الاكود الى ملفك هو تسمية اول خلية فى جدولك بأسم ( FirstCel ) فى الملف خاصتك ويمكن عمل رتين اتوماتيكيا ليعمل الاتى ::: قبل غلق الملف يعمل على تصدير قاعدة البيانات الى الاكسيس ومسح قاعدة البيانات من ملف الاكسيل فيظل ملف الاكسيل صغير الحجم وخفيف وعند فتح الملف يعمل الروتين اتوماتيكيا على استيراد قاعدة البيانات الى ملف الاكسيل لتعمل عليها المرفقات عبارة عن ::: 1 - ملف البرنامج 2 - ملف فيديو يوضح اسلوب العمل نتمتى صالح الدعاء Omar_1.rar

بسم الله الرحمن الرحيم برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 11 ( 2003 ) المرفقات عبارة عن ::: 1 - ملف البرنامج وبه شرح لطريقة عمله 2 - ملف فيديو لطريقة عمل البرنامج أتمنى صالح الدعاء Omar.rar برنامج كشـف صـرف النقـديـة بالفئـات المتـاحـة نسخة تعمل على اكسيل 12 ( 2007 ) تم استبدال الايقونات بأزار فقط يرجى الاطلاع على تعليمات التشغيل لآكسيل 12 بداخل الملف المرفق _______________________________________________12__.rar

الاخ dahy2020 أضغط الرابط التالى للذهاب الى موسوعتى الموسعة مشاركة رقم 51 تحديد الخلايا المرتبطة بملف آخر

تحديد الخلايا المرتبطة بملف آخر لنشاهد المرفق Omar_1.rar

شكرا لك اخى محمد جميعنا نتعلم من بعض اخى جزاكم الله كل خير

الشكر موصول لك اخى aah_aah2008 جزاكم الله كل خير

شاهد المرفق اخى _________1.rar

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

الاخ khhanna شاهد موسوعتى الموسوعة فى مشاركة رقم 46