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

السلام عليكم ورحمة الله إخواني الكرام، أشارككم الموضوع بهاتين المعادلتين: =OFFSET($A$1;ROW()-1;ROW()-1) و =INDIRECT(ADDRESS(ROW();ROW())) بن علية

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

بسم الله الرحمن الرحيم 1- المكتبات والادوات DLL & OCX 2- كيفية تسجيل المكتبات والأدوات Dll & OCX في النظام 3- كيفية إضافة المكتبات وأدوات خارجية للفيجوال والعمل عليها ما هي فوائد استخدام ملفات ال DLL او لماذا نستخدم ملفات DLL: ماذا تعني DLL: هي اختصار لمجموعة الكلمات التالية Dynamic link libraries لمحة سريعة عن DLL: هي عبارة عن ملفات مترجمة(Compiled files) شبيهة الى حد بعيد جدا بالملفات التنفيذية و التي تحمل اللاحقةExe, ملفات ال DLL يمكن ان تحتوي على Codes او يمكن ان تحتوي على مصادر resources او ممكن ان تحتوي على بيانات Data و قد تجد DLL يحتوي على كل ما سبق ذكره, و لكن الفرق الجوهري بين DLL و Exe هو أنّ ملفات DLL لا يمكن تنفيذها بشكل مباشر و انما يتم استثمارها من قبل تطبيقات اخرى اي ان ملفات DLL ليست مستقلة بحد ذاتها و تحتاج الى تطبيق دائماً للاستفادة منها مع انها تحتوي على اكواد تنفيذية مثلها مثل exe و لكن لا يمكنها ان تعمل بمفردها و يمكنك تخيل ان ملفات DLL هي ملفات مساعدة للتطبيق للقيام بعمله. الهدف الرئيسي من وجود ملفات DLL هو مشاركة الاكود بين العديد من التطبيقات اي استخدام نفس ال DLL من اكثر من تطبيق سواء بوقت واحد او بشكل منفصل. والادوات ocx تشبه نفس وظائف dll بصورة كبيرة كيفية تسجيل الأدوات نفترض ان لدينا ملف dll او ocx نريد اضافة للنظام للعمل عليه من داخل الفيجوال بطريقة سليمة الطرق كثيرة ولكن نختصر ونضع الخلاصة نفترض انا لدينا اداة اسمها actskin4.ocx نقوم بنسخها لملفات النظام اذا كان 32 لملف c:\windows\system32\actskin4.ocx اما اذا كان النظام 64 bit فلا بأس من نسخ الملف مرتين في المسارات الاتيه c:\windows\system32\actskin4.ocx C:\Windows\SysWOW64\actskin4.ocx ونقوم بعمل نوت باد اذا كان النظام 32 نضع هذا السطر regsvr32 c:\windows\system32\actskin4.ocx ونحفظه بامتداد bat وليكن اسم الملف reg.bat اما نظام ال64 نضع الاسطر التالية regsvr32 c:\windows\system32\actskin4.ocx regsvr32 c:\windows\SysWOW64\actskin4.ocx وتعمل لكلا النظامين ويتم الحفظ ايضا بامتداد bat واسم الملف ليكن هكذا reg.bat وغالبا يتم فتح الملف بعد ذلك كمسئول كليك يمين وRun admin لتظهر نافذة تقول انه تم التسجيل بنجاح ولقد وضعت برنامج في المرفقات للتسهيل علي البعض في تسجيل الاداوت كيفية إضافة المكتبات وأدوات خارجية للفيجوال بعد ان قمنا بنقل الادوات الى ملفات النظام سواء 32bit or 64bit وتم تسجيلها كما بالشرح السابق نقوم بفتح مشروع جديد وبكدا نكون تعلمنا طريقة وضع الادوات علي الفورم ناتي لكيفية التعامل معها برمجيا وكمثال هنعمل علي نفس الاداة المدرجة في اعلاه وهي actskin4.ocx ما فائدة هذه الاداة : تقوم بتغيير المظهر العام لوجهه الفورم والازرار الى واجهات skinمعدة للتعامل مع هذه الاداة وهي من اللمسات الجمالية للبرنامج بتاعنا عيب الاداة : ان الليبل الاصلي لا يظهر عند تشغيل البرنامج ولا اداة image ويأتي مع الأداة ليبل بديل لليبل الاصلي يظهر مع الاداة وتستبدل الimage بال picture نأتي لكيفية التعامل معها برمجيا اولا نقوم بانشاء مشروع جديد واضافة الاداة كما سبق ويتم وضع الكود الخاص بالاداة في حدث تحميل الفورم وممكن وضعه باي حدث نشاء كزر مثلا لتغيير الskin كود التشغيل يجب اولا ان يكون لديك ملفات skin ليتم التطبيق عليها عن طريق الاداة قمت بارفاق بعض ال skin للتطبيق عليها ووضعتها داخل مجلد داخل البرنامج بتاعنا وسميته كمثال skin الكود البرمجي Private Sub Form_Load() ' سطر استدعاء وتحميل ملف الskin من مسار البرنامج داخل المجلد skin اسمه Yasser.skn Skin1.LoadSkin (App.Path & "/skin/yasser.skn") 'سطر تطبق ما تم استدعائه Skin1.ApplySkin Me.hWnd End Sub واحفظ مشروعك وقم بتشغيله لترى هذا شوف الفرق اي استفسارات توضع ف موضوع الردود والاستفسارات الى اللقاء والسلام عليكم مع تحياتي ياسر العربي يتبع مرفق برنامج تسجيل الاداوت والمشروع المنفذ ف الشرح RegOCX.rar مشروع لمسه جمالية.rar

