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

قائمة بافضل المواقع شهرة وشعبية على مستوى العالم فى الاكسيل 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

بسم الله الرحمن الرحيم فكرة وياريت الكل يتفاعل لتنشط القسم اثبت حضورك بكلمة صباح البركة استيقظنا على عظيم هبات اللهروحٌ عادت..ونعم زادت..صباح أطل..وأمن أظل..من أدام التسبيح : فرجت أسراره ومن أدام الحمد : تتابعت عليہ آلخيراتومن أدام الاستغفار : فتحت لہ المغاليق اللهم اجعل أيامنا سعيدةوهمومنا بعيده وفرجنا قريب .. وسرورنا يزيد وعيشنا رغيد واجعلنا ممن قلت فيهم " لَهُمْ مَا يَشَاءُونَ فِيهَا وَلَدَيْنَا مزيد" ياسر العربي

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

بارك الله فيك استاذ ياسر واعتذر على عدم علمى بالتوجيهات

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

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

اللهم آمين إن شاء الله أخى رجب وجزاك الله كل خير

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

عمل جيد - جزيت خيرا - احسنت ممكن تحويله الى عربي للاستفادة ( الازرار - الواجهة - محرك البحث )

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

أخي الغالي محمد الريفي طالما أن الموضوع بهذا الشكل فلابد وأنك تحمل الجديد في الموضوع عموماً بالمعادلة التالية يمكن تحويل الرقم إلى تاريخ تسلسلي =DATEVALUE(MID(A1,1,4)&"/"&MID(A1,5,2)&"/"&MID(A1,7,2)) ومن ثم يمكن تنسيق مخصص للرقم التسلسلي ليصبح بهذا الشكل yyyy/mm/dd أو يمكن استخدام المعادلة التالية لتحويل الرقم التسلسلي لتاريخ =TEXT(LEFT(B1,5),"yyyy/mm/dd") تقبل وافر تقديري واحترامي

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

تفضل المطلوب Salary Range.rar

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على كلماتكم المعبرة وتشجيعكم تقبلوا تحيات ومحبة أخيكم الذي يحبكم والسلام عليكم

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

أخي الكريم الياسر جرب الكود التالي Sub Test() Dim LR As Integer LR = Cells(27, 1).End(xlUp).Row + 1 Range("A" & LR & ":F" & LR).Value = Range("A3:F3").Value End Sub تقبل تحياتي

استبدل السطر البرمجى السابق بالسطر التالى ( الدالة NZ ) تقوم بتجاهل الفرغات وتحويلها الى اى متغير تكتبه وفى هذه الحالة المتغير صفر Me.totalN = Val(Nz(number1, 0)) + Val(Nz(number2, 0))

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

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