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

ثانيا:-كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم لأضافه عناصر تحكم داخل الـ Frame يوجد طريقتين الطريقه الاولى :- شاهد الصوره الطريقه الثانيه :- لو حضرتك قمت بتصميم عناصر على الفورم مثل الصوره دى ثم فكرة انك تجعلهم داخل فريم بعد ما صممت العناصر وظبت التنسيقات وكل شئ فما الحل ؟؟؟ شاهد الصور التاليه بعد ما تضغط على Paste ستجد العناصر داخل الفريم بنفس التنسيق شاهد الصوره التاليه وبكدا عرفنا اننا نقدر نضيف اى عنصر او عناصر تحكم داخل الفريم أما بأنشائها لاول مره او اننا بننسخها من الفورم ملحوظه مهمه جدا تقدر تنسخ بنفس الطريقه من فورم اخر وتعمل لصق على فورم جديد مفيش مشكله واحد هيقولى وايه الفايده لما تنسخ مثلا كمبوبوكس من فورم انت مصممه قبل كدا وتعمله لصق فى فورم جديد لانه بيوفر عليك الوقت والجهد من تظبيط التنسيقات للكمبوبوكس وبيتم لصقه بنفس الخصائص **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم انتظرونا تقبلوا تحياتى

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

السلام عليكم ورحمة الله وبركاته أحبائى وأساتذتى ومعلمينى فى هذا الصرح العلمى الهائل تحية طيبة وبعد أقدم لكم اليوم مجموعة رائعة من الأيقونات زات الجودة العالية أرجوا من الله أن تنال إعجابكم http://www.mediafire.com/download/42x3exq2c119cvo/1.rar http://www.mediafire.com/download/97cazvonq76t7r5/2.rar#1 http://www.mediafire.com/download/3da8dafesiy96hc/3.rar http://www.mediafire.com/download/byhgi1eu2u9ou29/4.rar http://www.mediafire.com/download/31yspi92357332b/5.rar http://www.mediafire.com/download/mydc1fc09z1kbj7/6.rar http://www.mediafire.com/download/ewm23d4geccddex/7.rar تقبلوا خالص تحياتى وتقديرى

بسم الله الرحمن الرحيم اليوم بمشيئة الله سنتكلم عن شروحات الفريم ( Frame ) تستخدم هذه الاداه فى احتواء بعض ادوات التحكم مثل ( الليبل او التكست بوكس او الكمبوبوكس وغير ها من العناصر) داخل الفريم بقصد اعطاء شكل جمالى أن شاء الله هيتم تناول الموضوع على ست مراحل 1- كيفية انشاء Frame على الفورم اثناء عملية التصميم 2- كيفية اضافه عناصر تحكم داخل Frame اثناء عملية التصميم 3- التعرف على خصائص Frame من شاشة الخصائص اثناء عملية التصميم 4-التعامل مع خصائص الـ Frame فى لغة البرمجه 5-كيفية اضافه عناصر تحكم داخل الـ Frame والتحكم فى الاسكرول بار للــ Frame عند فتح الفورم او اثناء العمل على الفورم وهو نشط 6-التحكم فى العناصر الموجوده داخل الـ Frame بطرق احترافيه نبدأ بسم الله أولا :- كيفية انشاء Frame على الفورم اثناء عملية التصميم لأضافه Frame جديد على الفورم يوجد طريقتين الطريقه الاولى :- الطريقه الثانيه :- نسخ فريم موجود على الفورم وعمل فريم اخر منه ملحوظه لو كان Frame1 يوجد به عناصر تحكم وليكن به comboBox1 وقمت بنسخ Frame1 لعمل فريم اخر منه ستجد داخل الفريم الجديد Frame2 بداخله comboBox2 وله نفس خصائص comboBox1 الخلاصه انه عند نسخ فريم يتم نسخه مع ما يحتويه من عناصر تحكم ايضا ويكون الفريم الجديد وما يحتويه من عناصر له نفس الخصائص اللى موجوده بالفريم الاول **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية اضافه عناصر تحكم داخل الـ Frame اثناء عملية التصميم انتظرونا تقبلوا تحياتى

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

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

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا مرفق لينك كتاب تعليم إكسيل 2007 شرح ثلث http://www.mediafire.com/download/bxy5adt0nu5xznc/EXCEL_2007.pdf منقول للفائدة تقبلوا منى خالص تحياتى وتقديرى

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

اخي الغالي احفظ هذا الموضوع اولا http://www.officena.net/ib/topic/64472-بداية-الطريق-لإنقاذ-الغريق/ وفي كتب كتيرررررررر وشروحات اكتر داخل هذا المنتدى العظيم بس انت حاول تبحث كويس ثم اطرح ما الذي تود ان تقوم بعمله ونحن نبدأ معاك خطوة خطوة

تفضل اخي الغالي الحل واخفاء ملف الاكسيل لحين تسجيل الدخول ويتم اظهاره مرة اخرى اضافة محرك بحث.rar