السلام عليكم ورحمة الله وبركاته بمناسبة عودة أستاذنا الحبيب ياسر خليل أبو البراء بعد طول غياب أقدم هذا العمل المتواضع الذي شاركني به إخوتي عمل على قدر إمكانياتي الضحلة ولكن أن تأتي متأخراً خير من أن لا تأتي...جهد المقل ...فالعذر ...العذر ...أره عذرك ولا تره بخلك.. والسلام عليكم. هدية لأبي البراء.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 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

السلام عليكم ورحمة الله وبركاته للمهتمين بعلوم واسرار الاكسيل ( زكاة العلم نشره شارك معى الجميع) معظمنا سمع عن الدالة المخفية DATEDIF ولكن هل سمعت عن الدالة EVALUATE انها ايضا دالة مخفية او سرية موجوده فى الاصدار Excel v4.0 macro function الصادر عام 1994 . وهذا شرح مبسط لكيفية عمل هذا الدالة . EV.zip

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

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

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

السلام عليكم ورحمة الله تفضل اخي ابو حمادة إليك ماطلبت ظهور الفورم بدون زر امر "نعم" وبعد خمسة ثواني يظهر. اخوكم في الله / ابو الحسن والحسين KHMB OnTime ظهور زر امر بعد خمسة ثواني.rar

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

زمن العزه

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

استاذى الحبيب / محمد الريفى يشرفنى اكون اول المشاركين طبعا انت عايز تشغل مخنا شويه تقبل منى هذا الحل المتواضع بالمعادلات ضع هذه المعادله بالخليه O1 واسحبها نزولا لاسفل =INDEX($A$1:$N$14;ROW();ROW()) يوجد حلول اخرى بالمعادلات والاكواد ولكن اترك الفرصه لغيرى للمشاركه وتنوع الافكار واكيد انت عندك الحل المفاجأه اللى هيقش الكل تقبل تحياتى

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

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

فين الفنكوش يا عربي ؟ ولا هو فاشوش .. شوقتنا لرؤية القنبلة الموقوته

