قنديل الصياد

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

الكود Private Sub CommandButton1_Click() Randomize Dim Inum As Integer Inum = Int(7 * Rnd + 4) ActivePresentation.SlideShowWindow.View.GotoSlide (Inum) End Sub مرفق ملف به التطبيق Presentation1.rar

1- نقوم بتحديد الصفوف المراد تلوينها كما بالصورة التالية 2- الضغط على تنسيق ثم تنسيق شرطى كما بالصورة التالية 3- اختيار صيغة من شرط 1 ثم كتابة المعادلة التالية كما بالصورة =mod(row();2) 4- اختيار تنسيق من نفس الصندوق الحوارى واختيار لون التعبئة المناسب كما فى الصورة التاليةثم موافق ثم موافق 5- لجعل الشكل يظهر بشكل اجمل نختار عمل حدود للصفوف الملونة كالتالى : تنسيق _خلايا_حدود ليصبح الشكل كالتالى : مرفق ملف به التطبيق تنسيق شرطى لتلوين الصفوف.rar

شكرا لك اخى العزيز ولاستاذنا الكبير / بن علية حاجي وهذا رابط مترجم باللغة العربية لنفس رابط استاذنا الكبير http://translate.google.com/translate?sl=en&tl=ar&js=n&prev=_t&hl=ar&ie=UTF-8&u=http%3A%2F%2Ftechsalsa.com%2Fsolution-to-this-operation-has-been-cancelled-due-to-restrictions-in-effect-on-this-computer%2F

محاذاة لليمين Sub kk() ActiveCell.HorizontalAlignment = xlRight End Sub محاذاة للوسط Sub kkkk() ActiveCell.HorizontalAlignment = xlCenter End Sub محاذاة لليسار Sub kkk() ActiveCell.HorizontalAlignment = xlLeft End Sub مرفق ملف به التطبيقات محاذاة الخلية.rar

كود لعمل احتواء تلقائى لجميع الاعمدة بالملف Sub kandeel() Cells.Select Selection.Columns.AutoFit End Sub كود لعمل احتواء تلقائى لعمود واحد فقط Sub kandeel() Columns("C:C").EntireColumn.AutoFit End Sub مرفق ملف به التطبيق على جميع الاعمدة احتواء تلقائى لجميع الاعمدة.rar

الكود الاول Sub NameTest() MsgBox ActiveWorkbook.Path MsgBox "مع تحيات منتديات أوفيسنا" End Sub الكود الثاني Sub NameTest() Dim MyPath As String, MyCompletePath As String MyPath = ActiveWorkbook.Path MyCompletePath = ActiveWorkbook.FullName MsgBox MyPath & vbLf & MyCompletePath MsgBox "مع تحياتى .. قنديل الصياد" End Sub مرفق ملف به التطبيقين Desktop.rar

متغير من نوع Integer تستخدم متغيرات Integer لتخزين الأعداد الصحيحة Sub kkk() Dim x As Integer x = 200 Range("A1").Value = x End Sub متغير من نوع String وتستخدم متغيرات String لتخزين النصوص Sub kkkkk() Dim book As String book = " منتديات أوفيسنا " Range("A2").Value = book End Sub متغير من نوع Double متغير من نوع Double هو أكثر دقة من متغير من نوع Integer ، ويقوم بتخزين أرقاما بعد الفاصلة Sub kk() Dim x As Double x = 10.08 MsgBox "value is " & x End Sub مرفق ملف به التطبيقات متغيرات.rar

كل عام وحضراتكم بخير وجزاكم الله خير الجزاء

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

اليك اخى واستاذى العزيز الاستاذ / على حسن ما طلبت واتمنى ان يكون كما طلبت =TODAY() =NOW() مرفق ملف به التطبيق تارخ اليوم.rar

اخى العزيز الملف بعد فك الضغط غير مكتمل وبه مجموعة صغيرة من صفحات نصف العام ولا يوجد باقى صفحات نصف العام ولا يوجد شئ لاخر العام استاذى العزيز يمكن ان ترفع الملف بدون تجزئة على هذا الرابط http://www.gulfup.com/

جرب اخى ايضا هذا المرفق وان شاء الله سيفى بالمطلوب الحل موجود به مجموعة من الاكواد وايضا المعادلات والحل مقتبس من هذا الرابط لاستاذنا الفاضل / عبد الله المجرب وما انا الا نقلت الاكواد والمعادلات على ملف جديد لتعم الفائدة على جميع رواد المنتدى http://www.officena.net/ib/index.php?showtopic=37455&page=2 Book1.rar

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

وجزاك الله خيرااخى خير الجزاء وكل عام وحضرتك بخير

شكرا لك اخى واستاذي على الكلمات الرائعة جزاك الله خيرا

السلام عليكم اخى واستاذى العزيز كل عام وحضرتك بخير اتمنى ان يكون هذا هو المطلوب الكود بعد التعديل Sub Macro1() Range("B23").Select ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)" Range("B23").Select Selection.AutoFill Destination:=Range("B23:D23"), Type:=xlFillDefault Range("B23:D23").Select Range("D23").Select Selection.AutoFill Destination:=Range("D23:E23"), Type:=xlFillDefault Range("D23:E23").Select MsgBox "تم الجمع . مع تحياتى: على حسن" End Sub مرفق ملف بعد التعديل نصيب الشركاء.rar

اخى العزيز ارسلت ردا اتمنى أن يكون المطلوب Book1.rar

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

اخى واستاذى العزيز الاستاذ / جمال برجاء رفع الملف مرة اخرى مع التاكد من تشغيله لانه عندما اريد فتح الملف لا يتم الفتح شكرا لك

الشكل الاول Private Sub CommandButton1_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationGetTechy End With End Sub الشكل الثاني Private Sub CommandButton2_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationCheckingSomething End With End Sub الشكل الثالث Private Sub CommandButton3_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationListensToComputer End With End Sub الشكل الرابع Private Sub CommandButton4_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationSearching End With End Sub الشكل الخامس Private Sub CommandButton5_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationThinking End With End Sub الشكل السادس Private Sub CommandButton6_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWorkingAtSomething End With End Sub الشكل السابع Private Sub CommandButton7_Click() With Assistant .On = True .Visible = True .Move xLeft:=400, yTop:=300 .MoveWhenInTheWay = True .TipOfDay = True .Animation = msoAnimationWritingNotingSomething End With End Sub مع تحياتى & قنديل الصياد &

الكود Private Sub CommandButton1_Click() ActivePresentation.Save ActivePresentation.Close End Sub ملف به التطبيق Presentation1.rar

كل عام وانتم بخير مدونات جميلة

برجاء التعديل على الكنترول المرفق تم الانتهاء من كنترول نصف العام ومطلوب الاتى فى كنترول اخر العام 1- عمل ترحيل للناجحين والراسبين مع اضافة الغائبين مع الراسبين لجميع الصفوف من الاول للسادس 2- استخراج الاوائل لجميع الصفوف بناءا على مجموع المواد الاصلية فقط وعمود مجموع المواد الاساسية موجود فى كشوف الرصد اسم المستخدم : قنديل الصياد كلمة السر : 1964 محرر الاكواد : 2014 حماية الخلايا : 1020

اخى العزيز كل عام وانتم بخير راجع هذا الرابط وفيه كيفية التعامل مع الماكرو http://www.officena.net/ib/index.php?showtopic=48223&hl= مرفق ايضا ملفين لقواعد بيانات احداهن لاستاذنا الفاضل / عبد الله باقشير والثانى ايضا لاحد استاتذة هذا المنتدى الرائع مع التعديل فى بعض البيانات على الملفين اتمنى ان يفوا بالمطلوب Desktop.rar