BuFaisal

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

أفكار حلوة ومفيدة أعجبتني فكرة ابو محمد 9 و ابو محمد 10 وجمع الداله IF مع WEEKDAY في الشيت ابو محمد12 بارك الله في مجهودك

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

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

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

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

اخواني الاعزاء aah_aah2008 امان هشام شلبى نور الرحمة YasserKhalil يزيدني شرف ان اكون احدى اعضاء هذا المنتدى الرائع اشكر لكم ردودكم اخوكم بوفيصل

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

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

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

بوعبد الله...فديتك وفديت لمساتك الحلو ياخي احس اني ودي اتغزل فيك يعطيك الف عافيه هذا هو المطلوب بضبط وتمام

الاخوة الافاضل السلام عليكم ورحمة الله تجدون في المرفق ملف خاص بترحيل بوليصة تأمين قمت بأعدادة بفضل الله ثم بالأستعانة بتجارب الاخوان السابقة لكن احتاج ان اضيف علية بعض الخصائص مثلاً 1- عدم الترحيل في حالة وجود نفس رقم البوليصة في قاعدة البيانات (عدم تكرار قيمة الخلية رقم F18) بل تضهر رسالة تفيد بتواجد نفس الرقم في قاعدة البيانات 2- اضفت شرط تعبأة جميع المدخلات وفي حالة طلب الترحيل مع وجود مدخل فارغ تضهر رسالة تحذير . لكن اود ان اضيف في الرسالة التحذيرية اسم الخانة الفارغة والمطلوب تعبأتها ولكم جزيل الشكر اخوكم بوفيصل ترحيل بوليصة تأمين.rar

الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو تمنع تغيير اسم الملف مع امكانية حفظه في موقع اخر او درايف اخر فاحببت ان اشارككم بها المكرو : Private Sub Workbook_BeforeSave _ (ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro prevents saving the excel file (workbook) under a 'different name. 'However, the file can be saved in a different location, but 'still under the same file name. ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' Dim NamePath As String Dim strName As String Dim lFind As Long If SaveAsUI = True Then Cancel = True With Application .EnableEvents = False NamePath = .GetSaveAsFilename strName = Mid(NamePath, InStrRev(NamePath, "\", -1, vbTextCompare) + 1, 256) If NamePath = "False" Then .EnableEvents = True Exit Sub ElseIf strName <> Me.Name Then MsgBox "You cannot save as another name" .EnableEvents = True Exit Sub Else Me.SaveAs NamePath .EnableEvents = True End If End With End If End Sub ملاحظة : يجب حفظ المكرو في ThisWorkbook ليتم تفعيلة وهذا مكرو اخر يوقف خاصية حفظ باسم او Save As حيث انه سيمنع تغير الاسم والموقع المكرو : Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro disables the "Save As" Feature in Excel 'This means that a user will not be able to save this 'workbook(file) under a different name or in a different location ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' If SaveAsUI = True Then Cancel = True End Sub ملاحظة : يجب حفظ المكرو في ThisWorkbook ليتم تفعيلة مع تمنياتي للجميع بتوفيق اخوكم بوفيصل

الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو خاصة بتنظيم الوقت فاحببت ان اشارككم بها 1- اغلاق ملف الاكسل بعد وقت محدد : وهو ممتاز للملفات المشتركة والتي يتعامل بها اكثر من شخص او ان تحدد لنفسك وقت محدد للعمل على ايت حال يعتبر هذا المكرو ميزه جيدة يمكن اضافتها لعدة استخدامات المكرو : Private Sub Workbook_Open() Dim Start, Finish, TotalTime, TotalTimeInMinutes, TimeInMinutes Application.DisplayAlerts = True TimeInMinutes = 180 'Timer is set for 180 minutes; change as needed. If TimeInMinutes > 5 Then TotalTimeInMinutes = (TimeInMinutes * 60) - (5 * 60) Start = Timer Do While Timer < Start + TotalTimeInMinutes DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "This file has been open for " & TotalTime / 60 & " minutes. You have 5 minutes to save before Excel closes." End If Start = Timer Do While Timer < Start + (5 * 60) DoEvents Loop Finish = Timer TotalTime = Finish - Start Application.DisplayAlerts = False MsgBox "Excel will now close." Application.Quit End Sub 2- تشغيل المكرو اتماتيكين لمدة ثواني - دقائق - ساعات بعد تشغيل ملف الاكسل, وهو مفيد جدأ عند الحاجة لربطة مع مكرو اخر يتم تشغلة بعد فترة من الزمن مثلاً أعداد قالب اختبارات ويتم التنبيه عن الوقت المتبقي لنتهاء فترة الاختبار ملاحضة يتم نسخ المكرو في ThisWorkbook لتفعيلة لا يستفاد من هذا المكرو على حدة - يجب ربطة بمكرو اخر للاستفادة من وذلك بتغير Name_of_Macro الى اسم المكرو المراد تفعيلة عند ربط وتفعيل المكرو يجب حفظ الملف واغلاقة ثم اعادة فتح الملف حيث انه سيبدء العد عند فتح الملف ان الوقت المحدد لهذا المكرو للبدء هو 10 ثواني ولتغيره قم بادخال الوقت المطلوب في خانة 00:00:10 المكرو: Private Sub Workbook_Open() 'Runs a macro 10 seconds after Excel is opened Application.OnTime Now + TimeValue("00:00:10"), "Name_of_Macro" End Sub 3- تشغيل المكرو في وقت محدد من اليوم مثلاً اساعة 4:43 عصراً وهو مقارب للمكرو السابق ولكن يعمل في وقت محدد من اليوم ملاحضة جميع الاعدادات السابقة لمكرو رقم 2 يجب تطبيقها لهذا المكرو بلأضافه الى انه سيعتمد على توقيت الساعة الموجودة في كمبيوترك المكرو : Private Sub Workbook_Open() 'Runs a macro at 4:30 PM Application.OnTime TimeValue("16:30:00"), "Name_of_Macro" End Sub مع تمنياتي للجميع بتوفيق اخوكم بوفيصل

والله ابداع يا DVB Software اثاريك منت بهين يابنسالم

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

استاذ هشام السلام عليكم ورحمة الله نفس المشكلة حيث ان D3 هي ناتج معادلة (D2 المخزون - D1 المطلوب) في حالة ان المطلوب اكبر من المخزون تضهر الرسالة اما اذا كان المخزون يغطي المطلوب فلأمور طبيعية ولكم جزيل الشكر شاهد المرفق New ورقة عمل Microsoft Excel.rar

اخي العزيز قصي ارجو ان تنال مبتغاك في الرابط التالي http://www.officena.net/ib/index.php?showtopic=32098&st=0&p=164152&hl=%C7%DD%CA%CA%C7%CD%ED%C9&fromsearch=1&#entry164152

الاخوة الافاضل السلام عليكم ورحمة الله حاولت ان اجمع من الاكواد المطروحة في المنتدى لانشاء كود رسالة تنبية تخرج مباشرة "بدون ضغط اي زر" عندما يكون ناتج خلية d3اصغر من 0 ولكن هناك خطء لم تستطع خبرتي المتواضعة على تحديدة ارجو الافادة Sub Macro1() Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng1 As Range Set Rng1 = Range("d3") If Intersect(Target, Rng1).Value < 0 Then MsgBox (" stock is not enough to complete the order") End If End Sub وللمعلومية فان d3 معادلة ولا ينطبق عليها Data Validation لان الادخال غير مباشر للخلية وانما ناتج من حسابات لخليا اخرى ولكم جزيل الشكر اخوكم بوفيصل

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

عمل اكثر من رائع اخ عماد ومبادرة تشكر عليها اتمنى لك دوام التوفيق اخوك بوفيصل

أستاذ هشام انا مستخدم تقليدي قديم لبرنامج الاكسل لكن الاكواد والفجول بيسك جديده على نسبياً لذلك تعجبني الافكار التي تعطي طابع الاحترافية على العمل مثل فكرة خروج مربع للرقم السري لذا اود ان استفسر اذا كان هناك خيارات اخرى للنوافذ المنبثقة سهلة البرمجة ونستطيع استخدامها مثلا : لترحيل البيانات من فورم الى قاعدة بيانات فبدل من استخدام جدول لأدخال البيانات ثم الضغط على زر للترحيل. هل من الممكن استخدام نافذة منبثقة ندخل فيها البيانات المراد ترحيلها في اماكن تم تحديدها مسبقاً ليتم الترحيل الى قاعدة البيانات بلأضافة الى وجود خيارات اخرى في النافذة مثلا بدل من ترحيل البيانات تستطيع الانتقال / اذهاب الى قاعدة البيانات فيكون هناك امران 1- ترحيل المدخلات الى قاعدة البيانات 2-اذهاب الى قاعدة البيانات هذا مجرد مثال وسيكون من المفيد جداً لي ولكل من رغب في المزيد اذا تكرمت انت ومن لديه المعرفة في أثراء هذا النوع من الامثلة وشروحات اخوك بوفيصل

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

اخي الجزيرة في مشاركة التمحيص وتفحيص رقم 6 تم اضافة ارقم السري للمسؤول حيث يضهر جميع الاوراق وهو الموجود في السطر الذي يبتدء ب ElseIf

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