وعليكم السلام 1. غير الاعدادات حسب السهم الى نعم 2. ضع الكود في حدث النقر المزدوج للحقل كود الصنف: Private Sub كود_الصنف_DblClick(Cancel As Integer) Me.Parent.n1 = Me.كود_الصنف End Sub جعفر

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

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

تعددت الطرق والغرض واحد يعني كله بيلف يلف ويحقق نفس الغرض الاساسي وارجو منك ارفاق بعض الامثلة التنفيذية لكسرها ايا كانت مع العلم ان فيه احتمالية طرق لتحويل الملفات لتنفيذية متشتغلشي معايا فقد تكون تعمل باليه غير المتبعه في اغلب الملفات التنفيذية ولكن لها الحل ايضا باذن الله اما موضوع ملفات Dll او المكتبات الديناميكية Dynamic link libraries هي عبارة عن ملفات مترجمة(Compiled files) شبيهة الى حد بعيد جدا بالملفات التنفيذية و التي تحمل اللاحقةExe, ملفات ال DLL يمكن ان تحتوي على Codes او يمكن ان تحتوي على مصادر resources او ممكن ان تحتوي على بيانات Data و قد تجد DLL يحتوي على كل ما سبق ذكره, و لكن الفرق الجوهري بين DLL و Exe هو أنّ ملفات DLL لا يمكن تنفيذها بشكل مباشر و انما يتم استثمارها من قبل تطبيقات اخرى زي معظم لغات البرمجة المفروض دا الموضوع اللي كنت هشرحه في الفيجوال dll وطرق اضافتها والعمل عليها عيب يامعلم ابراهيم احنا مش بنبيع الفانكوش احنا بنصنعه البرنامج شغال وتمام التمام ولكن ارد ان يكون بموافقة الجميع ولو مستعجل هات ملف تنفيذي وارجعه ليك ملف اكسيل وشوف شرح الفيديو

كل عام وحضراتكم جميعا بألف خير وصحة وسلامة Calendar.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء مرحبا بكم جميعا لدي استفسار بسيط / يوجد لدي خزان ماء مستطيل ارتفاعه 1.80 م وعرضه 3.18 م وطوله 4 م اريد ان اعرف كم لتر ماء بداخله اجماليا وكم طن ؟ اتمنى الشرح ان لزم الامر لذلك . شاكر لكم مروركم

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

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

أخي الكريم أبو وليد رغم أن الطلب غريب بعض الشيء .. ولكن جرب التعديل التالي عله يفي بالغرض Sub TransferToAllSheets() 'Author : YasserKhalil 'Released : 02 - Dec. - 2015 'Use : The Code Transfers Data In Column B To Its Proper Sheet In A ' If Value Found In The Target Sheet, It Won't Be Transferred. '------------------------------------------------------------------------- Dim Cel As Range Dim LR As Long With Application .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlCalculationManual End With For Each Cel In Sheets("Main").Range("A2:A" & Sheets("Main").Cells(Rows.Count, 1).End(xlUp).Row) If Evaluate("=ISREF('" & Cel.Value & "'!A1)") Then With Sheets("" & Cel.Value & "") LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 If Application.WorksheetFunction.CountIfs(.Range("A2:A" & LR), Cel.Offset(0, 1), .Range("C2:C" & LR), Cel.Offset(0, 3)) Then GoTo Skipper If LR >= 12 Then LR = 2 .Range("A" & LR).Resize(, 4).Value = Cel.Offset(0, 1).Resize(, 4).Value Cel.Offset(0, 10) = .Range("A" & LR) End With End If Skipper: Next Cel With Application .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlCalculationAutomatic End With End Sub Sub ClearAllSheets() Dim WS As Worksheet For Each WS In ThisWorkbook.Sheets If WS.Name <> "Main" Then WS.Range("A2:D1000").ClearContents Next WS Sheets("Main").Range("K2:K1000").ClearContents End Sub تقبل تحياتي

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

