عبدالله بشير عبدالله

اذا اردت الاسماء قي الصف الثالث بدل 5 الى3 ثم عدل في السطر بدل 6 الى 4 اما اذا اردت الصف الرابع بدل 5 الى4 وبدل 6 الى 5 اتمنى ات يكون الامر واضح تحياتي

السلام عليكم جزاك الله خيرا على دعائك جرب التعديل في المرفق وان لم يكن الامر هو المطلوب فاعذرنى قال توقف تفكيري وتركيزي ياريته معاي توقف وبس مش لاقيه خالص تحياتي sample.xlsb (1) (1).xlsm

وعليكم السلام ورحمة الله وبركاته الحل بطريقتان اولا الكود Sub FillNamesInColumnN() Dim ws As Worksheet, lastRow As Long, rowIndex As Long, colIndex As Long, names As String Set ws = ThisWorkbook.Sheets("ورقة1") For colIndex = 2 To 13 lastRow = Application.Max(lastRow, ws.Cells(ws.Rows.Count, colIndex).End(xlUp).Row) Next colIndex For rowIndex = 6 To lastRow names = "" For colIndex = 2 To 13 If ws.Cells(rowIndex, colIndex).Value <> "" Then names = names & IIf(names = "", "", " - ") & ws.Cells(5, colIndex).Value End If Next colIndex ws.Cells(rowIndex, 14).Value = names Next rowIndex MsgBox "تمت العملية !", vbInformation End Sub الثاني بالمعادلات =TRIM(IF(B8<>"";B$5;"") & IF(C8<>"";"- " & C$5;"") & IF(D8<>"";" - " & D$5;"") & IF(E8<>"";" - " & E$5;"") & IF(F8<>"";" - " & F$5;"") & IF(G8<>"";" - " & G$5;"") & IF(H8<>"";" - " & H$5;"") & IF(I8<>"";" - " & I$5;"") & IF(J8<>"";" - " & J$5;"") & IF(K8<>"";" - " & K$5;"") & IF(L8<>"";" - " & L$5;"") & IF(M8<>"";" - " & M$5;"")) المعادلة طويلة ربما يكون اصدار الاكسل لديكم قديم فالكود او المعادلة تتماشى مع الاصدارات القديمة وكذلك الحديثة الملف وبه الطريقتان DATA1.xls

وعليكم السلام ورحمة الله وبركاته الفاضل / ابو سجده الكود الخاص بك لم اغير فيه شي الكود الجديد يتم استدعائه في تهاية الكود الخاص بك مكان التوقيعات يظهر هكذا .Value = "Third signature Second signature First signature" يمكنك نغييره للغة العربية او تركه فارغا بلالتعديل في الكود sample.xlsb (1).xlsm لك كل التقدير والاحترام استاذنا

يالرغم اننا لا نعلم اصدار الاكسل لديك ولكن الملف المرفق به كود للاصدار القديم 2003 فنا فوق وتم حفظه شيت .xls لينعامل مع الاصدار 2003 فكرة الكود الكود اذا كانت L6 و N6 فارغتان ينم طباعة كل الاستمارات اذا تم تحديد الخليتين مدى معين لعدد معين من الطلبة يتم طباعة المحدد فقط مع عدم المساس بالمعادلات الموجودة بلالاستمارة اعلمنى بالنتائج بعد التجربة شيت نتيجة.xls

السلام عليكم جرب الملف تعديل كود.xlsm

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

السلام عليكم يالرغم من عدم وضوح الطلب لعدم اكنمال الجدول افترضت بيانات كما في ورقة2 قائمة الاسماء والتاريخ يتم انشائها بالكود حسب ما هو موجود الملف المصنف1.xlsb

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك اليك الملف مثال (1).xlsm

