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

ما السبب الذي يجعلك تحتاج إلى كود يقوم بهذه الوظيفة طالما أن الدالة مدعومة في جميع إصدارات الاكسل؟ نحتاج إلى تحويل الدالة إلى كود vba في حالة كونها دالة جديدة في اصدار جديد ونريد استعمال مميزاتها في الإصدارات القديمة مثل دالة textjoin مثلا اللهم إلا إذا كنت تقصد طريقة استعمالها داخل vba وفي هذه الحالة يمكنك استخدام هذه الطريقة مع تغيير المرجع والشرط كما تريد Application.WorksheetFunction.CountIf(Range("D2:D9"), ">5") بالتوفيق

غياب الجمعة عطلة غياب عدا الجمعة.xlsm

السلام عليكم ورحمة الله وبركاته .. هذا أول درس مصور لي في برنامج الأكسس .. أعتذر عن طول مدته ورداءة الصوت ، لقلة خبرتي في تسجيل الدروس .. ولكن أحببت مشاركتكم بعض المهارات التي تعلمتها واكتسبتها منكم .. وأسعد جدا بسماع نصائحكم وتوجيهاتكم الطيبة .. 🌹🌹 وأتمنى ألا يكون فيه ما يخالف قوانين منتداكم الطيب .. هذا رابط الدرس : رابط ملف الشرح في المرفقات تحياتي القلبية لكم .. أخوكم موسى الكلباني البحث بين تاريخين.accdb

السلام عليكم انا بحاجة الى كود يعمل مثل ما تقوم به دالة (COUNTIF)

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

التعديل في الاستعلام داخل التقرير في حقل التاريخ

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

تفضل التعديل DATA1041-5.mdb

😂بصراحة صارلي اسبوع لم ادخل للمنتدى بسبب ظرف خاص ... والا ستكبر في دماغي

جرب كده ..... asd.accdb

أسعدك الله في هذه الساعات المباركات، وسلمك وأغناك ومن كل سوء حماك،، روعة الرد أنك تعدل على نفس المثال، وتسهل الوصول للمعلومة.. سهل الله لك كل عسير،،

نعم, كما هو مطلوب أستاذي محمد صالح اصبت. جزاك الله خيرا.

تفضل ...... DoCmd.ApplyFilter , "[RQ_CreateDate]=#" & Format(Me.TBDate, "mm/dd/yyyy") & "#"

الحل السريع وضع كود تجاوز الأخطاء أولاً: On Error Resume Next بحيث يصبح الكود في النهاية هكذا: Sub MergeCell() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'ضبط الحقل تباعد صغير Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub

كلمة الإبداع قليلة،، لك صادق الدعوات في هذا اليوم المبارك،، بارك الله لك في أهلك ومالك وولد وفرج همك وغمك،، سلمت كتب الله أجرك

قمت بإضافة السطر التالي المتعلق بضبط الحقل تباعد صغير: Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow وهذا هو الكود كاملاً: Sub MergeCell() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'ضبط الحقل تباعد صغير Tbl.Cell(i, 3).Range.ParagraphFormat.Alignment = wdAlignParagraphJustifyLow 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub لا تنساني من دعواتك الطيبة المباركة

ما شاء الله تبارك الله ،، إبدااااااع يا مبدع،، جدًا رائع،، طلب أخير نلاحظ بعد الدمج يجعل الضبط على التوسيط هل بالإمكان أن يكون على ضبط تباعد صغير

Private Sub UserForm_Initialize() Rem 1 = Second Column In ListBox Const cToSum As Integer = 1 Dim arr(1 To 6, 1 To 3) As String, i As Long, j As Long, t As Long, d As Double For i = 1 To 6 For j = 1 To 3 t = Application.WorksheetFunction.RandBetween(-1, 1) If t = 0 Then t = 1 arr(i, j) = i * j * t Next j Next i With ListBox1 .Clear .ColumnCount = UBound(arr, 2) .List = arr() End With With ListBox1 For i = 0 To .ListCount - 1 If .List(i, cToSum) > 0 Then d = d + .List(i, cToSum) Next i TextBox1.Value = d End With End Sub

لك حلان * أسهلهما استعمال sumifs لحساب مجموع الخلايا في الشيت والتي تنطبق عليها شروط العرض في القائمة وأيضا أكبر من صفر. * والحل الثاني أثناء تعبئة القائمة بالعناصر items يمكن إنشاء متغير وليكن mysum لجمع القيم التي فوق الصفر من العمود المطلوب السؤال نظري بدون ملف ولذلك الإجابة نظرية بالتوفيق

اجعل مصدر التقرير استعلام واعمل في الاستعلام هذه الحقول والدوال هذا اذا كنت تريد تنتقي من الاعمدة للتصدير ، والا انت مضطر لتصدير التقرير كاملا

ممكن ترفق لنا هذا التقرير كعينة للعمل عليه ؟؟؟؟

Sub Test() Dim r As Range, c As Long Application.ScreenUpdating = False With ActiveSheet Set r = .Range("L4:L" & .Cells(Rows.Count, "L").End(xlUp).Row) c = .Cells(4, Columns.Count).End(xlToLeft).Column + 1 .Cells(4, c).Resize(r.Rows.Count).Value = r.Value End With Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته آمين وإياكم أولاً: ما كرو حذف الترويسة من الجدول: Sub DeleteHeader() Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables Tbl.Rows(1).Delete Next MsgBox ("تمت عملية حذف ترويسة الجدول لكل الجداول في المستند الحالي") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub ثانياً: ماكرو فحص خانة العمل الفارغة ودمجها بخانة الاسم: Sub MergeCell() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table If ActiveDocument.Tables.Count > 0 Then For Each Tbl In ActiveDocument.Tables For i = 1 To Tbl.Rows.Count If Len(Tbl.Cell(i, 3).Range.Text) < 3 Then 'إذا كان طول الخلية أقل من 3 محارف فهذا يعني أنها فارغة 'بدء عملية الدمج Set Rng = Tbl.Cell(i, 2).Range Rng.End = Tbl.Cell(i, 3).Range.End Rng.Cells.Merge End If Next Next MsgBox ("تمت عملية فحص خلايا عمود العمل الفارغة وإجراء ما يلزم من الدمج") Else MsgBox ("لا يوجد ضمن المستند الحالي أي جدول") End If End Sub

وعليكم السلام ورحمه الله وبركاته يمكنك الاستفاده من هذا الموضوع

تم إجراء بعض التعديلات لتتناسب مع المطلوب وهي: كتابة تاريخ 1 في الشهر المطلوب في الخلية c5 وبناء يتم جلب بيانات باقي ايام الشهر وتلوين الجمعة والسبت وكتابة اسم الشهر تلقائيا تم وضع معادلة التصفية الأفقية لجلب تاريخ اليوم المكتوب فيه غ (معادلة مصفوفات) تم وضع معادلة لحساب عدد أيام الغياب بالتوفيق حضور و غياب مع الخلاصة الشهرية.xlsm

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&B1&"'!$B$2") مع نسخ المعادلة بالسحب يمينا حتى M3 بالتوفيق

السلام عليكم ورحمة الله الاخ ABOU ELSAAD يمكنك استخدام الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long Dim a As Integer, b As Integer, d As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then a = WorksheetFunction.Min(ws.Range("A" & x & ":AE" & x)) b = WorksheetFunction.Max(ws.Range("A" & x & ":AE" & x)) ab = b - a + 1 d = WorksheetFunction.Count(ws.Range("A" & x & ":AE" & x)) If ab = d And d > 1 Then Abst = " يوم " & " (" & a & " - " & b & ")" ws.Range("AL" & x) = Abst Else Abst = C.Value & Com & Abst ws.Range("AL" & x) = Left(Abst, Len(Abst) - 1) End If End If Next C Abst = "" x = x + 1 Loop End Sub

Sub Test() Dim a, v, w1 As Worksheet, w2 As Worksheet, dic As Object, s As String, i As Long, m As Long, cnt As Long Set w1 = Sheet1: Set w2 = Sheet2 Set dic = CreateObject("Scripting.Dictionary") a = w1.Range("A4").CurrentRegion.Value For i = 2 To UBound(a) s = a(i, 1) & Chr(2) & a(i, 2) & Chr(2) & a(i, 3) dic(s) = Empty Next i With w2 For i = 5 To .Cells(Rows.Count, 1).End(xlUp).Row s = Empty s = .Cells(i, 1) & Chr(2) & .Cells(i, 2) & Chr(2) & .Cells(i, 3) If Not dic.Exists(s) Then m = w1.Cells(Rows.Count, 1).End(xlUp).Row + 1 v = Split(s, Chr(2)) w1.Range("A" & m).Resize(1, 3).Value = v cnt = cnt + 1 End If Next i End With If cnt > 0 Then MsgBox "New Items Added = " & cnt, 64 Else MsgBox "No New Items", vbExclamation End Sub

بعد إذن أخي الكريم @ابراهيم الحداد لا نحتاج لعكس الكلام لأنه يظهر الأرقام مقلوبة مثل 13 تظهر 31 وهكذا هذا جهدي المتواضع في هذا المجال Sub AbsDays() Dim ws As Worksheet, C As Range, LR As Long, x As Long Set ws = Sheets("SS") LR = ws.Range("AG" & Rows.Count).End(xlUp).Row For x = 3 To LR ws.Range("AI" & x) = "" For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then ws.Range("AI" & x) = ws.Range("AI" & x) & IIf(ws.Range("AI" & x) = "", "يوم ", " و") & C.Value Next C : Next x MsgBox "Done by mr-mas.com" End Sub بالتوفيق ترحيل أيام الغياب.xlsb

السلام عليكم ورحمة الله استخدم الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long, y As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then Abst = Abst & C.Value & Com ws.Range("AL" & x) = StrReverse(Left(Abst, Len(Abst) - 1)) End If Next C Abst = "" x = x + 1 Loop End Sub

هذا المطلوب لا يتم بالمعادلات لابد من تدخل جراحي (vba) يمكنك استعمال هذا الكود في حدث عند التغيير Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 3 And Evaluate("=counta(a3:d3)") = 4 Then lr1 = Cells(Rows.Count, 1).End(3).Row + 1 lr1 = IIf(lr1 < 4, 4, lr1) lr2 = Cells(Rows.Count, 12).End(3).Row + 1 Range("a" & lr1 & ":d" & lr1).Value = Range("a3:d3").Value Range("l" & lr2 & ":o" & lr2).Value = Range("a3:d3").Value Range("a3:c3").ClearContents End If End Sub وهذا ملفك بعد إضافة الكود وتغيير الامتداد 555.xlsb

أخي الكريم اعذرني طريقة تنظيم الملف لا تساعد في الوصول للمطلوب تحتاج أولا إلى استعمال تنسيق الوقت 24 لضبط مواعيد الفترة الثانية وكل المواعيد بعد 12 ظهرا لأنها مثلا تعتبر 12:45 أكبر من 1:00 وأقترح توفير عمودي موعد الحضور في الفترتين وكتابتهم في خليتين أعلى الجدول لأنهم ثابتان طوال الشهر بعد الحصول على مدة التأخير الصحيحة يمكن عمل الشروط الخاصة بالخصم عليها فيما يخصص دقائق التأخير وهذه معادلة مقترحة لحساب تأخير 1 وتأخير 2 بالتوفيق دوام ماهر الغيلي.xlsx

بعض الناس تريد أن تتعلم وبعضهم للأسف يريد الحل جاهزا تم عمل المطلوب بالمرفق بالتوفيق ‏‏برنامج تقييم الزيارات عن بعد للوحدات مكرر - نسخة.xlsb

يمكنك استعمال هذا الكود Sub MoveData22() lr = Sheets("بيانات الموظفين").Cells(Rows.Count, 2).End(3).Row For n = 3 To lr - 1 Sheets("الإحصائية").Cells(n, Sheets("جدول الإجازات").Range("C5") + 4) = Sheets("جدول الإجازات").Range("AN" & n + 6) Next n Range("E9:AI" & lr + 5).ClearContents End Sub مع ملاحظة lr هو رقم آخر صف مكتوب فيه في شيت بيانات الموظفين ورقم العمود في شيت الاحصائية هو نفس رقم الشهر + 4 بالتوفيق

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

أولاً من قواعد المنتدى عدم توجيه المساعدة من شخص بعينه حتى يتسنى لأي عضو المساعدة وممكن أن يساعدك يكون لديه خبرة أكثر منه أو الشخص الذي تم التوجيه إليه عنده ظروف فكل عضو يعمل حسب ظروفه الملف ثقيل جدا وحجمه كان كبير ثانيًا حضرتك قمت بسخ الشيتات ولم تقم بنسخ الماكروهات فتم نسخها وتم عمل ماكرو لترتيب الطلاب على ملف Main وتم عمل كود ترحيل عمود الاسم والنوع من شيت Main إلى شيت تسجيل البيانات وتفعيل زر الترتيب واستدعاء البيانات تم تغيير امتداد الملف لرفعه على المنتدى حيث أن أقصى حجم هو 3 ميجا ممكن بعد تنزيله تقوم بحفظه بتسيق 97-2003 برنامج_التنسيق_الصف_الاول_الاصدار_الرابع.rar

وعليكم السلام -تفضل استاذنا الكريم ياسر خليل ابو البراء على تناول هذا الموضوع من قبل اعتذر منك استاذى الكريم ياسر فليس هناك امكانية فى وضع الرابط هنا ولكن تم وضعه داخل الملف لكى تعم الإستفادة للجميع للإطلاع على هذا الموضوع والإستفادة منه ان شاء الله حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets.xlsm

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله في أحد الموضوعات لأحد الأخوة الأعضاء كان قد طلب كيفية إرسال رسالة بريد إلكتروني (إيميل Email) باستخدام ملف إكسيل واليوم أقدم لكم الطريقة بالتفصيل من الألف إلى الياء ... وإن شاء الله تكون الطريقة ناجحة ومفيدة للجميع الخطوات اللازمة لعمل المطلوب : فتح حساب جديد على الـ Gmail إذا لم يكن لديك حساب وكيفية إنشاء حساب جديد مشروحة بالصور : نقوم بفتح برنامج الـ Outlook من قائمة Start ثم All Programs وندخل بيانات الحساب الذي أنشيء على الـ Gmail .. بهذا الشكل : وأخيراً وبعد عملية إنشاء الحساب وربط برنامج الـ Outlook بحساب الـ Gmail .. نقوم بفتح ملف إكسيل وفي العمود الأول ندخل الإيميلات المراد إرسال بريد إلكتروني لها .. وفي العمود الثاني نكتب اسم صاحب الايميل (اختياري) وفي العمود الثالث نكتب محتوى الرسالة المراد إرسالها .. وهذا هو الكود الذي سيقوم بمهمة إرسال رسائل البريد الالكتروني دفعة واحدة لكل الإيميلات المسجلة لديك .. ملحوظة مهمة جداً : من خلال محرر الأكواد يتم إضافة المكتبة التالية Microsoft Outlook Object Library من القائمة Tools ثم References .. Sub Mail_To_Friends() Dim SendTo As String Dim ToMSg As String Dim I As Integer For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row SendTo = ThisWorkbook.Sheets(1).Cells(I, 1) If SendTo <> "" Then ToMSg = ThisWorkbook.Sheets(1).Cells(I, 3) Send_Mail SendTo, ToMSg End If Next I MsgBox "Done ...", 64 End Sub Sub Send_Mail(SendTo As String, ToMSg As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = SendTo .CC = "" .BCC = "" .Subject = "Hello Officena" .Body = ToMSg .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub وأخيراً إليكم الملف المرفق مطبق فيه الكود وفيه نموذج لشكل ورقة العمل .. ويوجد زر أمر لعملية الإرسال .. وهذا هو الملف تقبلوا وافر تقديري واحترامي كان معكم أخوكم أبو البراء من منتدى أوفيسنا Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.rar

السلام عليكم الاستاذ محمد صالح عمل برنامج مثل الذي عملته انت: جعفر

جزاك الله خيرا التعريفة السابقة

الاربعاء‏، 29‏/12‏/1430هـ الموافق ‏16‏/12‏/2009م بسم الله و الصلاة و السلام على سيدنا رسول الله حماية ملف الإكسل من داخل الملف تحديد اسماء المستخدمين للملف كل مستخدم يدخل للملف بـ باس وورد خاصة به تحديد الصلاحيات للورقة او الأوراق المسموح لهم بدخولها و التعديل فيها عمل سجل للدخول الى الملف يبين الساعة و الوقت للدخول و يبين اذا كانت المحاولة للدخول ناجحة او فاشلة =========== في الملف المرفق عند اغلاق الملف يتم اخفاء كل اوراق العمل في الملف ماعدا الورقة الأولى عند فتح الملف تتم المطالبة برقم الموظف + اسم الموظف + الرقم السري للموظف اذا تطابقة الثلاثة معا وبعد الضغط على زر تسجيل الدخول يتم اظهار الأوراق المحددة اسمائها من ورقة OPTION الموجودة في الملف امام اسم المستخدم المحدد يتم اعادة تشغيل الملف تلقائيا كل ساعة حرصا على تسجيل الدخول مرة اخرى للمستخدم آمل ان يكون به الفائدة للجميع = = = = = = للتجربة تم وضع رقمين و اسمين و ارقامهما السرية في صفحة الدخول حاليا الإسم الأول يفتح جميع اوراق الملف الإسم الثاني يفتح ورقتين محددة من الملف حمابةالملف.rar

أكرمك الله أخي الكريم أيمن علام موضوع استخدام قاعدة بيانات من نوع xml مع صفحات الويب html ما زال يشوبه الكثير من المشكلات التي تخص التكامل مع جميع المتصفحات فما يكون متكاملاً مع انترنت اكسبلورر لا يكون مع فاير فوكس وكذلك كروم وهكذا ولذلك بحثت لك في مقتنياتي عن ملف بسيط جداً يقوم بنفس الغرض ملف فلاش ليس به أي معلومات عن أي مدرسة ( وهذه ميزته) يحل محل صفحة html ولكن يجب معه بعض الأشياء: تسمية ملف xml باسم marks تسمية حقل رقم الجلوس ب الجلوس وكذلك حقل الاسم (بدون همزة) وأي حقول وأعمدة تظهر في الملف باذن الله ويمكنك وضع رابط الفلاش في الصفحة الرئيسية للوصول للنتيجة مباشرة للعلم ليس هذا الفلاش من تصميمي وجزا الله صاحبه خيرا natiga_flash_xml.rar

تفضل أخي الكريم الموقع الكبير لعرض النتائج جاري تعديله ليتناسب مع درج في كل ترم من 100 ما تم عمله على ملف الإكسل الخاص بكم تم تعديل الملف وحذف الأعمدة المخفية وفك دمج الخلايا للوصول للأعمدة المطلوب عرضها في النتيجة تم استيراد الشيت إلى قاعدة بيانات أكسس تم تصدير الجدول طالب كملف xml تم وضع الملف xml بجوار ملف html في نفس المجلد تم تعديل ملف html وإضافة عمودين لنشاط1 ونشاط2 وإضافة التقدير ويمكنك تعديل اسمي في صفحة html وإضافة اسم رئيس الكنترول ومدير المدرسة وكذلك تعديل اسم المدرسة والإدارة والصف natiga_xml.rar

أخي الكريم ايمن إذا كنت تتحدث عن البرنامج الخاص بعرض نتيجة المدرسة على موقع المدرسة بواسطة html و xml فالطريقة تتلخص في تصدير الجدول الذي يحتوي على بيانات ودرجات الطلاب بصيغة xml http://office.micros...P003091293.aspx هذا إذا كان ملف الدرجات أكسس وإذا كان ملف الدرجات إكسل يمكن استيراد ملف الإكسل إلى الأكسس أولا ثم تصدير الجدول إلى xml وتسميته بنفس اسم ملف xml المرفق مع ملف html ووضع الاثنين في مجلد واحد في الموقع أتمنى يكون الأمر اتضح ولكن أنا شخصيا أفضل وهذا هو أصل الموضوع عرض جميع نتائج المدارس في الموقع الأول حتى نتمكن من تفعيل الإحصائيات والمقارنات مما يسهم ولو بقدر يسير في تطوير العملية التعليمية

أخي الكريم الموضوع بسيط جدا ويكمن في تصدير جدول البيانات من الأكسس بصيغة xml ثم وضعها في نفس مسار الملف html كما هو مرفق ستجد ملف قاعدة بيانات وبجوارها ملف xml ناتج عن تصدير الجدول الموجود في قاعدة البيانات أتمنى أن يكون الأمر قد اتضح

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

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

مشاركة بسيطة بالنسبة لموضوع جمع الغياب الذي شارك فيه أخي سالم تم اختصار المعادلة وضبطها لتقبل اي عدد من الأعمدة وليس فقط عمودين =IF(AND(A9="غ",B9="غ"),"غ",SUM(A9,B9)) وطبعا لا يخفى عليكم زيادة عدد الأعمدة في شرط and وفي الدالة sum باستعمال الفاصلة تحياتي للجميع

ياريت مزيد من التوضيح لما يحدث معك فنسخة أوفيس 2010 تعتبر من أروع ما قدمت مياكروسوفت

برجاء توضيح ما تريده بصورة مفصلة أخي قصي حتى يتم تنفيذ ما تريده وبإذن الله لا يوجد في البرمجة مستحيييييييييل