أمر آخر أخي الكريم ياسر العربي فيما يخص الأداة الخاصة بالتسجيل يبدو أنها تعمل على 64 بت بدون مشاكل .. ولكن يجب أولاً نسخ الملف المراد تسجيله إلى مساره المحدد في Windows فهل بالإمكان أن تقوم الأداة بنسخ الأداة المراد تسجيلها إلى المسار System32 في حالة التعامل مع 32 بت ..أو إلى المسار SysWOW64 في حالة التعامل مع 64 بت؟ أخي الكريم إبراهيم فيما يخص مشكلتك .. لا داعي لإرفاق الملف actskin4.ocx في نفس مسار المشروع .. ولكن يجب أن تقوم بنسخ الملف actskin4.ocx إلى المسار المحدد في مجلد الويندوز إما إلى System32 في حالة التعامل مع ويندوز 32 بت أو إلى SysWOW64 في حالة التعامل مع ويندوز 64 بت .. ثم تقوم بتسجيل الأداة من خلال Command Prompt .. لابد من تشغيل البرنامج كمسئول أولاً ثم قم بتنفيذ السطر التالي regsvr32 C:\Windows\system32\actskin4.ocx أو في 64 بت regsvr32 C:\Windows\SysWOW64\actskin4.ocx

في اي نموذج؟

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

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

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

تفضل اخى الكريم شاهد المرفق هل هو طلبك تقبل تحياتى New Microsoft Excel Worksheet.zip

السلام عليكم ورحمة الله وبركاته بدون تعليق فالصورة تتكلم عن نفسها تقبلوا تحياتي العطرة اللهم صل وسلم وبارك على نبينا محمد وعلى آله وصحبه أجمعين..صورة أعجبتني من الفيس بوك أحببت أن أتحفكم بها.

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

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

للأسف فكرة حضرتك مش هاتنفع معايا لأن الموضوع عبارة عن بيانات للأب وبيانات للأم في فورم وبيانات للأبناء في فورم آخر والمطلوب جمع عدد أفراد الأسرة من فورم 1 وفورم 2

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

بسم الله الرحمن الرحيم اليوم سنتحدث - عن خصائص المشروع الخاص بنا كيفية فتح نافذة خصائص المشروع ومكونتها المهمة اولا نقوم بانشاء مشروع جديد كالعادة ونضع مثلا اتنين فورم وبعد الانشاء نقوم بالذهاب لخصائص المشروع كما موضح بالصورة فتظهر لنا النافذة التالية 1- المشروع الافتراضي ودا هنسيبه كدا 2- الفورم اللي محتاجينه يفتح عند تشغيل برنامجنا والوضع الافتراضي انه فورم واحد هو اللي بيفتح نفترض ان صممنا فورم اتنين علي اساس انه شاشة الدخول هنعمل ايه نغير من هنا ونخليها فورم اتنين بس يامعلم 3- اسم المشروع الافتراضي لو عاوزين كل ما نعمل مشروع بدل كلمة project نسميه اسم تاني عادي شغال 4- دا لو هترفق ملف مساعدة مع البرنامج باين انا شايف ان ننفض ليها نخش في المهم 5- Make ودي بقي الشغل المهم هنا ونشوف صورتها بقي 1- طبعا كلنا نعرف الإصدارات للبرامج اللي هي version ربنا كدا لما يكرمك وتبقي مبرمج قد الدنيا كدا وتلاقيك بتعمل برنامج اساسي كدا وبتعمل له اصدارات مختلفة من رقم واحد دا بنحدد رقم الاصدارة اللي بنعملها والافتراضي واحد ونغير زي ما احنا عايزين 2- عنوان المشروع ودا عشان بقي لزوم الكماليات عشان أي رسالة تنبيه مسج بوكس أي حوارات تظهر يبقي مكتوب فوقها في titlebar اسمنا كدا 3- ودي معلومات برنامجنا تحط فيه بقي كل بياناتك وحقوقك وشركتك وعلامات تجارية وملاحظات تظهر في خصائص برنامجنا. 4- ودي طبعا ايقونة المشروع بتاعنا النهائي واللي اخي عبد العزيز كان محتاجها بنختار ايقونة من ايقونات الفورمات الموجودة داخل المشروع طيب الايقونات الموجودة حاليا الافتراضية وشكلها رخم نعمل ايه ياعم عبد العزيز نروح للفورم واحد ونشوف كدا 1- نفتح لاختيار الايقونة المراد وضعها للفورم 2- نحددها ونضغط open لتظهر هكذا في اعلي يسار الفورم وايضا تظهر في الtaskbar عند فتح الفورم في البرنامج ملحوظة الايقونات اللي هتشتغل معانا الأيقونات بعمق ألوان 32bitاو اقل يعني 64 هتظهر اخطاء ومش هتنضاف للفورم نذهب بعد ذلك لخصائص المشروع ونروح ل Make كما بالصورة نجد ان الايقونة تغيرت لانه البرنامج بياخد الايقونة للفورم واحد افتراضي طيب لو غيرنا جبنا فورم اتنين كدا الايقونة الافتراضية للفورم اتنين لاننا لم نقم بوضع ايقونة له نرجع للفورم واحد ونحفظ مشروعنا ونحوله لملف تنفيذي ونشوف النتيجة وبكدا نكون خلصنا جزء خصائص المشروع والى اللقاء في درس اخر باذن الله تحياتي ياسر العربي يتبع