اخي العزيز إضافة العمود المساعد لتحسين قابلية التعامل مع البيانات باستخدام المعادلات العادية (بدلاً من الصفيفية). عندما نريد تصفية البيانات (مثل ملفك)، يمكننا استخدام معادلات مثل INDEX وMATCH لتحديد الصفوف المطلوبة. ومع ذلك، هذه المعادلات تحتاج إلى طريقة لمعرفة الصفوف التي تحقق الشرط. العمود المساعد يعمل كـ "علامة" تحدد الصفوف التي تحقق الشرط (J9 < D2) وتُظهر رقم الصف الخاص بها. وإذا لم يتحقق الشرط، يُظهر العمود قيمة فارغة ("") القيم الموجودة في العمود X هي رقم الصف الذي ينحقق به الشرط في D2 طبعا يمكن الاستغناء على العمود المساعد باستخدام معادلات صفيفية أو حلول برمجية (مثل VBA) والعمود المساعديساعد على تحسين الأداء في النسخ القديمة من Excel مثل 2010 النسخ الحديثة 2019 وما فوق يمكن استخذام دالة FILTER وحقيقة انا لا املك في جهازي الا اصدار 2016 فلا يمكننى التجربة واخير يبقى الكود افضل مم سبق دكره واسرع ويمكن ان يكون تلقائيا بدون زر اليك ملف به حلات اخران الاول بمعادلات عادية بدون عمود مساعد والاخ على اليسار بالمعادلات الصفيفية 1شيت.xlsx حل اخر ويعنبر افضلهم بدون معادلات وبدون زر .عند الكنابة في D2 تتم الفلترة للدرجات ولا تنسى تمكين الماكرو شيت1.xlsb اتمنى فيما دكر بعض الفائدة نحياتي

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

السلام عليكم بالدوال عن طريق عمود مساعد في X شيت.xlsx او كود شيت.xlsb

وعليكم السلام ورحمة الله وبركاته طريقتان واختاري ما يتاسبك الاولى ان يكون الملفان مفتوحان في نفس الوقت ونفس المجلد وبنفس الاسم تحديث عدد الطلاب2 ( يمكن تعديله من الكود) ملف الطلاب الاصل.xlsb الثانية الملف مقفول وبأي اسم بمعنى عند الضغط على زر تحديث البيانات تظهر واجهة نخنار الملف المراد اخد البيانات منه ملف الطلاب الاصل2.xlsb اتمنى ان يكون طلبك في احد الملفين لك كل التقدير والاحترام

وعليكم السلام ورحمة الله وبركاته الكود Sub تجميع_البيانات() Dim wsSummary As Worksheet Dim ws As Worksheet Dim lastRow As Long Dim summaryLastRow As Long Dim dataRange As Range On Error Resume Next Set wsSummary = ThisWorkbook.Sheets("ملخص") On Error GoTo 0 If wsSummary Is Nothing Then Set wsSummary = ThisWorkbook.Sheets.Add wsSummary.Name = "ملخص" End If wsSummary.Rows("3:" & wsSummary.Rows.Count).ClearContents summaryLastRow = 3 For Each ws In ThisWorkbook.Sheets If ws.Name <> wsSummary.Name Then lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If lastRow >= 3 Then Set dataRange = ws.Range("A3:Q" & lastRow) wsSummary.Cells(summaryLastRow, "A").Resize(dataRange.Rows.Count, dataRange.Columns.Count).Value = dataRange.Value summaryLastRow = summaryLastRow + dataRange.Rows.Count End If End If Next ws MsgBox "تم تجميع البيانات !", vbInformation End Sub الملف Book1.xlsb

جرب التعديل التالي توجد ورقة مخفية يتم نسخ البياتان اليها ومنها يتم تحويل الى PDF ترحيل بدون تنسيق شرطي.xlsb

وعليكم السلام ورحمة الله وبركاته الفكرة انشاء ملف جديد غير مرئي يتم فيه لصق البيانان ثم ازالة التنسيق الشرطي منه ثم التحويل الى PDF ثم يتم حذق الملف بدون المساس بالتنسيق الشرطى للملف الاصل كل ما سبق عن طريق كود ترحيل بدون تنسيق شرطي.xlsb

