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

قائمة بافضل المواقع شهرة وشعبية على مستوى العالم فى الاكسيل Excel حسب Alexa Ranking ========================================== وبكل اسف ولا موقع عربى فيهم . والسبب فى شهرة هذه المواقع حجم التفاعل وتبادل المعلومات والخبرات ادخل اى موقع وشاهد اى موضوع وقارن بنفسك . ولكن نحن فى العالم العربى قد نبخل حتى بعمل اعجاب او مشاركة او نخجل من وضع اراءنا ..........الخ لدينا الكثير من علماء الاكسيل العظماء فى العالم العربى اتمنى من الجميع الدعم لهؤلاء العلماء . واتمنى من مدربى الاكسيل وعلماؤه ان يقدمو ما لديهم بكل الطرق احلم بان نكون افضل من الغرب فى كل شىء .

اعرض الملف برنامج مخازن السلام عليكم ورحمة الله وبركاته برنامج المخازن يشتمل عدة أوراق إكسيل في مصنف 1- شاشة دخول ترحيب بالمستخدم الكريم. اسم المستخدم: admin كلمة المرو:123 2- الصفحة الرئيسية:تحتوي على روابط أوراق المصنف وإمكانية الخروج. 3- إذن إضافة وإذن صرف ومخزن رئيسي وآخر فرعي . 4- تقرير حركة المخزن: حسب تاريخي البدء والانتهاء ولكل صنف ضمن المخزن المحدد مع إمكانية طباعة أصنافعدة يحدد المستخدم رقم الصنف الأول ضمن الخلية I1 والأخير في الخلية J1 وفقني الله وإياكم لما يحب ويرضى كما أسألكم الدعاء بظهر الغيب لي ولوالدي ولذريتي وللمؤمنين بالقبول والصلاح والنجاح والفلاح ...آمين ولولدي الحبيب "علي" بالرحمة والمغفرة والفردوس الأعلى من الجنة ...آمين والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف برنامج المخازن.xlsm صاحب الملف محمد حسن المحمد تمت الاضافه 17 فبر, 2016 الاقسام قسم الإكسيل

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر) إليكم الكود المستخدم في الملف المرفق مع الشرح المبسط لأسطر الكود .. ليتسنى لكم التعرف على الأكواد بشكل أفضل Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = "YasserKhalil" 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم وإليكم الملف المرفق التالي فيه تطبيق للكود حمل الملف من هنا ولا تنسونا بصالح الدعاء تقبلوا وافر تقديري واحترامي

ربنا يديم المعروف والمودة والروح الطيبة الموجودة بين جميع أعضاء هذا المنتدى العريق أجمل وأرق تحياتى للجميع

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

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

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

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

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

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