السلام عليكم ورحمة الله وبركاته كل ما سيأتي الفترة القادمة هو كيفية التعامل مع الادوات والفورم مثال باذن الله عن كيفية عمل برنامج بسيط لتشغيل القرأن الكريم من موقع tvquran كالعادة نبدأ بالادوات عدد فورم واحد كومند للخروج واحد image اداة الويب الشرح كما موجود امامنا الفورم وعليه الادوات الصورة والزر وصفحة النت فقط لتعديل الفورم بهذا الشكل يتم عمل كما في الصورة الاتية بعد اخفاء الشريط نأتي للصورة خلصنا من الصورة ندخل علي اداة الويب بعد وضع كل الادوات بهذا الشكل نقوم بوضع اسهل كود وهو كالتالي اول كود في الكومند1 Private Sub Command1_Click() End End Sub ثاني كود وهو في حدث تنشيط الفورم وظيفة الكود فتح الموقع www.tvquran.com/add/index.htm Private Sub Form_Load() WebBrowser1.Navigate "www.tvquran.com/add/index.htm" End Sub دائما الملف بعد الانتهاء منه لا يظهر في الاسفل في taskbar نقوم بتعديل الفورم كالاتي ليظهر في التاسك بار عند تشغيله واالاختيار بأسفله center screen لوضع الفورم في منتصف الشاشة عند الفتح كان هذا المصحف هدية لاخي الغالي ابو يوسف منذ فترة والان تم وضع كيفية عمل الهدية نفسها علها تنفعنا وتنفعكم والسلام عليكم يتبع مرفق المصحف ملف تنفيذي والمشروع المصحف.rar

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

وهذا الشرح : تم تحويل الوقت كاملا الى دقائق ! ثم القسمة بدون باقي على 60 لحساب عدد الساعات ! ثم ايجاد باقي القسمة على 60 لحساب الدقائق ! بالتوفيق

اريد تحويل عملها عن طريق كود

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

يارب

يارب ارزقني باحد الأفاضل يأتي بالحل

السلام عليكم ورحمة الله جرب اخى هذا المرفق _رأس و تذييل .rar

السلام عليكم =========== اخى ابو البراء بارك الله فيك اخى العزيز شاهد المرفق اخفاء واظهار شريط القوائم.rar

Username : khaled95 Password : khhhhk