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

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

(اذا اردت ان تحمي خلية (عدة خلايا خاصةً اذا كانت تحتوي على معادلات 1- حدد النطاق اللازم 2- اذهب الى Data validation 3- اختر Custom 4- ضع المعادلة (156)char= 5-OK (انقر اعجبني)

الاستاذ الحبيب // أبو سلمي وعبد الرحمن سعيد بيرم 1 ) منذ فترة قليلة وكان يدور في ذهني هذا الموضوع وكنت ساكتبه ولكن لا اعلم السبب الرئيسي لتركي له اهو الاحباط ام الكسل ام ماذا؟! _ لا اعلم _ ولكن استطيع ان اقول ان من الاسباب القوية لتركي التفكير للموضوع ان العملية التعليمية وخاصة الامتحانات خاضعة لبعض الظروف كوجود طلبة في لجان واولياء امورهم في نفس المدرسة أو وجود بعض من هو غير قادر على السيطرة على الطلبة وخاصة النساء او وجود لجان وخاصة لجان البنين تحتاج الى بعض الملاحظين ذو الطابع الشديد... ألخ.. أوالحجج الفارغة من العقل أو الشرع حتى والتى يثيرها بعض الاشخاص..... الخ وانت فاهم الباقي.. 2 ) الامر الاخر قد يكون المشكلة في عدم وجود برامج مهتمة بهذا الامر صعوبة التنفيذ على الواقع كما اخبرت في النقطة السابقة بعض من الصعوبات. 3 ) من وجهة نظري ان اهم نقطة لا بد ان يهتم بها واضع كشوف اللجان سواء كانت على برامج او على الورق حتي هي التوزيع العادل واقصد بها ( التوزيع المتساوي لدخول اللجان لكل الملاحظين دون اي تفريق) 1 ) ترتيب الملاحظين من حيث السن 2 ) حساب عدد الملاحظين 3 ) حساب اجمالي عدد اللجان التي ستدخل 4 ) ضرب الرقم ×2 5 ) قسمة العدد الذي سيخرج من عدد اللجان في 2 على عدد الملاحظين وبالتالي سيدخل كل شخص عدد لجان متساوي والعدد الباقي من اللجان يوزع على الاحدث سنا او كما ترى الادارة..

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

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

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

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء السلام عليكم ورحمته الله وبركاته يطيب لى وبناءا على طلب أخى العزيز الاستاذ الفاضل محمد " ابوالبراء" ان أهدى نجلنا البراء محمد " بارك الله فيه " هذه الاطلاله المتواضعة من العبدالفقيرالى الله تعالى الا وهى شيت مصغر من برنامج مرتبات الساده العاملين بالتربية والتعليم واقصد هنا بعبارة " شيت مصغر" لانه لايحتوى على كافة الاحتمالات القائمة بشأن عملية الصرف لجميع الساده العاملين بالتربية والتعليم دون الخروج على ماينبغى صرفه إلى أن يإذن الله تعالى بأن انتهى من الاصدارالاول من البرنامج الاصلى المطلوب فقط الاتى :- 1- تحديد بيانات الموظف من العمود E2 الى K2 2- تحديد بيانات اساسى المرتب الحالى 2013/7/1 + الـــ 5 علاوات من العمود L2 الى Q2 ملاحظات هامة 1- تم إضافة علاوة الحد الادنى للأجور وفقا للقرار رقم 22 لسنة 2014 بمنشوريه رقم 1 و 2 2- تدخل علاوة الحد الادنى ضمن جملة الاجورالمتغيرة علما بأن الحد الاقصى للأجور المتغرة اعتبارا من 2014/1/1 اصبح 1587.00 جنيها شهريا 3- الحد الاقصى للأجور الاساسية بلغ 987.50 جنيها شهريا جزاكم الله خيرا ..... تقبلوا وافر احترامى

السلام عليكم اخواني في المنتدى و أخيراً بعد عملية بحث شاقة توصلت الى الحل قائمة منسدلة بخط كبير و يمكن التحكم به انظر الى المرفق data valid..rar

تقبلوا مني هذا البرنامج ]

الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته أقدم لكم طريقة مبسطة لشرح آلية الترحيل بالكود وقد إستخدمت كود مبسط لكى يكون سهل التعديل عليه حسب ما ترغبون وهذا الكود للترحيل مع مسح البيانات المدخله مع آلية الترقيم التلقائى الشرح في المثال المرفق ستجد ورقتا عمل " Invoice " " List" وسيتم إدخال البيانات في الورقه " Invoice " ثم بعد الإنتهاء نضغط على الزر لتنتقل في أماكن محدده بورقة العمل " List " .. * تعالوا نرى الكود كود: Sub MoveData() Dim EndRow As Long If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Else EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count Sheets("List").Cells(EndRow + 1, 1).Value = EndRow Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value Sheets("List").Cells(EndRow + 1, 3).Value = Sheets("Invoice").Cells(3, 4).Value Sheets("List").Cells(EndRow + 1, 4).Value = Sheets("Invoice").Cells(5, 1).Value Sheets("List").Cells(EndRow + 1, 5).Value = Sheets("Invoice").Cells(6, 4).Value Sheets("List").Cells(EndRow + 1, 6).Value = Sheets("Invoice").Cells(8, 2).Value Sheets("List").Cells(EndRow + 1, 7).Value = Sheets("Invoice").Cells(8, 4).Value Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub * الكود السابق هو الخاص بعملية الترحيل من الورقه " Invoice " الي الورقه " List " ولكن ماذا يعني الكود وكيف نعدل فيه حسب الرغبه ؟ * في الكود التالي وضعنا شرط على الخلايا التي يتم إدخال البيانات بها بالورقه "Invoice" بحيث تظهر رساله تفيد بأنه يجب التأكد من إدخال كافة البيانات مع العلم أنه يمكن الأستغناء عن بعض الخلايا أو كلها بحذف الشرط أو جزأ منه كود: If Sheets("Invoice").Range("B3").Value = "" Or Sheets("Invoice").Range("D3").Value = "" Or Sheets("Invoice").Range("a5").Value = "" Or Sheets("Invoice").Range("D6").Value = "" Or Sheets("Invoice").Range("B8").Value = "" Or Sheets("Invoice").Range("D8").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" * وهنا سيبدأ البحث عن أول صف فارغ لنقل البيانات أليه مع الترقيم في العمود A كود: EndRow = Sheets("List").Range("A1").CurrentRegion.Rows.Count * هنا سيقوم بنقل البيانات المدخله في الورقه "Invoice" في الخليه الموجوده في الصف الثالث - العمود الثاني الي الورقه " List " في الخليه الموجوده في العمود الثاني - الصف الأول كود: Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("Invoice").Cells(3, 2).Value * وهكذا ينطبق الكود السابق على باقي الخلايا المدخل بها البيانات الي أن نصل الي * هذا الكود يقوم بمسح البيانات المدخله بالورقه " Invoice" بعد نقلها للورقه " List " كود: Sheets("Invoice").Range("B3,D3,A5:D5,D6,B8,D8").ClearContents * بقي كود يظهر رسالة تأكيد بإنتهاء العمليه بنجاح كود: MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" أسأل الله العلى القدير أن أكون وفقت فى الشرح ومرفق نموذج للتطبيق العملى وتقبلوا منى وافر الإحترام والتقدير شرح الترحيل.rar

يا جماااااااااعه ممكن حد يساعدنى ويعملى بحث على البور بوينت لان انا مش عارف اعمله خالص انا هنسخ ليكم رابط البحث وكل ما عليكم انكم تركبوا ف برنامج الباور بوينت ولكم جزيييل الشكر ارجوا مساعدتى ضرورى http://www.gulfup.com/?cKzo7Z بانتظار حضرتكم

أساتذتى فى المنتدى السلام عليكم ورحمة الله وبركاته كل عام وأنت بخير ارجو من سيادتكم النظر فى الملف المرفق ومحاولة ايجاد المطلوب وجزاكم الله خيرا 25%.rar

اخي نبيل لا توجع رأسك كثيراً طالما ان الحل موجود kk1.rar

أخى الحبيب / محمود الشريف أحييك على هذه الروح الطيبة وأحييك على حرصك على نشر العلم وإفادة الآخرين جزاك الله كل خير

السلام عليكم تفضل أخى التغييرات التى تمت على الملف أولا : فى حدث الـ Workbook ضع الكود التالى Private Sub Workbook_Open() Application.Visible = False kh_Show_UFormChang1 End Sub ثانيا : عمل زر CommandButton2 بجوار زر خروج ( يسمى مستند ) مثلا وتضع فيه الكود التالى Private Sub CommandButton2_Click() Application.Visible = True Unload Me End Sub ثالثا : تغير كود زر الخروج الى الكود التالى وذلك للخروج من التطبيق تماما عند الضغط عليه Private Sub ButtonExit_Click() Application.Quit End Sub تسجيل 2014.rar

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

اخى طلعت وبعد اذن اخى و استاذنا الحبيب رجب. هذه محاوله منى ارجو ان تفى بالغرض معاينه-1.rar

اخي الحبيب عزيز اذا التغيير السابق مطلوب عمله في الخلايا في العمود "D" من نفس الورقة بمعنى اضافة الدوال الى الورقة وليس اضافة الى الكود للإرسال واذا اردت اضافة لكود VB نفسة فهنا تستخدمOffset مع علامة الدمج & مع التحية

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

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

هذا مثال/ حماية.rar

ماء شاء الله تبارك الله تفاني وخدمة غير طبيعيه في اوفسينا بين الاعضاء الكرام

الاستاذ // أبو بهاء 1 ) المشكلة ظهرت لما حضرتك طبعا نقلت الاوراق التى عدلتها لحضرتك في الشيت الى شيت أخر فتم نقل الورق ببعض الامتدادات وبيانات مخزنة وكان حلها سيتم ببساطة _ بإذن الله _ عن طريق ضبط هذه المعادلات مرة اخرى وحذف بعض الامتدادت التى اضيفت لها ولكن للاسف !!! حضرتك ارسلت الشيت في المرفق الاخير بدون الاوراق المعدلة لك بعدما قمت انت بحذف الورقات !! التي عدلتها لحضرتك دون قصد منك !! ومع عدم احتفاظك بنسخة اخرى!! فلهذا اظن ان الحل الامثل الان كما قلت لك هو نقل البيانات من الشيت الاصلي الى اخر شيت عدلته لك.. 2 ) وفي هذا المقام اذكر اخواني ببعض الامور اهمها أ ) الحفظ المستمر للملف الذي يتم العمل عليه كما نقوم بحفظ نسخة باسم جديد كل فترة متقاربة وليكن 1 ثم 2 ثم 3 ...الخ حتى وان حدث شي للملف ( كتلفه او خطا ) يتم الرجوع الى النسخة التى كانت قبل التي حدث فيها هذا التلف او الخطأ وبالتالي ستكون التغييرات بسيطة.. ب ) انصح جميع اخواني ممن يريدون التعديل على الملف في هذا المنتدى الكبير بارسال النسخة كاملة التى يريدون التعديل عليها دون حذف ملفات منها او غيره وذلك حتي لايحدث للملف شي وكذلك لتفادي المشكلات..

أخي// بن خليفة الكود سيكون كالتالي والتطبيق بالمرفقات Private Sub UserForm_Initialize() For n = 1 To 5 ComboBox1.AddItem "ضاحي" & n Next n End Sub بن خليفة.rar

الغياب الفعلي هو العمود الاخير المسمى ghyab اما العمودين الآخرين باسم expr0 ' expr1 فالارقام تعني الايام فرقم 4 يعني الاربعاء ورقم 1 يعني الاحد وهكذا ... لو تمعنت في تصميم الاستعلام لتبين لك ذلك افتح الاستعلام على التصميم وانظر الشرط في العمود الاخير يتبين لك كيف تم الحل فاذا اجتمع 5 ، 1 كانت النتيجة 3 وهي الجمعة والسبت والاحد اما الخميس فقد تم رصده في الحقل السابق امل ان تتضح لك المسألة

السلام عليكم أخى الفاضل / طلعت فى حدود معلوماتى لا يمكن عمل المعاينة والطباعة من خلال اللست بوكس ولكن يمكن نسخ محتوياتها فى صفحة جديدة ومن خلال الصفحة الجديدة يمكن عمل المعاينة والطباعة والله أعلم

تفضل الحل حسب ما فهمت FSaturday.rar

اظهار السعر آليا بعد كتابة الكمية Fatora2.rar

إن الحمد لله نحمده ، و نستعينه ، ونستغفره ، ونعوذ بالله من شرور أنفسنا ، ومن سيئات أعمالنا . من يهده الله فلا مضل له ، ومن يضلل فلا هادي له ، وأشهد أن لا إله إلا الله وحده لا شريك له ، وأ شهد أ ن محمداً عبدُه و رسولُه . والصلاة والسلام على عبده ورسوله وخيرته من خلقه وأمينه على وحيه نبينا وإمامنا وسيدنا محمد بن عبد الله ، وعلى آله وأصحابه ، ومن سلك سبيله واهتدى بِهُداهُ إلى يوم الدين. رأى أهل الرأي في هذه المجلة المباركة أن صنوف العلم متكاملة متراكبة لا تثمر أحداها إلا بإمتزاجها بالقليل من هذا الباب وذاك ، ولا بد من حديث قَلبٍ أو تَدّبُرِ رأي ، والتمعنُ والتَفكرُ فيما يدور حولنا وما يَطرأُ علينا ، فَشَرَفوني بالتكليف ، فسارعت للخيرات رَغَباً بما عندَ الله ، مآزراً لرأيهم ، طامعاً بِغُفرانٍ من ربّي ومَثُوبَة. أقول : هذا جهد المُقِّل فإقبلوه منّا ، سنلتقي في هذا المنبر بإذن الله ، نلبس رداء ابن الجوزية بِمُصَنَفِهَ - صيد الخاطر ، إسماً ، نستلهم ونلتمس تأملاتٍ وحكماً ونَقتبِسُ من أهل العلم فَضائِلَ عِلمِهم ، ونَتَطلّعُ لعُلو منازِلِهم . لقاؤنا اليوم مع ابن الجوزية ، عبد الرحمن بن علي بن محمد الجوزي القرشي البغدادي - أبو الفرج - رحمه الله ، ومع مصنفه صيد الخاطر وتحديداً في فصل حقيقة زهد العلماء ، حيث اشار رحمه الله الى أمور عظيمة هداه الله لها ، حيث قال : تأملت التحاسد بين العلماء فرأيت منشأه من حب الدنيا فإن علماء الآخرة يتوادون ولا يتحاسدون كما قال عز وجل‏:‏ ‏"‏ وَلاَ يَجدُون في صُدُورِهِمْ حَاجَة مِمَّا أُوتُوا ‏"‏‏.‏ - الآية : ( وَالَّذِينَ تَبَوَّءُوا الدَّارَ وَالإِيمَانَ مِن قَبْلِهِمْ يُحِبُّونَ مَنْ هَاجَرَ إِلَيْهِمْ وَلاَ يَجِدُونَ فِي صُدُورِهِمْ حَاجَةً مِّمَّا أُوتُوا وَيُؤْثِرُونَ عَلَى أَنفُسِهِمْ وَلَوْ كَانَ بِهِمْ خَصَاصَةٌ وَمَن يُوقَ شُحَّ نَفْسِهِ فَأُوْلَئِكَ هُمُ المُفْلِحُونَ ) : الحشر : 9 ثم يقول رحمه الله : والأمر الفارق بين الفئتين‏،‏ أن علماء الدنيا ينظرون إلى الرياسة فيها ويحبون كثرة الجمع والثناء‏ ، وعلماء الآخرة بمعزل من إيثار ذلك وقد كانوا يتخوفونه ويرحمون من بلي به‏.‏ أقول : حكمة عظيمة وفهم طيب أجراه الله تعالى على لسان هذا العالم الرباني الفَذّ ، ونحن أحوَجُ ما نكون لتأمل مثل هذه القراءات وتدبرها ، فنحن هنا ضمن مجتمع علمي ، نسعى بأمور دنيانا ، نتعلّم ونودِع عند المُتَعَلمين ، وتتدافع بين جنبات هذا الصرح العلمي فئام من الخلق بين هذا ( المعلم ) و ذاك ( المتعلم ) ، و نتدافع أبواب العلوم بيننا بين أخذ ورد ، تطور وتراجع ، نمو وخمول ، وبين الفينة و الأخرى تلمع نجوم ساطعات لإخوة أبدعوا يتحلق حولهم طلابهم ومريديهم ينهلون مما يودَعُ لهم من علم نافع طيب ، هو ثمار جهد وبذل وسهر لكلا الطرفين – بتوفيق من الله – . أقول : يودع لهم ولا يعطى لهم ، فما اودع لديك من العلم تعمل به وتودعه لغيرك فضلاً من الله ورحمة ، لا منّا و لا تفضلاً. فلا يظنن هذا او ذاك أن ما به هو من عند نفسه ... بل لا بد ان يوقن ويعتقد راضياً بانه فضل وتوفيق ملدن رب السموات العُلى ، توفيقاً وتفهيماً وترسيخاً ومحبة ، فهو سبحانه يشتري منا ما وَهَبَنا ، ويطرح محبتنا وقَبولنا في قلوب عباده ، رَحمةً وفَضلاً ملدنه . ولا بد ان يكون هذا اليقين المطابِقُ للحقِ رادعاً لنا عن التهافتِ على الرِياسة والكِبر و التَحاسُد والتَنافُر والتَناحر وطَلب بارقاتِ الفَضلِ حولنا وإستمراء المدح والثناء ، بل تخوّفٌ من كلِ ذلك وهَجرٌ له وإدبارٍ عنه والسَعيُ لإحتِضانِ و تَفَهيم من إبتُلي بها. أقول : شتان ما بين طالب الثناء ( الصيت والشهرة ) ومُتلقي وقابل الثناء الطَيِّب. وفي معجم المعاني الجامع الثَّناء : المدح الثَّناء : المَدْح ، والتقريظ والتَقْديرٌ والتَبْجِيلٌ إِذَا صَلَّى أَحَدُكُمْ فَلْيَبْدَأْ بِتَحْمِيدِ اللهِ وَالثَّنَاءِ عَلَيْهِ ] حديث[ أثنى عليه ثناءً عَطِرًا / أثنى عليه عاطِرَ الثَّناء : بالغ في مدحه وإطرائه ، ثناء : صيت ، شُهْرة ، سمعة حسنة - الحديث : قال أحمد في "مسنده" (6/18) : حدثنا أبو عبد الرحمن المقرئ ، حدثنا حيوة ، قال : أخبرني أبو هانئ حميد بن هانئ ، عن عمرو بن مالك الجنبي حدثنا ، أنه سمع فضالة بن عبيد صاحب رسول الله صلى الله عليه وسلم ، يقول : سمع رسول الله صلى الله عليه وسلم رجلا يدعو في الصلاة ولم يذكر الله عز وجل ، ولم يصل على النبي صلى الله عليه وسلم ، فقال رسول الله صلى الله عليه وسلم : " عجل هذا " ، ثم دعاه ، فقال له ولغيره : " إذا صلى أحدكم ، فليبدأ بتحميد ربه والثناء عليه ، ثم ليصل على النبي صلى الله عليه وسلم ، ثم ليدع بعد بما شاء " . حديث حسن لذاته ، لأجل حميد بن هانئ وهو صدوق لا بأس به ، والحديث صححه ابن خزيمة وابن حبان والحاكم ، واجتباه النسائي ، وقال الترمذي : "حسن صحيح" . أقول : إن الحق ما قاله رسول الله صلى الله عليه وسلم : " من صُنع إليه معروف فقال لفاعله : جزاك الله خيراً فقدأ بلغ في الثناء ". رواه الترمذي فجزاء العمل يكون عند الله تبارك وتعالى ، فمن كان من علماء الآخرة فيكفيه عظيم الجزاء من الله بدعاءِ أخيه ، وينال بالغ الثناء في ثنايا دعائه ، ومن كان من علماء الدنيا إستَزاد من ثَناء الناسِ له كِبراً ، مُغفِلاً حُسنَ دُعاء أخيه وما فيه من عظيم جَزاءِ ربهِ وبالِغِ الثناء في طَياتِه. رضي الله عن علي إبن أبي طالب ، قال : العلم زين فكن للعلم مكتسباً وَكُنْ لَهُ طالبا ما عشْتَ مُقْتَبِسا اركن إليه وثق بالله واغنَ به وكن حليماً رزين العقل محترسا وَكُنْ فَتًى ماسكا مَحْضَ التُّقى ورعا للدِّيْنِ مُغْتَنِما لِلْعِلْمِ مُفْتَرسا فمن تخلقَ بالآداب ظلَّ بها رَئِيْسَ قَوْمٍ إِذَا ما فارق الرؤسا وحيث ان المقام لا يتسع لتفصيل المقال ، واللبيب بالإشارة يَفهَمُ ، نترك بإذن الله ، لكم تَدَبُر المُرام من هذا المقال ، ونستودعكم الله الذي لا تضيع ودائعه . والسلام عليكم ورحمة الله وبركاته نارت يحيى لبزو عمان في الرابع عشر من آذار للعام 2014 ........ نشر في مجلة الموقع لشهر ابريل 2014 ....... View the full article

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

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

الف مليون مبرووك

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

علمت اليوم بوفاة والد الاستاذ / حمادة عمر يوم الجمعة الماضي الموافق 17/1/2014 نسألكم الدعاء بإخلاص بظهر الغيب للمرحوم بإذن الله اللهم ارحمه واغفر له وتجاوز عن سيئاته و زد في حسناته اللهم آمين آمين آمين

الاخ / aaddeel السلام عليكم اختار من excel options ثم اختار من formulas الغى علامة صح من rici refer ثم اوكى

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

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

العنوان لا يحتاج الى زيادة شرح او تفصيل في المرفقات مثال فريد لتحقيق المطلوب فريد : لاعتماده على جملة برمجية صغيرة ، بعيدا عن الوحدات النمطية المطولة Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub Form_Open(Cancel As Integer) Dim Prn As Printer For Each Prn In Application.Printers PrinterList.AddItem Prn.DeviceName Next Prn End Sub Private Sub PrinterList_DblClick(Cancel As Integer) SetDefaultPrinter (PrinterList) DoCmd.Close acForm, Me.Name End Sub اختيار الطابعة الافتراضية من قائمة.rar

السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي

للرفع رفع الله قدركم و اعلى مراتبكم اخى بعد اذن الاساتذة شاهد المرفق Row_Col_color.rar

أخي الحبيب الأستاذ // مجدي يونس أخي الحبيب الأستاذ// سعد عابد أخي الكريم الأستاذ// محمد يوسف محمد أخي الكريم الأستاذ// باسم سعيد اخي الحبيب الأستاذ// أبوحنين أخي الحبيب الأستاذ// حمادة عمر أخي الكريم الأستاذ// سمير حسين أخي الحبيب الأستاذ// محمد مصطفي أبوحمزة أخي الكريم الأستاذ// مرعي السيد الأخت الفاضلة // أم عبدالله الأخ الفاضل // رائد 1982 اخي الفاضل // محمد توبة أخي الفاضل // ابراهيم الشال أخي الفاضل // الطائر الحنان ((مع حفظ الألقاب والترتيب)) مروركم شرفني وشرف الموضوع جزاكم الله خيرا وبارك الله فيكم وادعوا الله ان اكون عند حسن ظنكم في تقبل الله منا ومنكم الصالحات تقبلوا تحياتي جمعيا

ما شاء الله بارك الله فيك هذا اجمل ما يكون والشرح ابسط ما يكون . انا كنت ابحث على هذا الأمر و بهذه الكيفية بارك الله فيك وجعله فى ميزان حسناتك

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

عفوا اخي احمد غانم الحمد لله منور المنتدي يا استاذ احمد

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

مرفق ملف اكسيل به مفردات مرتب عامل واحد المطلوب عمل دالة لتفقيط صافى المرتب الى اللغة العربية وبالعملة المصرية

السلام عليكم =========== اخوانى واحبائى واحب الناس الى قلبى ( اعضاء - مشرفين - مسئولى )ممنتدى اوفسينا كم تعلمت منكم وكم زادنى شرف الردود لكم وعليكم والان موعدى معكم لرد جميلكم الثقيل على كتفى خفيف على قلبى الى كل من علمنى حرفا فى هذا المنتدى وسيعلنى اهديكم هذا البرنامج داعيا الله ان يكون على المستوى اللائق واعطائى ولو درجة النجاح والنجاح فقط ميزات البرنامج ============== 1) يصلح للصفين معا فهو يتعامل مع صيغتى الاناث والذكور ( طالبات - وطلبة ) بمجرد اختيار بنين او بنات فى صفحة البيانات فمعادلاته مجهزة لذلك . 2) يتعامل مع الصفين الاول والثانى عند اختيار الصف فى صفحة البيانات فالمعادلات ايضا مجهزة لذلك 3)البرنامج يجمع فى طياته كل افكار الكنترولات السابقة فقط مع اضافة توزيع اللجان وارقام الجلوس لاى صف من الصفين دون التدخل لكتابة الصف او الجنس . 4)صفحة السرى ( لها رقم سرى لعدم الاطلاع من قبل اعضاء الكنترول والسرى هو 12) لعالمنا الجليل خبور 5)فى صفحة ف د 1 يوجد زر للكتشنة وفك الكتشنة وكانت الفكرة للاستاذ ايسم بارك الله فيه 6) يوجد فى نفس الصفحة زر للتقريب بما يتناسب مع قوانين الرفع وهو اختيارى والكود للاستاذ الكبير ابو تامر . 7)شهادة الفصل الدراسى الاول صفحة واحدة فقط وهى فقط كعملية جمالية تعمدت الا يكون الصفحة بها اكثر من شهادة وذلك لتجنب القص وغيرة ( رزمة الورق تقص فى المطبعة كما هى الى نصفين وتوضع فى الطابعة كما هى ) 8)ما اعتبره اهم ميزة هو شهادة الفصل الدراسى الثانى تكون بالدوائر . 9) ترحيل الشيت الى ناجح ودور ثانى للطباعة وايضا بالدوائر 10) لا املك اى كود فى هذا البرنامج الا كود التجهيز فقط اما باقى الاكواد قكلها موجودة فى المنتدى 11) اشكر كل من ساهم بفكرة واخص وسامحونى بالترتيب الاستاذ مجاهد اعادة الله لنا سالما العالم الجليل خبور خير الاستاذ الفذ ابو تامر اخى وصديقى ايسم واترككم مع البرنامج فى رعاية الله وفى انتظار تعليقاتكم

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