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

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

اطلعت على الملف لا وجود لكلمة TABLE5 في فصل شيفت حسب طلبك الاول والكود لا يظهر اي خطا فما المشكلة اذا

نعم يمكن ذلك السؤال اذا كان الغياب في اكثر من تاريح بمعنى غاب الموظف يوم 14 ويوم 22 اي تاريخ سيتم احضارة

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

وعليكم السلام ورحمة الله وبركاته لم توضح تصفيه البيانات باستخدام الاعمدة BN:BS ام من اعمدة اخرى على كل حال افترضت ان الاعمدة BN:BS هي المعنية بالتصفية وهو الاقرب لقهم الطلب ملاحظة / عدد صفوف جدول الحضور والانصراف غير كافية لعدد الموظفين فقمت بزيادة الصفوف اذا كان هذا طلبك فبها وان كان غير ذلك ارجو كتابة بعض النتائج في الجداول لقهم الطلب تحياتي اليك الحل يكود مراعاة لحجم الملف ECOO (1).xlsb

الأسباب المحتملة: وجود ارتباط خارجي (External Link) داخل الملف يشير إلى ملف اسمه table5.xlsx أو مشابه. صيغة أو دالة مثل VLOOKUP أو INDIRECT أو GETPIVOTDATA تحاول جلب بيانات من ملف خارجي باسم "table5". تم نسخ جدول من ملف آخر وكان مرتبطًا به، والآن Excel يبحث عن الأصل.

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

اولا شكرا لدعاؤك لي ثانيا الكود في الملف السابق يقوم بترتيب الصفحات ذات الارقام وبالتالي ستجد الصفحات الاخرى ذات الحروف وليس الارقام مستثناة وتجدها بجانب بعضها ولكن هناك احتمال الرغبة في استثناء صفخة او صفحات رقمية مثلا تريد استثناء صفخة 4 من الترتيب . هنا سيتم التعديل على الكود باظافة مصفوفة لتجميع الصفخات المستثناة كل ما عليك فعلة هو التعديل في هذا الجزء من الكود حيث اضفت لك صفحات افتراضية في الكود وليس في المصتف مثل "ملخص", "إعدادات", "تعليمات يمكنك تعديلها باي اسم او اظافة صفحات اخرى باي عدد تشاء excludedSheets = Array("الرييييسية", "تجميع", "ملخص", "إعدادات", "تعليمات") اليك الملف بالتعديل ترتيب الصفحات1.xlsm تحياتي

وعليكم السلام ورخمة الله وبركاته اليك الكود Sub ترتيب_الصفخات() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error GoTo ErrorHandler Dim ws As Worksheet Dim dict As Object Dim key As Variant Dim sortedKeys() As Variant Dim i As Long, j As Long Dim temp As Variant Dim excludedSheets As Collection Dim mainSheet As String mainSheet = "الرييييسية" Set excludedSheets = New Collection excludedSheets.Add mainSheet excludedSheets.Add "تجميع" Set dict = CreateObject("Scripting.Dictionary") For Each ws In ThisWorkbook.Worksheets If Not IsInCollection(excludedSheets, ws.Name) Then If IsNumeric(ws.Name) Then dict.Add CLng(ws.Name), ws.Name End If End If Next ws sortedKeys = dict.Keys For i = LBound(sortedKeys) To UBound(sortedKeys) - 1 For j = i + 1 To UBound(sortedKeys) If sortedKeys(i) > sortedKeys(j) Then temp = sortedKeys(i) sortedKeys(i) = sortedKeys(j) sortedKeys(j) = temp End If Next j Next i For i = LBound(sortedKeys) To UBound(sortedKeys) Worksheets(dict(sortedKeys(i))).Move After:=Worksheets(Worksheets.Count) Next i Worksheets(mainSheet).Activate Application.ScreenUpdating = True Application.DisplayAlerts = True ' MsgBox "تم ترتيب " & dict.Count & " ورقة رقمية بنجاح! ", vbInformation Exit Sub ErrorHandler: Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "حدث خطأ: " & Err.Description, vbCritical End Sub Function IsInCollection(col As Collection, item As String) As Boolean Dim obj As Variant On Error GoTo NotInCollection IsInCollection = True obj = col(item) Exit Function NotInCollection: IsInCollection = False End Function ترتيب الصفحات.xlsm