دالة Vlookup بشكل جديد تعمل من اليسار الى اليمين في حال كان اتجاه الصفحة للغة العربية و من اليمين لليسار اذا كان العكس advanced_vlookup.zip

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم جميعًا أساتذتي الأفاضل لما تقدّمونه من جهود في سبيل إنارة درب المبتدئين أمثالنا .. جزاكم الله خيرًا و زادها بميزان حسناتكم وددت أن أشارككم دروسكم القيّمة هذه بمحاولة بسيطة منّي .. لإثراء الموضوع .. أخي الكريم " أبو سليمان " كلّنا مبتدئون .. و ثق بالعبارة " إنَّ الأزمة تلدُ الهِمَّة " .. سأقوم معك بتنفيذ ماكرو حذف بسيط لنطاق معيّن من شيت الاكسل .. اسم النّطاق الذي سنقوم بحذف بياناته بالماكرو هو :G6:K15 الخطوة الأولى :قم بالتّأشير بواسطة الماوس على أوّل خليّة بهذا النّطاق .. مثلما هو مشار إليه بالسّهم الأحمر بالصورة أعلاه .. مباشرة بعد التأشير على هذه الخليّة .. قم بالضغط هنا ليبدأ الماكرو بالتّسجيل : الخطوة الثالثة : قم بالتأشير أو بتظليل كل النّطاق المقصود حذف بياناته و الذي هو G6:K15 بالماوس .. الخطوة الرابعة : و هذه هي الخطوة التي أعتبرها مهمّة لأنّ بها ستحدّد بها مصير أمم من الحروف .. هل ستنسخهم .. هل ستلصقهم .. أم ستحذفهم و تمسحهم في مثالنا هذا سنمسح هذه البيانات .. إذا ما عليك فعله هو فقط : إضغط بلوحة المفاتيح من أمامك على الزّر : DELETE الخطوة الخامسة : قم بإيقاف عملية تسجيل الماكرو ..من نفس المكان الذي قمت بتشغيله في الخطوة الأولى أخيرًا تم بحمد الله تسجيل الماكرو لديك .. و ستجده قد سبقك نائمًا بموديل داخل محرّر الأكواد بهذا الشّكل : لا ينقصك الآن سوى إنشاء زر أمر مرتبط بهذا الماكرو ليقوم عند الضغط عليه بتنفيذ ما أُمِرَ به .. قم بإنشائه من هنا : إتّبع مثلما هو موضّح بالصّور المرفقة أدناه بالتّرتيب : ليصبح لديك زر أمر بهذا الشكل : و أخيرًا أتمنّى و أرجو من الله أنّي قد وُفّقت بتيسير و لو الجزء البسيط من هذا المفهوم .. و إن كانت هناك أخطاء فأتمنى من الأساتذة الأعزّاء تصحيحها لأنّي أوّلاً و أخيرًا أبقى تلميذًا بهذا الصّرح التعليمي الكبير إليك ملف مرفق تطبيقي .. فائق إحتراماتي عبد العزيز البسكري الماكرو.rar

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

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

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

السلام عليكم استاذى /ياسر العربى .. الملف لا توجد به معادلة ..يرجى مراجعه الامر اخى الكريم يمكن الحل باكثر من طريقة منها =IFERROR(INDEX(A1:A16;MATCH(1;(F1:F16=$H$4)+(E1:E16=$H$4)+(D1:D16=$H$4)+(C1:C16=$H$4)+(B1:B16=$H$4);0));"") طريقة اخرى اكثر اختصاراً =IFERROR(INDEX($A$1:$A$16;SMALL(IF(B1:F16=$H$4;ROW(B1:F16)-ROW(B1)+1);1));"") لا تنسى تلك المعادلات -معادلات صفيف -بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER -- بإفتراض -- عدم تكرار البيانات تقبلوا خالص تحياتى

وعليكم السلام هناك طريقة افضل لحفظ سجلاتك في الجدول ، فطريقتك مأخوذة من الاكسل مثلا ، وليست صحيحة لقواعد البيانات . عملت لك جدول جديد ، وجلبت لك البيانات اليه: . والبيانات: . وعليه ، عملت عدد 2 استعلام جدولي ، واحد شامل لكل السنوات: . ونتائجه: . واستعلام سنوي (يعني استخدم خاصية التصفية) ، لكل سنة على حدة: . والنتيجة: . جعفر 262.salary2015+2014.accdb.zip

اللهم لا تحرمنا و لا تحرم أستاذنا القدير "محمّد حسن المحمّد" وكل المؤمنين و المؤمنات من كلمة لا إله إلاّ الله محمد رسول الله ..

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

أخي الكريم هاني الحمد لله أن نال الملف إعجابك .. بالنسبة لزيادة عدد الشيتات يرجى وضع شكل الملف الأصلي بالضبط لمعرفة عدد الشيتات الموجودة بالكامل .. وهل أوراق العمل التي سيتم زيادتها ستكون كلها تبدأ بكلمة مصلحة أم أن الأمر مختلف..؟؟ يمكنك التعديل في الكود في سطر واحد لتحصل على النتيجة المطلوبة من خلال هذا السطر SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") هذا السطر من خلاله يمكنك وضع أوراق العمل المطلوب العمل عليها بنفس الشكل .. Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Dim strSheet As String Set WS = Sheets("اذون الصرف") strSheet = WS.Range("K7").Value Application.DisplayAlerts = False Application.ScreenUpdating = False If Not Evaluate("ISREF('Temp'!A1)") Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" Sheets("Temp").Cells.Clear If strSheet = "كل المصالح" Then SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") For I = 0 To UBound(SheetsArr) For Each SH In Sheets If SH.Name = SheetsArr(I) Then With SH LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If Next SH Next I Else With Sheets(strSheet) LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If With Sheets("Temp") For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2 WS.Range("G4") = .Cells(I, "E") WS.Range("D6") = .Cells(I, "F"): WS.Range("D14") = .Cells(I, "F") WS.Range("C7") = .Cells(I, "C") WS.Range("B11") = .Cells(I, "D"): WS.Range("B14") = .Cells(I, "D") WS.Range("D12") = .Cells(I, "B") WS.Range("G24") = .Cells(I + 1, "E") WS.Range("D26") = .Cells(I + 1, "F"): WS.Range("D34") = .Cells(I + 1, "F") WS.Range("C27") = .Cells(I + 1, "C") WS.Range("B31") = .Cells(I + 1, "D"): WS.Range("B34") = .Cells(I + 1, "D") WS.Range("D32") = .Cells(I + 1, "B") WS.PrintPreview Next I .Delete End With MsgBox "Done", 64 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أخي الكريم هاني تم إنشاء قائمة منسدلة في الخلية K7 ومصدرها في العمود N وعملت إخفاء للعمود يمكنك الآن اختيار أي مصلحة أو كل المصالح كما ترغب Create One Sheet YasserKhalil V2.rar

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

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

قل من بيده ملكوت كل شيء وهو يجير ولا يجار عليه إن كنتم تعلمون ( 88 ) سيقولون لله قل فأنى تسحرون ( 89 ) ) من سورة ص

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

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

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

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

بارك الله فيك أخي الحبيب ياسر فتحي على موضوعاتك المميزة

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

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

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

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

شرفني مرورك أخي الحبيب الغائب عن العين الحاضر في القلب أحمد الحاوي (ياما في الجراب يا حاوي)

بسم الله الرحمن الرحيم وجدت وانا ابحث عن بعض الاكواد والامثلة هذا الكود الذي يعمل تأثيرات حركية علي shape & picture دا كان مشوار لموقع اجنبي حلفوا منا ماشي غير بالمثال دا اتفضلو علي فكرة صورة البنت الامورة دي انا اللي رسمها بالقص واللصق وحشه صح shape move.rar

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

ههههههههههههه حبيبي الغالي ابو يوسف تم وضع المرفق احيانا تحدث مشاكل اثناء رفع الملف ولا يتم رفعه لكم مني كل الشكر والتقدير

السلام عليكم ورحمة الله وبركاته الشكر الجزيل لأخي الحبيب عبد العزيز لأنني ضمن نطاق تفكيره وأنا بشوق لمعرفة هذا العمل ولكنه يعطيني ما يلي: compile error can't find Project or Library يرجى العمل على تدارك الخطأ في هذا المجال: Private Sub UserForm_Initialize() For b = 1 To 29: Set Btn(b).AZIZhorouf = Me("B_" & b): Next b وشكراً لأخي الحبيب عبد العزيز...والسلام عليكم.

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

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

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

دي فكرة متاههة جميلة الملف مرفق والموقع اللي بيشرح الفكرة والعاب تانية بالاكسيل http://mashable.com/2014/08/27/microsoft-excel-games/#WiBw1NGyVEqw maze-example - Darin Mods.rar

تفضل اخي الغالي كنت ناوي اعملها لسه شرح وانزله في الموضوع بتاعي بس متغلاش عليك اضافة محرك بحث.rar

السلام عليكم اخى الكريم جرب المرفق جيدا وابدى ملاحظاتك الرشيدى _ إحصاء.rar

تسلملي حبيبي ويسلم مرورك الكريم هذا ولك بمثل ما دعوت به اللهم امين

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

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

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

السلام عليكم اخى الكريم جرب المرفق وابدى ملاحظاتك لا تنسى :- CTRL+SHIFT+ENTER Book1 khaled_4.rar

ثالثا :- وقت تنفيذ الكود الخاص بــ ComboBox دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى ComboBox والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من ComboBox والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى ComboBox 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل ComboBox 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق ComboBox دلوقتى هنعرف ازاى بيكون كتابه الاعلان على الاكواد الخاصه بالـ ComboBox ( وهى نفس الطريقه لكل عناصر التحكم فى الفورم ) مثال على حدث Afterupdate Private Sub ComboBox1_AfterUpdate() 'هنا بيتم كتابه الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا ComboBox ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم