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

استخدم هذا الكود بدل الموجود في زر الطباعة ....... DoCmd.OpenReport "print1", acViewNormal, , "[رقم أمر العمل]=" & Forms![نموذج1]![rr]

ممتاز ثبتها و جرب الكود استبدل الكود بالتالي Public Function importExcel(Tablename As String, FilePath As String) Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim intLine As Long Dim strSqlDml As String Dim strColumn1 As String, strColumn2 As String, strColumn3 As String Set xlApp = New Excel.Application xlApp.Visible = False Set xlWb = xlApp.Workbooks.Open(FilePath) Set xlWs = xlWb.Worksheets(1) intLine = 2 'سيتم استيراد الصفوف بدء من الصف رقم 2 Do strColumn1 = Trim(xlWs.Cells(intLine, 1).Value) 'رقم 1 يعني العمود رقم 1 في ملف الاكسل strColumn2 = Trim(xlWs.Cells(intLine, 2).Value) 'رقم 2 يعني العمود رقم 2 في ملف الاكسل strColumn3 = Trim(xlWs.Cells(intLine, 3).Value) 'رقم 3 يعني العمود رقم 3 في ملف الاكسل strSqlDml = "INSERT INTO [" & Tablename & "] VALUES('" & strColumn1 & "', '" & strColumn2 & "', '" & strColumn3 & "')" CurrentDb.Execute strSqlDml, dbFailOnError xlWs.Cells(intLine, 1).Select intLine = intLine + 1 Loop Until IsEmpty(xlWs.Cells(intLine, 1)) xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing End Function

ارفق مثال لكي يتم التعديل عليه او اتبع الطريقة التالية اولا ارفق استدعي المكتبة التالية ثانيا / الصف الكودي التالي في اي مكان داخل المحرر Public Function importExcel(Tablename As String, FilePath As String) Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim intLine As Long Dim strSqlDml As String Dim strColumn1 As String, strColumn2 As String, strColumn3 As String varfile = FilePath Set xlApp = New Excel.Application xlApp.Visible = False Set xlWb = xlApp.Workbooks.Open(varfile) Set xlWs = xlWb.Worksheets(1) intLine = 2 'سيتم استيراد الصفوف بدء من الصف رقم 2 Do strColumn1 = Trim(xlWs.Cells(intLine, 1).Value) 'رقم 1 يعني العمود رقم 1 في ملف الاكسل strColumn2 = Trim(xlWs.Cells(intLine, 2).Value) 'رقم 2 يعني العمود رقم 2 في ملف الاكسل strColumn3 = Trim(xlWs.Cells(intLine, 3).Value) 'رقم 3 يعني العمود رقم 3 في ملف الاكسل strSqlDml = "INSERT INTO [" & Tablename & "] VALUES('" & strColumn1 & "', '" & strColumn2 & "', '" & strColumn3 & "')" CurrentDb.Execute strSqlDml, dbFailOnError xlWs.Cells(intLine, 1).Select intLine = intLine + 1 Loop Until IsEmpty(xlWs.Cells(intLine, 1)) xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing End Function و في ازرار استيراد البيانات الصق الكود التالي Dim Addfile As Object: Set Addfile = Application.FileDialog(3) With Addfile: .Filters.Add "All Files", "*.xlsx" If .Show = True Then ' Call importExcel("Table Name", "File Path") Call importExcel("tb1", Trim(.SelectedItems(1))) End if End With

نعم تفضل >>>>>>>>>>>>>>>>>> M_L - Copy.mdb

العفو اخي الكريم و تحت امرك و الأمر كله لله

تفضل هذا التعديل استبدل المعيار بالتالي IIf([العام الدراسي]=7;8;7) school.accdb

اخي شاهد المرفق tarhil.xlsm

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