السلام عليكم dashboared موضوع يحناج الى من يتقن اعداد الجدوال بالاكسل مثل جدول الموظفات الجدد في صفحة وجدول المواضيع في صفحة وجدول الاجتماعات في صفحة واستخدام معادلة COUNTIF لحساب عدد الموظفات وعدد المواضيع المفعلة وغيرها ثم بانشاء صفحة داش بورد والتي تتطلب منك اتقان الرسوم البيانية والجداول المحورية والتي يكون مصدر بياناتها الصفحات الاخري عند النغيير في اي بيان في الصفحات يتم تغييره تلقائيا في الرسوم البيانية والجداول المحورية ابحثى في اليوتيوب به الكثير من الدروس هذا احداها اليك ملف يمكنك التعديل عليه dashboared.xlsx

وعليكم السلام ورحمة الله وبركاته جرب الملف حيث يتم انشاء مجلد في نفس مسار الملف 20244شيت مدرستى الصف السادس.xls

السلام عليكم قم بتفعيل الماكرو الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$2" Then Dim wsReport As Worksheet Dim wsSearch As Worksheet Dim lastRow As Long Dim i As Long Dim searchDate As Date Set wsReport = ThisWorkbook.Sheets("REPORT") Set wsSearch = ThisWorkbook.Sheets("Search2") searchDate = wsSearch.Range("G2").Value wsSearch.Range("B4:G1000").ClearContents lastRow = wsReport.Cells(wsReport.Rows.Count, "D").End(xlUp).Row Dim rowIndex As Long rowIndex = 4 For i = 2 To lastRow If wsReport.Cells(i, "D").Value = searchDate Then wsSearch.Cells(rowIndex, "B").Value = rowIndex - 3 wsSearch.Cells(rowIndex, "C").Value = wsReport.Cells(i, "G").Value wsSearch.Cells(rowIndex, "F").Value = wsReport.Cells(i, "J").Value wsSearch.Cells(rowIndex, "D").Value = wsReport.Cells(i, "I").Value wsSearch.Cells(rowIndex, "E").Value = wsReport.Cells(i, "H").Value rowIndex = rowIndex + 1 End If Next i End If End Sub New Microsoft Excel Worksheet (1).xlsb

وعليكم السلام ورحمة الله وبركاته شاهد المرفق حدد اي المعادلتين المطلوبة في العمود V او X Track.xlsb

السلام عليكم بالنسبة للشهر والسنة يمكنك الاخنيار من القائمة ووكلما اضفت شهرا جديدا يتم اظافته تلقائيا الى القائمة ويتم احضاره الى التقرير جرل الملف وان كان هناك ملاحظات اذكرها attedance report (1).xlsb

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

السلام عليكم دالة countif مضافاً إليها دالة max ضعها في a2 ثم اسحبها للاسفل =IF(COUNTIF($B$2:B2; B2)=1; MAX($A$1:A1)+1; "") ملف ترقيم بتجاوز المكرر.xlsx

وعليكم السلام ورحمة الله وبركاته ="D:\الهويات\Pictures\" & ROW(A1) & ".jpg" ثم لسحب للاسفل ويمكنك نسخها ولصقها كقيم يعد ذلك New Microsoft Excel Worksheet.xlsx

كان من المفترض تجهيز الملف بحيث الاسماء لا تتكرر في الفروع الثلاتة ولا رقم الموظف وان فرضنا ان الموظف يعمل في اكثر من فرع فاليوم ووقت العمل يفترض ان يكون مختلف في شيت Employee لاحظت بداية الوقت 8 صباحا ونهاية الوقت 6 صباحا بمعنى العمل 22 ساعة هل هذا صحيح ام ان البيانات عشوائية على العموم جرب الملف وضع فيه بيانات واقعية وقم بتجربته باقى المطالب بعد التأكد مراجعنك للملف وابداء اي ملاحظات attedance report (1).xlsb