السلام عليكم اليك التعديل المصنف2.xlsm

وعليكم السلام ورحمة الله وبركاتة لم امر بهذه التجربة سابقا فوجهت السؤال الى chatgpt فكانت الاجابة الرابط الذي أرسلته 👇 🔗 https://www.microsoft.com/fr-fr/download/details.aspx?id=10019 هو الرابط الرسمي والآمن من موقع Microsoft لتحميل: Microsoft Visual Basic 6.0 Common Controls (SP6) ويحتوي على ملفات: MSCOMCTL.OCX COMCTL32.OCX وهما المسؤولان عن أدوات مثل ListView، TreeView، ImageList، ProgressBar …إلخ 🧩 الخطوات بالتفصيل (بالفرنسية + توضيح بالعربية) 🪄 1. Télécharger le fichier بعد تحميل الملف من الرابط الرسمي: سيكون اسمه تقريبًا: VisualBasic6-KB896559-v1-FRA.exe 📂 2. Créer un dossier de travail أنشئ مجلدًا مؤقتًا لتضع فيه الملفات المستخرجة من الملف السابق، ⚙️ 3. Extraire le contenu sans installation افتح موجه الاوامر Invite de commandes كمسؤول (Démarrer → cmd → clic droit → Exécuter en tant qu’administrateur) ثم اكتب الأمر التالي (كلّه في سطر واحد 👇): VB6.0-KB896559-v6.1.98.46-FRA.exe /T:C:\VB6Controls /C 📁 4. Vérifier le contenu du dossier اذهب إلى المجلد الذي أنشأته: ستجد بداخله عدة ملفات من بينها: MSCOMCTL.OCX COMCTL32.OCX 🚀 5. Copier les fichiers vers le dossier système حسب نوع نظامك: نوع النظام المجلد الذي تنسخ إليه Windows 32 bits C:\Windows\System32\ Windows 64 bits C:\Windows\SysWOW64\ انسخ الملفين MSCOMCTL.OCX و COMCTL32.OCX إلى المجلد المناسب. 🔧 6. Enregistrer les contrôles (Regsvr32) افتح Invite de commandes كمسؤول مجددًا، ثم نفّذ الأوامر التالية: 👉 على Windows 64 bits: regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX regsvr32 C:\Windows\SysWOW64\COMCTL32.OCX 👉 على Windows 32 bits: regsvr32 C:\Windows\System32\MSCOMCTL.OCX regsvr32 C:\Windows\System32\COMCTL32.OCX ستظهر رسالة: DllRegisterServer dans MSCOMCTL.OCX réussi. وهذا يعني أن التثبيت تم بنجاح ✅ 🧰 7. Vérifier dans Excel 2013 افتح Excel اضغط Alt + F11 لفتح محرر VBA اختر Outils → Contrôles supplémentaires... فعّل الخيار: ✅ Microsoft Windows Common Controls 6.0 (SP6) اضغط OK الآن يمكنك استخدام ListView, TreeView, ImageList, إلخ.

السلام عليكم خسب المثال المرفق يبدو أنك تريد دالة للتقريب إلى أقرب 0.1 (أعشار)، وليس معادلة باقي القسمة (mod) التي تعمل عادة مع الأعداد الصحيحة. =CEILING(A2; 0.1) =ROUNDUP(A2*10;0)/10 تقريب.xlsx