السلام عليكم أخى الحبيب / ياسر خليل أخى الفاضل / كاسر الأمواج بالنسبة للكود الرائع الخاص بأخى الحبيب ياسر فيه نقطة واحدة وهى انه عند الاختيار من ComboBox2 يضع فى ComboBox3 كل الخلايا من العمود E التى تقابل الاختيار الموجود للـ ComboBox2 ( وليكن مستشفيات ) مثلا بغض النظر عن الاختيار الموجود فى ComboBox1 الخاص باسم المحافظة أى أنه يضع الاماكن المقابلة لكلمة مستشفى فى كل المحافظات وليست المحافظة المختارة فقط وذلك بسبب الكود cValues ولذلك عملت تعديل بسيط على الكود الرائع وسميته cValuesR لتدارك تلك النقطة الخاصة بـ ComboBox3 Sub cValuesR(Txt1 As String, Txt2 As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt1 And Dn.Offset(, -2).Value = Txt2 Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub Dependent ComboBox On UserForm YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته يقول تعالى: ﴿إِنَّمَا الْمُؤْمِنُونَ إِخْوَةٌ فَأَصْلِحُوا بَيْنَ أَخَوَيْكُمْ وَاتَّقُوا اللَّهَ لَعَلَّكُمْ تُرْحَمُونَ﴾1. أهمية الأخوة لقد حثّ‏َ الإسلام العزيز على العلاقات الإنسانية القائمة على أسس الخير والصلاح والتي يكون عنصر الربط فيها نابعاً من الروح السامية والقلب السليم والعقيدة الصحيحة. لما في تلك العلاقات من تأثير متبادل بين الأطراف وخصوصاً الأخوّة في الله تعالى التي تترك بصماتها في الحياة الداخلية والخارجية للإنسان بعيداً عن حدود الإتصال بالنسب فقط كما قيل : "ربّ‏َ أخٍ لك لم تلده أمك فنحن داخل هذا المنتدى يوميا نطلب ونجيب ونناقش ونفيد ونستفيد كل هذا جميل فهذا غذاء العقل فأين غذاء الروح نريد ان تربطنا المودة والمحبة والاخوة في الله فنحن هنا اسرة فلابد من صلة رحم هذه الاسرة الكريمة الجميلة فلا نريد جعل هذا المكان مجرد تحصيل علم بحت فلقد قمت منذ فترة بعمل موضوع في المنتدى المفتوح ليكون ترويح عن النفس من ضغوط العمل وتعب الاعصاب الموضوع بسيط جدا كل واحد من احبابي الاعضاء لما يدخل المنتدى يدخل الموضوع يكتب اي شئ يعبر عن مزاجه حالته او اي شئ يراه نافعا لاخوته المهم نتواصل وكما قال اخي الغالي ابو يوسف وعسى أن تجلب هذه الصفحة رواداً أُخر ...فلا تنحصر باثنين أو ثلاثة ...نحن بحاجة إلى التغذية الروحية ... http://www.officena.net/ib/topic/64516-صباح-الخير-اثبت-حضورك-بكلمة/ اللهم إنا نسالك الفردوس الأعلى وأن تجمعنا في مستقر رحمتك ...آمين والسلام عليكم ورحمة الله وبركاته

الرخم وصل عمل جميل بس احط التاتش الترفيهي وانا اتعب نفسي ليه بص للمرفق من غير كود Label Vertical Text YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم قولت بدل ماارجع افتح المنتدى وايدى فارغه زى كل مره ويبقى شكلى مش ولا بد قولت اشارك اخوانى الافاضل بالمنتدى الرائع آخر ما استخدمت فى البرمجه ؟ نسخة فيجوال بيسك 2010 كامله من موقع مايكروسوفت ومجانيه قمت بتحمليها اليوم وكانت رائعه لعلها تحوز على اعجابكم . النسخه ايزو ممكن يتم حرقها على اسطوانه 700 MP لكن الافضل DVD 4GB ببرنامج الترا ايزو او استخدامها من سى دى وهمى بنفس البرنامج او فك ضغط الملف باى برنامج ضغط اليكم الرابط http://download.microsoft.com/download/1/E/5/1E5F1C0A-0D5B-426A-A603-1798B951DDAE/VS2010Express1.iso

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

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

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء اسعدنى الله بكم خير صحبة وخلان اجتمعنا على العلم فزادانا الله من فضله وعلمه وجمعنا بالايمان والمحبة فى الله فنعم الرزق المبارك من الله عز وجل

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

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

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

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

جزاكم الله خيرا استاذى الحبيب كل مافى الامر اننى احببت ان اغير واعكس فدائما يتم السؤال ونحن نقوم بالاجابه فاحببت ان اسال بنفسى واشاهد الاجابات واشارك معكم وهذا حلى المتواضع اولا: تحويل هذا الرقم20161225 الى رقم تسلسلى يمثل التاريخ =DATE(LEFT(A1;4);MID(A1;5;2);RIGHT(A1;2)) ثانيا تحويل الرقم التسلسلى 42729 الناتج من المعادلة السابقة الى تاريخ باستخدام المعادلة ويمكن من خلال تنسيقات الخلايا ثم تنسيق الرقم الى تاريخ =TEXT(C1;"dd/mm/yyyy") تقبلوا منى اجمل التحيات

استاذى الحبيب محمد الريفى كلام معبر عن الواقع والصوره المرفقه من حضرتك دليل على ذالك تقبل تحياتى تلميذك / حسام

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

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

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

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

جزاكم الله خيراً أخي الحبيب رجب على هذا الحل الرائع إليك حل آخر إثراءً للموضوع ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Dim Rng As Range Dim Dn As Range Dim Dic As Object With Sheets("Sheet1") Set Rng = .Range(.Range("C6"), .Range("C" & Rows.Count).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = vbTextCompare For Each Dn In Rng: Dic(Dn.Value) = Empty: Next ComboBox1.List = Application.Transpose(Dic.keys) End Sub Private Sub ComboBox1_Click() Call cValues(ComboBox1.Value, ComboBox2, 4) '4 Is Column Number End Sub Private Sub ComboBox2_Click() Call cValues(ComboBox2.Value, ComboBox3, 5) '5 Is Column Number End Sub Sub cValues(Txt As String, Obj As Object, Col As Integer) Dim Dn As Range Dim Rng As Range Dim Dic As Object Obj.Clear With Sheets("Sheet1") Set Rng = .Range(.Cells(6, Col), .Cells(Rows.Count, Col).End(xlUp)) End With Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 For Each Dn In Rng If Dn.Offset(, -1).Value = Txt Then If Not Dic.exists(Dn.Value) Then Dic(Dn.Value) = Empty End If End If Next Dn Obj.List = Application.Transpose(Dic.keys) End Sub قمت بإعادة تسمية الكومبوبوكس .. بدلاً من Sanf استخدمت الاسم الافتراضي ComboBox1 وبدلاً من Nawa استخدمت ComboBox2 والثالث جعلته بدلاً من ComboBox1 جعلته ComboBox3 .. كما قمت بإزالة الـ Row Source لأول كومبوبوكس .. تم الاستغناء عن الأكواد في حدث ورقة العمل .. فقط الكود في حدث الفورم هو الذي يقوم بالمهمة كاملة إن شاء الله أرجو أن يكون الملف مقبول لديكم تقبل تحياتي Dependent ComboBox On UserForm YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته قائمة منسدلة تعتمد على قائمة منسدلة اخرى يمكن استعمال الدالة INDIRECT عن طريق النطاقات المسماة define name ولكن استخدمنا طريقة مختلفة في هذه الحالة اتمنى ان تفيد الجميع المعادلة المستخدمه فى القائمة المنسدلة =OFFSET($A$2;;MATCH($A$6;$A$1:$E$1;0)-1;COUNTA(INDEX($A$2:$E$4;;MATCH($A$6;$A$1:$E$1;0)));) تحميل ملف الاكسيل list.rar

بارك الله فيك أخي العزيز عبد العزيز البسكري أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى جرب التالي ضع الكود التالي في حدث الفورم Private Sub UserForm_Initialize() Label1.Caption = Range("A1").Value End Sub ثم قم بوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub Else UserForm1.Label1.Caption = Range("A1").Value End If On Error GoTo 0 End Sub لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها تقبل تحياتي Update Label Automatically By Cell Change YasserKhalil.rar

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

السلام عليكم استاذنا الحبيب / ياسر خليل ربنا يكرمك .. ابداع مستمر تحياتى للاستاذ القدير / رجب جاويش اخى الكريم انصحك بتفقد الرابط التالى حيث يتناول شرح الكود المستخدم .. تقبلوا مرورى وتحياتى http://www.officena.net/ib/topic/63175-تعديل-في-الأكواد-تعبئة-الكومبو-بقيم-فريدة-باستخدام-scriptingdictionary/?_fromLogout=1

شاهد هذا الفيديو

السّلام عليكم و رحمة الله و بركاته عمل و بكل صدق يُفتخر به .. بارك الله فيك جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

اخي الغالي هل تريد بمجرد الضغط على تعديل يقوم بالتعديل ثم يمسح الموجود في ComboBox15 و ComboBox16 ؟؟؟ وضح ما الخطأ الذي تريد معالجته اما اذا اردت مسح محتويات كومبوبوكس تكتب هكذا ComboBox15.Value = "" ComboBox16.Value = "" ComboBox15.RowSource = "" ComboBox16.RowSource = "" وضح الخطأ ونعدل عليه باذن الله

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

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

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

السلام عليكم أستخدم Office 2007 وهذه صورة لخطوات العمل

السلام عليكم انت ملك او ابن ملك؟

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

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

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

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

قدم لنفسك خيراً وانت مالكٌ مالك .. من قبل ان تصبح فردا ولون حالك حالك ! ولست والله تدري اي المسالك سالك ؟ إما لجنة عدن أو في المهالك هالك

(حديث مرفوع) حَدَّثَنَا أَبُو طَاهِرٍ مُحَمَّدُ بْنُ أَحْمَدَ بْنِ عَبْدِ الرَّحِيمِ الْكَاتِبُ قِرَاءَةً عَلَيْهِ فِي سَنَةِ 442 ، ثنا أَبُو مُحَمَّدٍ عَبْدُ اللَّهِ بْنُ جَعْفَرِ بْنِ حَيَّانَ ، ح وَثنا أَبُو الْقَاسِمِ إِبْرَاهِيمُ بْنُ مَنْصُورِ بْنِ إِبْرَاهِيمَ الْكَرَّانِيُّ ، ثنا مُحَمَّدُ بْنُ إِبْرَاهِيمَ بْنِ عَليٍّ الْعَاصِمِيُّ ، قَالَا : ثنا أَبُو يَعْلَى أَحْمَدُ بْنُ عَلِيِّ بْنِ الْمُثَنَّى الْمَوْصِلِيُّ ، ثنا مُحَمَّدُ بْنُ عَبْدِ اللَّهِ بْنِ نُمَيْرٍ الْخَارِقِيُّ ، ثنا ابْنُ فُضَيْلٍ ، ثنا عُمَارَةُ بْنُ الْقَعْقَاعِ ، عَنْ أَبِي زُرْعَةِ بْنِ عَمْرِو بْنِ جَرِيرٍ ، سَمِعْتُ أَبَا هُرَيْرَةَ ، يَقُولُ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهِ عَلَيْهِ وَسَلَّمَ : " كَلِمَتَانِ خَفِيفَتَانِ عَلَى اللِّسَانِ ثَقِيلَتَانِ فِي الْمِيزَانِ حَبِيبَتَانِ إِلَى الرَّحْمَنِ : سُبْحَانَ اللَّهِ ، وبِحَمْدِهِ سُبْحَانَ اللَّهِ الْعَظِيمِ " .

السلام عليكم ورحمة الله وبركاته هذه احدى نفائس أخينا رضوان جزاه الله عنا كل خير وجدت هذا الموضوع في الصفحة 30 وترتيبه 1160 ضمن مواضيع قسم الأكسس العام لذا قررت أن أثبته لينتفع به اخواني الأعضاء ومن ثم أنقله الى الأرشيف الخاص (( الموضوع مثبت لغاية تاريخ 30/8/2006 ))