اتفضل يا سيدى لا تنسى وضع افضل اجابة وهذه هى الاكواد المستخدمة Dim CalcAge As String Public Function IDData(IDNumber As Variant, Optional stype As Integer = 1) As Variant If IsNull(IDNumber) Or IDNumber = "" Or IDNumber = "" Or IDNumber = Empty Or IDNumber = vbNullString Or Len(IDNumber) = 0 Then IDData = "" Exit Function ElseIf Len(IDNumber) < 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1589") & ChrW("1594") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Len(IDNumber) > 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1603") & ChrW("1576") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsNumeric(IDNumber) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1604") & ChrW("1575") & ChrW("1576") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1571") & ChrW("1585") & ChrW("1602") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1602") & ChrW("1591") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsDate(Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd")) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1578") & ChrW("1575") & ChrW("1585") & ChrW("1610") & ChrW("1582") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1610") & ChrW("1604") & ChrW("1575") & ChrW("1583") & ChrW("32") & ChrW("41") Exit Function Else If stype = 1 Then Dim DateOfBirth As Date: DateOfBirth = Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd") IDData = DateOfBirth Dim strYear As String: strYear = ChrW("1587") & ChrW("1606") & ChrW("1607") Dim strMnth As String: strMnth = ChrW("1588") & ChrW("1607") & ChrW("1585") Dim strDy As String: strDy = ChrW("1610") & ChrW("1608") & ChrW("1605") CalcAge = CalcAgeY(DateOfBirth, Date) & " " & strYear & " " & "," & CalcAgeM(DateOfBirth, Date) & " " & strMnth & " " & "," & CalcAgeD(DateOfBirth, Date) & " " & strDy ElseIf stype = 2 Then Dim strRegionCode As String: strRegionCode = Mid(IDNumber, 8, 2) Select Case strRegionCode Case Is = "01": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1575") & ChrW("1607") & ChrW("1585") & ChrW("1577") Case Is = "02": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1603") & ChrW("1606") & ChrW("1583") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Is = "03": IDData = ChrW("1576") & ChrW("1608") & ChrW("1585") & ChrW("1587") & ChrW("1593") & ChrW("1610") & ChrW("1583") Case Is = "04": IDData = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1587") Case Is = "11": IDData = ChrW("1583") & ChrW("1605") & ChrW("1610") & ChrW("1575") & ChrW("1591") Case Is = "12": IDData = ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1602") & ChrW("1607") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "13": IDData = ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1585") & ChrW("1602") & ChrW("1610") & ChrW("1577") Case Is = "14": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1604") & ChrW("1610") & ChrW("1608") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "15": IDData = ChrW("1603") & ChrW("1601") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1610") & ChrW("1582") Case Is = "16": IDData = ChrW("1575") & ChrW("1604") & ChrW("1594") & ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "17": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1610") & ChrW("1577") Case Is = "18": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1610") & ChrW("1585") & ChrW("1577") Case Is = "19": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1605") & ChrW("1575") & ChrW("1593") & ChrW("1610") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "21": IDData = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1610") & ChrW("1586") & ChrW("1577") Case Is = "22": IDData = ChrW("1576") & ChrW("1606") & ChrW("1610") & ChrW("32") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1601") Case Is = "23": IDData = ChrW("1575") & ChrW("1604") & ChrW("1601") & ChrW("1610") & ChrW("1608") & ChrW("1605") Case Is = "24": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1610") & ChrW("1575") Case Is = "25": IDData = ChrW("1571") & ChrW("1587") & ChrW("1610") & ChrW("1608") & ChrW("1591") Case Is = "26": IDData = ChrW("1587") & ChrW("1608") & ChrW("1607") & ChrW("1575") & ChrW("1580") Case Is = "27": IDData = ChrW("1602") & ChrW("1606") & ChrW("1575") Case Is = "28": IDData = ChrW("1571") & ChrW("1587") & ChrW("1608") & ChrW("1575") & ChrW("1606") Case Is = "29": IDData = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1602") & ChrW("1589") & ChrW("1585") Case Is = "31": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1605") & ChrW("1585") Case Is = "32": IDData = ChrW("1575") & ChrW("1604") & ChrW("1608") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1583") & ChrW("1610") & ChrW("1583") Case Is = "33": IDData = ChrW("1605") & ChrW("1591") & ChrW("1585") & ChrW("1608") & ChrW("1581") Case Is = "34": IDData = ChrW("1588") & ChrW("1605") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "35": IDData = ChrW("1580") & ChrW("1606") & ChrW("1608") & ChrW("1576") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "88": IDData = ChrW("1605") & ChrW("1608") & ChrW("1575") & ChrW("1604") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1582") & ChrW("1575") & ChrW("1585") & ChrW("1580") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1607") & ChrW("1608") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Else: IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1581") & ChrW("1575") & ChrW("1601") & ChrW("1592") & ChrW("1577") & ChrW("32") & ChrW("41") End Select ElseIf stype = 3 Then Dim GenderCode As Long: GenderCode = Mid(IDNumber, 13, 1) Select Case GenderCode Case Is = 1, 3, 5, 7, 9: IDData = ChrW("1584") & ChrW("1603") & ChrW("1585") Case Is = 0, 2, 4, 6, 8: IDData = ChrW("1571") & ChrW("1606") & ChrW("1579") & ChrW("1609") Case Else: IDData = "" End Select ElseIf stype = 4 Then IDData = CalcAge End If End If End Function Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function على اعتبار أن xxx = الرقم القومى IDData(xxx, 1) او IDData(xxx) >>---> تاريخ الميلاد IDData(xxx, 2) >>---> محافظة الميلاد IDData(xxx, 3) >>---> النوع IDData(xxx, 4) >>---> حساب العمر قاعدة بيانات موظفين - (3).accdb

وعليكم السلام-احسنت استاذ أحمد وجعله الله فى ميزان حسناتك , شرفتنا اخى الكريم

فورم اكسل لعرض صور متحركة وتحميل وأظهار عارض الصور الثلاثية الجزء الاول صور

فورم تشغيل الصور الثلاثية وجولة حول العالم ومصر فى الاكسل الجزء الثالث

تفضل >>>>>> M_L - Copy.mdb

لأن نوع العمود رقمي و يأخذ قيمته من جدول العام الدراسي بناء على كود العام نصيحة لك استبدل نوع العمود و اجعله نصي لكي يسهل العمل عليه تفضل هذا التعديل كما تريده تماما بعد تغيير نوع عمود السنة الدراسية school.accdb

تفضل التعديل sa1.1.zip

تكون بهذا الشكل iif([العام الدراسي]="2021/2022";"2022/2023";"2021/2022")

تفضل هذا التعديل DateVal.mdb

فورم تشغيل الصور الثلاثية واستخدام الرسم فى الاكسل الجزء الثانى الصورة

ممتاز استاذ مجدى جزاك الله خير الثواب , اللهم وسع فى رزقك

شكرا استاذ محمد لمتابعتك . لكن لاحظت انك قد غيرت فى id جتى لا يكون هناك تكرار .. لكن قد يكون للشخص الواحد اكثر من سجل.

تفضل .... 2.accdb

دا انتو بتاخدو ملايين .. واحنا ياحبة عيني ...بناخد ملالييم 😂😍

وعليكم السلام-من فضلك عليك بمعرفة ودراسة المعادلة بتفسك وان لا تغير المدى بها وعليك ان تتأكد انها تبدأ من الصف الرابع وليس العاشر كما قمت انت بتغييرها.وشكراً =SUMIF(مشتريات!$C$4:$C$585,مخزن!A3,مشتريات!$D$4:$D$585)-SUMIF(مبيعات!$C$4:$C$582,مخزن!A3,مبيعات!$D$4:$D$582) اسعار المنتجات فاتورة2.xls

السلام عليكم ورحمة الله وبركاته اسعد الله ايامكم بكل خير مرق لكم ملف اكسل لاحتساب توزيع مصروف تجديد اقامات الموظفين نسبه الى مدة تجديد الاقامة " خاص بالشركات التى يعمل بها موظفين من غير المواطنين " جاهز للاستخدام اتمني ان يعم النفع على الجميع . شكر لكم على مروركم الكريم Iqama Renewl.xlsx ايضا يوفر الملف معرفة تاريخ انتهاء اقامات الموظفين بتنبيه بالالوان

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

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

وعليكم السلام-تفضل لك ما طلبت ... على الرغم ان ما طلبته ليس بالسهل او الهين فهى أكواد فورم كاملة لم تقم بعمل اى كود منها ,, ويجب عليك استكمال أسعار المنتجات لحسن عمل الفورم !!!! ثلاث قوائم.xlsm

السلام عليكم -يمكنك استخدام هذه المعادلة لذلك =SUMIFS($D$6:$D$200,$C$6:$C$200,$G7,$B$6:$B$200,">="&$H$6,$B$6:$B$200,"<="&$I$6) Sumifs.xls

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

وعليكم السلام-وذلك ببساطة لأنك لم تقم بتثبيت الجزء الأول والأخير من معادلة المخزن .. بمعنى لابد ان تكون بهذا الشكل حتى لا يتغير المدى كلما سحبت لأسفل اى وضع مدى المعادلة بين علامتين $ =SUMIF(مشتريات!$C$4:$C$579,مخزن!A3,مشتريات!$D$4:$D$579)-SUMIF(مبيعات!$C$4:$C$581,مخزن!A3,مبيعات!$D$4:$D$581) اسعار المنتجات فاتورة1.xls

تفضل التعديل سيتم انشاء مجلد بإسم (ملفات الأفراد) و سيتم انشاء مجلدات داخل مجلد ( ملفات الأفراد ) برقم الملف و سيتم انشاء مجلدات حسب القائمة داخل كل مجلد برقم الملف بالإسم حسب القائمة sa1.0.zip

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

وبدون أكواد لا توجد سوى هذه الطريقة كما بالصورة , من قائمة Home

تفضل Sub Test() ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit End Sub أو يمكنك استخدام هذا الكود أيضاً Option Explicit Sub Auto_Fit() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets sh.Columns.AutoFit sh.Rows.AutoFit Next sh End Sub مثال.xlsm

تفضل استعمل هذا الكود في حدث عند الضغط لزر تحديد جميع الحقول: Dim i As Integer If Me.تدقيق34 = True Then For i = 0 To Box.ListCount - 1 Box.Selected(i) = True Next i Else For i = 0 To Box.ListCount - 1 Box.Selected(i) = False Next i End If

كودان احدهما لمعاينة الطباعه والآخر لمعاينة الطباعة مع امكانية الطباعه بارك الله لنا ولكم آمين معاينة طباعة.rar معاينة طباعة مع امكانية الطباعه.rar

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

السلام عليكم و رحمة الله وبركاته =B3