وعليكم السلام ورحمة الله وبركاته =IFERROR(AGGREGATE(15;6;A4:A30;ROW($A$1));"") السبب الرئيسي هو أن ROW($A$1) ثابت دائماً وكذلك النطاق يجب ثتبيته بحيث لا يتغير عند السحب ليصبح A$4:A$30 بدل A4:A30 ولحل المشكلة اختر احدى المعادلات =IFERROR(AGGREGATE(15;6;A$4:A$30;ROW(A1)-ROW(A$1)+1);"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1:A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A4)-ROW($A$4)+1);"") اليك الملف وبه تطبيق المعادلات الاربعة السابقة ntega_elec_new.xlsb

السلام عليكم ورحمة الله وبركاته تحية لك ولاستاذنا ابو عيد اعتقد وحسب فهمى لطلبك انك تريد استدعاء البيانات من شيت mg_elec الى شيت ntega حسب الاختيار من W3 فاذا كان هذا طليك اليك الملف وان كان غير ذلك ارجو مزيد من التوضيح لكما ولاحبائنا بالمنتدى كل التقدير والاحترام ntega1_elec_new.xlsb

وعليكم السلام ورحمة الله وبركاته الكود به مشكلتان الاولى اسم الشيت بدل Sheet30 يكون Sheets("Sheet30") الثانية اسم الليبل بدل Label3 يكون Label4 اليك الملف وبه التعديل MAM2.xlsm

السلام عليكم اجمالي المبكر الدقائق والتي بعلامة -00:00 وايضاً الدقائق المتاخره بكود TRIP_01 (1) (2).xlsb

السلام عليكم جرب الملف TRIP_01 (1) (2).xlsx

السلام عليكم ورحمة الله وبركاته اللست فيو عادة يكون من ضمن مكونات الاكسل ويتم تفعيلة فتح محرر VBA. من القائمة العليا اختر: Tools → References. ابحث عن المكتبة التالية: ✅ Microsoft Windows Common Controls 6.0 (SP6 إن لم تجدها في نافذة الـ UserForm، اضغط بزر الماوس الأيمن على صندوق الأدوات (Toolbox). اختر: Additional Controls... مرّر للأسفل حتى تجد: ✅ Microsoft ListView Control, version 6.0 (SP6) ضع ✔ بجانبها، ثم اضغط OK. الآن ستظهر الأداة ListView في صندوق الأدوات، ويمكنك سحبها إلى الـ UserForm. اليك ملف به الاداة اكسل 2016 لست فيو.xlsb

السلام عليكم ورحمة الله وبركاته ساقدم لك ملف خسب ما فهمته من ردك راجع الملف واذا كانت هناك قيم غير صحيحة فقم بارفاق جدول به القيم الصحيحة يدويا وبدون معادلات للراتب والسلفيات لعدد 3 او 4 اشخاص اليومية (2).xlsm

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

وعليكم السلام ورحمة الله وبركاته المشكلة الرئيسية هي في منطق البحث البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4 الإزاحة (offset) غير صحيحة عند استخراج القيم اليك التعديل تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm

وعليكم السلام ورحمة الله وبركاته جميع المعادلات تختاج الى تعديل اريد ان استفسر يوجد في شيتات حركات الشهور المرتب والسلفيات لنأتى للمرتب تجد ان هناك اسماء وامامها المبلغ مثلا اسم عامر في خركة شهر 2 امامه مبلغ 1700 وفي نفس العمود يوجد اوفر تايم عامر 500 هل مرتب عامر 1700 ام 2200 اذا كان 2200 فالمعادلات تختاج الى تغيير بحيث تبحث عن الاسم في أي مكان ضمن النص وليس فقط التطابق التام وكذلك الامر ينطبق على السلفيات في انتظار ردك

السلام عليكم ورخمة الله وبركانه " 🌟 نأمل في المرات القادمة إرفاق الملف بدون كلمة مرور للصفخات ومحرر الاكواد لتتمكن مشاركته بشكل أوسع من قبل الزملاء. شكراً لتفهمك! 🤝" المشكلة في ملفك في استدعاء رقم التسجيل صفحة قوائم التلاميذ - تم عملها بكود تلقائي وان اردت معادلة استخذم المعادلة التالية وهي نفس المعادلة تطبق على كل الشيتات والتغيير الوحيد فيها يتم في خلية اختيار القسم او الفوج =IFERROR(INDEX(Data!B:B;AGGREGATE(15;6;ROW(Data!$Z$4:$Z$1000)/(Data!$Z$4:$Z$1000=$C$6);ROW(A1)));"") الملف التقرير اليومي لمستشار التربية - ثانوي - 12.5.0.xlsm

السلام عليكم استبدل هذا Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

وعليكم السلام ورحمة الله وبركاته دالة COUNTA (لا تعمل مع التصفية) دالة SUBTOTAL وهي في حالتين =SUBTOTAL(3, A1:A10) تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية =SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي تعمل مع التصفية الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية. اليك طلبك 05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm