الحسامي

السلام الكريم انت لم تتقيد بالشرح السابق والاخطاء التي وقعت بها : اولا : هذا الكود ActiveSheet.Shapes([o2]).Visible = True هو لايجاد اسم الصورة المطلوبة وقد قلنا انه يتم تحديد اسم الصورة المطلوبة بواسطة الخلية المرتبطة بقائمة الاسماء والتي استخدمنا بها دالة ال VlookUP والتي هي لديك الخلية (F5) ... وبالتالي يجب عليك تغيير الكود السابق الى الكود ActiveSheet.Shapes([F5]).Visible = True ثانيا انت في مثالك ادخلت في الجدول اسماء 33 صورة وليس لديك الا 4 صور ثالثا في الكود For i = 2 To 13 هذه الارقام تمثل عدد الصور التي لديك والرقم الاول يمثل رقم اول صورة والرقم الثاني يمثل رقم اخر صورة وانت لديك الصور تبدأ من الرقم 1 وتنتهي بالرقم 33 وبالتالي هذا السطر يجب ان يتم تغييره الى For i = 1 To 33 ملاحظة : ضع هذا السطر في بداية الاكواد وذلك لتفادي الاخطاء الشكلية On Error Resume Next مرفق الملف شامل التعديلات GFGFGFG99.rar

السلام عليكم لاثراء الموضوع هنا حل اخر طباعة مختبر.rar

السلام عليكم اخي العزيز halwim فقط لو بالامكان ارفاق نسخة اضافية بصيغة اكسل 2003

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

السلام عليكم بارك الله فيك اخي عادل دائما ما تكون في منتهى الروعة ولاثراء الموضوع هنا حل اخر Book123.rar

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

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

السلام عليكم بارك الله فيك اخواني الاحباء هشام وأيسم وجزاكم الله خيرا ولاثراء الموضوع هنا حل أخر طباعة.rar

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

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

السلام عليكم اخي الكريم قم فقط بمسح السطر التالي من الكود Me.TextBox2.Text = .Cells(LastRow + 1, "C").Value2 حيث ان هذا السطر يقوم بوضع قيمة فارغة داخل التكست قبل عملية الترحيل وعند عملية الترحيل تكون قيمة التكست فارغة لذا لا يتم ترحيل شئ ال الشيت في هذه الجزئية

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

السلام عليكم اخي كيماس controls ليتم اعتبارها أداة تحكم معينة ... غير محددة بعد ويتم تحديدها بوضع اسم الاداة بداخل القوس بعد كلمة controls لذا تم اعبار ما بداخل القوس عبارة عن نص وتم وضعه بداخل علامة التنصييص "" ولصق الرقم بجانبها باستخدام الرمز & وفي حالتنا هنا الرقم الملصق متغيير من 3 الى 19 ---- المهم ... الكود عبارة عن عملية بحث لأداة تحكم معينة وعند ايجادها يتم تنفيذ الكود المطلوب ارجو ان اكون قد اوصلت الفكرة فمثلا ّإذا اردنا مسح البيانات من صناديق النص بنفس الآلية استخدم الكود التالي For i = 3 To 19 Me.Controls("TextBox" & i) = "" Next i End Sub

السلام عليكم اخي كيماس حسب فهمي لموضوعك فقد قم بتغيير الجزئية التالية من الكود بدل التكرارات لديك For i = 3 To 19 Cells(Lastr, i + 4).Value = Me.Controls("TextBox" & i).Value Next i

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

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

السلام عليكم اخي الكريم شاهد المرفق JANUARY.rar

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته اخي ابو الاء مرفق ملف ... عند اضافة اي اسم في العمود الاول يتم ترتيب الاسماء تلقائيا عسى ان يكون المطلوب ابو الاء1.rar

السلام عليكم ورحمة الله وبركاته تم تعديل بعض عمليات الفرز واخفاء السري في صفحة بيانات الطلبة مشروع كنترول 122.rar