رجب جاويش

السلام عليكم بعد اذن الرائعين أ/ جمال عبد السميع أ/ سليم حاصبيا هذا حل آخر لإثراء الموضوع Sub ragab() Application.ScreenUpdating = False Range("B12:L17").ClearContents T = 12 For TT = 2 To 12 Step 2 For i = 2 To 12 Step 2 Randomize 1 x = Int((8 - 3 + 1) * Rnd + 3) y = Application.WorksheetFunction.CountIf(Range("B" & T & ":L" & T), Cells(x, TT)) If y >= 1 Then GoTo 1 Cells(T, i) = Cells(x, TT) Next T = T + 1 Next Application.ScreenUpdating = True End Sub توزيع اللاعبين.rar

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

جزاك الله كل خير

أخى الفاضل / بن خليفه جزاك الله كل خير

السلام عليكم أخى الحبيب / ابراهيم أبو ليله تسلم ايديك أخى الحبيب / محمود الشريف تسلم ايديك وبعد اذنكم هذا حل أخر لاثراء الموضوع كنت قد جهزته قبل انقطاع التيار الكهربى Sub ragab() Application.ScreenUpdating = False T = 5 + Month(Now) If T = 6 Then T = 7 If T = 17 Then T = 16 Columns("G:R").EntireColumn.Hidden = True Range(Cells(4, T), Cells(4, T + 2)).EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub مشتركى الدوحة نت.rar

أخى الفاضل / طارق جزاك الله كل خير

السلام عليكم تفضل تنسيق شرطي.rar

السلام عليكم تفضل أخى 2معادلة حسابية.rar

السلام عليكم تفضل أخى بدون التنسيق الشرطى تنسيق شرطي.rar

السلام عليكم بعد اذن أخى الفاضل / سليم أخى الفاضل جرب التعديل التالى Private Sub TextBox1_Change() Dim b As Boolean Me.TextBox2 = "" Me.TextBox3 = "" Set sh12 = Sheets("Sheet1") LR = sh12.[G20000].End(xlUp).Row If Me.TextBox1 = "" Then Exit Sub For Each cl In sh12.Range("G2:G" & LR) If (Val(Me.TextBox1)) = cl Then b = True Me.TextBox2 = cl.Offset(0, 1) Me.TextBox3 = cl.Offset(0, 2) Exit For End If Next If Not b Then MsgBox "لاتوجد نتائج للبحث", vbMsgBoxRight, "عفوا" End If End Sub

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

السلام عليكم أخى الفاضل وهذا تطبيق لما هو موجود فى الرابط الذى أشار اليه أخى الحبيب / محمود الشريف New folder.rar

السلام عليكم أخى الفاضل غالبا تظهر هذه الرسالة عند وجود كودين فى نفس الموديول يحملان نفس الاسم راجع الموديول module وتأكد من ذلك

إخوتى الأفاضل شكر الله سعيكم جميعا

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

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

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

الأستاذ الفاضل / مجدى يونس جزاك الله كل خير المجموعة الثانية المجموعة الثانية.rar

السلام عليكم أخى الفاضل استخدم الجملة ThisWorkbook.Name أو الجملة ActiveWorkbook.Name

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

أخى الفاضل لا يوجد ملف مرفق

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

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

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

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