قنديل الصياد

تابع هذا الفيديو

انشاء دالة للجمع باسمك Function kandeel(a As Integer, b As Integer) As Integer kandeel = a + b End Function انشاء دالة للقسمة Function division(x, y) If y > 0 Then division = x / y Else division = "division impossible" End If End Function مرفق ملف به الاكواد قنديل__.rar

شرح فيديو لعمل قائمة منسدلة

اخفاء واظهار خطوط الشبكة ورؤس الصفوف والاعمدة Sub ToggleHeadingsGrids() Dim gridMode&, headingsMode& On Error Resume Next headingsMode = ActiveWindow.DisplayHeadings gridMode = ActiveWindow.DisplayGridlines If headingsMode And Not gridMode Then headingsMode = False ElseIf Not headingsMode And Not gridMode Then gridMode = True ElseIf Not headingsMode And gridMode Then headingsMode = True Else gridMode = False End If ActiveWindow.DisplayHeadings = headingsMode ActiveWindow.DisplayGridlines = gridMode End Sub مرفق ملف به التطبيق على الكود قنديل_1.rar

كود لعمل انقسام لورقة اكسيل Sub SplitWindow() Dim freezeMode As Boolean, win As Window If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub Set win = ActiveWindow freezeMode = win.FreezePanes win.FreezePanes = False If win.Split Then win.Split = False: Exit Sub win.SplitRow = ActiveCell.Row - win.ScrollRow win.SplitColumn = ActiveCell.Column - win.ScrollColumn win.FreezePanes = freezeMode End Sub مرفق ملف به الكود قنديل_1.rar

كود لاخفاء اشرطة الادوات مع اظهار اسمائها فى الخلية A Sub HideAllToolbars() Dim TB As CommandBar Dim TBNum As Integer Dim mySheet As Worksheet Set mySheet = Sheets("ورقة1") Application.ScreenUpdating = False mySheet.Cells.Clear TBNum = 0 For Each TB In CommandBars If TB.Type = msoBarTypeNormal Then If TB.Visible Then TBNum = TBNum + 1 TB.Visible = False mySheet.Cells(TBNum, 1) = TB.Name End If End If Next TB Application.ScreenUpdating = True End Sub كود لاظهار اشرطة الادوات Sub RestoreToolbars() Dim mySheet As Worksheet Set mySheet = Sheets("ورقة1") Application.ScreenUpdating = False On Error Resume Next For Each cell In mySheet.Range("A:A").SpecialCells(xlCellTypeConstants) CommandBars(cell.Value).Visible = True Next cell Application.ScreenUpdating = True End Sub مرفق ملف به الاكواد قنديل.rar

وعليكم السلام استاذ / حسام وطزاك الله خيرا

انشاء ملف Word بنفس القيم الموجودة فى ملف الاكسيل Sub proWord() Dim varDoc As Object Set varDoc = CreateObject("Word.Application") varDoc.Visible = True Sheets("ورقة1").Range("A1:B15").Copy varDoc.documents.Add varDoc.Selection.Paste varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "منتديات اوفيسنا.doc" varDoc.documents.Close varDoc.Quit Application.CutCopyMode = False End Sub جمع اكثر من خلية فى خلية Sub جمع() Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9")) End Sub جمع عمود فى خلية Sub جمع_عمود() Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4")) End Sub تحديد مجموعة خلايا Sub شكلبيضوي8_نقر() Range("A1:G5").Select End Sub مرفق ملف به كل الاكواد 123.rar

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

اخى العزيز طبقا للقرار 313 تحتسب نسبة النجاح فى المادة على امتحان نهاية الترم بشرط حصول الطالب على نسبة 30% من الدرجة اى فى الصفوف الاولى من الصف الاول الى الثالث ( درجة المواد : عربى - رياضيات - انجليزى - دين ) الدرجة 30 ونسبة ال 30% 9 درجات فى الصفوف الرابع والخامس ( درجة المواد : عربى - رياضيات - دراسات - انجليزى - دين ) الدرجة 40 ونسبة ال 30% 12 درجة اما درجة العلوم من 32 ونسبة ال 30% 9.6 وتسلم النتيجة الى الادارات التعليمية على كشف الرصد بما فيه الناجحون والراسبون معا بالنسبة لنصف العام اما فى اخر العام فتسلم كشوف للناجحين وكشوف للراسبين كل على حدة وفى الصف الاول والثانى يعامل الراسب على اساس انه ناجح بحكم القانون ويكتب على كشف الراسبين فى الصفين الاول والثانى راسب وناجح بحكم القانون