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

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

اولا شكرا لدعاؤك لي ثانيا الكود في الملف السابق يقوم بترتيب الصفحات ذات الارقام وبالتالي ستجد الصفحات الاخرى ذات الحروف وليس الارقام مستثناة وتجدها بجانب بعضها ولكن هناك احتمال الرغبة في استثناء صفخة او صفحات رقمية مثلا تريد استثناء صفخة 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

شاهد التعديل المرفق q serial.accdb

بعد اذن استاذي @Moosak وهذا تصوري للتعامل مع الجداول المرتبطة . القاعدة الرئيسية :- الجدول المطلوبة اساسياً :- (tbl_DesignerPassword) والنموذج المطلوب (frm_DesignerPassword) بالاضافة الي جداول نظامك التي تريدها بالقاعدة الخلفية . ونماذج نظامك كما تريد القاعدة الخلفية :- استيراد بلنك كل الجداول بالقاعد الاساسية التي تدير بها القاعدة الخلفية ولا تنسي الجدول (tbl_DesignerPassword) . استيراد النماذج التي تريدها وتشغيلها من النموذج (frmSwitchBoard) فهو اساسي بالنظام مع النموذجان (Shift) و (FormKeys) . بعد الاستيراد لاتنسي غلق الجداول وعدم تفعيل الشيفت . ملحوظة :- استخدم القاعدة الخلفية بالمرفق وغير اسمها كما تحب لأن بها اعدادات أخرى مخفية خاصة باعدادات ال__ (Ribbon). عند فتح القاعدة الخلفية سيفتح على النموذج :- عند الضغط على الزر (S) سيفتح النموذج (Shift) كما بالجدول اذا ادخلت الباس (1001) ويمكن تغيير بالجدول سيمكنك من تفعيل الشفت اذا خطأ أو خالي عدم تفعيل الشفت . عند الضغط على الزر (HideUnHideTables) اذا ادخلت الباس (tariq1991) ويمكن تغيير بالجدول سيمكنك من اظهار الجداول والاستعلامات اذا خطأ أو خالي عدم اظهرها. اليك المرفق للتجريب وانا حاضر لاي استفسار . Khalifa Test.rar

اخي الكريم من الممارسات الجيدة عند تصميم قواعد البيانات العمل على تقليل حجم البيانات التي يتم تخزينها بقدر الإمكان فمثلاً لماذا نقوم بحفظ الاجمالي في الجدول وتضخيم حجم البيانات المحفوظة فيه ونحن بإمكاننا الحصول على نفس النتيجة بواسطة الإستعلامات ارفق لك ملفك بعد إضافة إستعلام والذي إذا فتحته جنبا الى جنب مع الجدول فلن تجد أي فرق إلا آخر عمود والذي يحتوي الإجمالي المطلوب بالتالي يمكنك إستخدام هذا الإستعلام بدلا من الجدول تحياتي Database.accdb

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

السلام عليكم نعم الان اتضح المطلوب بارك الله فيك الحل تم حذف النطاق من ادارة الاسماء فصل شيفت'!$A$8:$R$283 من ادارة الاسماء وجعلنا النطاق مباشرة في الكود فاصبح الكود بهذا Sub filter_D() Dim Q1 As String Dim rng As Range Set rng = Sheets("فصل شيفت").Range("$A$8:$R$283") Q1 = Sheets("فصل شيفت").Range("A7").Value If Q1 = "" Then rng.AutoFilter Else Q1 = "*" & Q1 & "*" rng.AutoFilter Field:=1, Criteria1:=Q1, Operator:=xlOr, Criteria2:="=" End If End Sub نموذج حركة جرديوميه 15-11.xlsm

نظراَ لوجود أسماء متشابهة فإننا نقوم بتمييز كل إسم بفاصلة منقوطة في بدايته واخره وذلك حتى لايتم ظهور أسماء اخرى يكون الاسم المطلوب جزءاً منها فمثلا لو تلاحظ يوجد شركة بإسم فيجن واخرى بإسم دوت فيجن فإذا كان المطلوب هي الشركة فيجن فقط فلو كان المعيار هكذا Like "*فيجن*" فستظهر شركة دوت فيجن لإنها مستوفية للمعيار ولكن عندما يكون المعيار هكذا Like "*;فيجن;*" فهذا معناه أننا تجاهلنا ظهور سجلات غير مطلوبة ارجو أن أكون قد وضحت الفكرة

جرب المرفق لعله المطلوب OK الكشوف.xlsb

اعرض الملف إداة إنشاء تعليمات مخصصة لتطبيقك ليظهر كالبرامج المحترفة {سلسلة الأدوات المساعدة المخصصة} تواصلاً لهذه السلسلة أقدم لكم اليوم أداة رائعة تقوم بإضافة التعليمات المساعدة لتطبيقات الأكسس لتظهر بمظهر البرامج الإحترافية حيث تسمح لكم الأداة بإنشاء ملف تعليمات مقسم إلى عناوين رئيسية تحتوي على مواضيع فرعية بحيث يكون لكل موضوع فرعي التعليمات الخاصة به مرفق لكم مجلد يحتوي على ثلاثة ملفات 1 - القالب وهو نسخة فارغة تحتوي على الكائنات الضرورية والتي يتم إستيرادها إلى التطبيق الخاص بكم (ويمكن إستخدامه في إنشاء التعليمات لأي تطبيق وإستيراد الكائنات المطلوبة بعد الإنتهاء كتابة كل التعليمات الخاصة بالتطبيق حيث يوجد هناك ثلاثة نماذج لن تحتاجونها إلى في نسخة التطوير ويمكن الإستغناء عنها في الإصدار المخصص للمستخدم النهائي) 2 - عرض توضيحي يوضح لكم طريقة العمل بالأداة والذي أرجو أن يتم التركيز على الخطوات الموضحة فيه 3 - مثال عملي قمت فيه بتوضيح الطرق المختلفة للإستفادة من الأداة في مثال مشابه للواقع أرجو أن تكون هذه الأداة إضافة مفيدة لكل الإعضاء تحياتي صاحب الملف منتصر الانسي تمت الاضافه 11/09/25 الاقسام قسم الأكسيس  

السلام عليكم اليك التعديل المصنف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, إلخ.

و عليكم السلام ورحمة الله و بركاته تفضل الحل بطريقتين الأول خاصة بنسخ الأوفيس الحديثة و الثانية بالنسخ القديمة Base des donnes (2).xlsx

وهل عرفت السبب ؟؟؟؟؟؟؟ هو هذا حلي الجديد !!!! هههههههه وايضا هناك حل ثالث ؟؟؟ تفضل اولا الحل الثالث باستخدام Private Sub Form_Open(Cancel As Integer) Dim SQL As String SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _ "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _ "ORDER BY Menha_ID;" Me.Menha_Name.RowSource = SQL End Sub اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!! تغير المصدر3.mdb

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

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

جميل جدا تحدي الذات والتنافس معها .. 😊👌 أحييك على هذي الروح المثابرة 😊🌹

اخي العزيز نعم يمكن ذلك ولكن بالنسبة لى بواسطة كود اما بالمعادلات حاولت ولم اتمكن ربما الزملاء الافاضل بالمنتدى لديهم ما يقدمونه لحل الامر بالمعادلات ECOODD (1) (1) (1).xlsb لك وافر التقدير والاحترام

شكرا استاذ فوكش لحضرتك

وعليكم السلام ورحمة الله وبركاته .. استخدم خاصية البحص أخي الكريم في المنتدى ، وستجد بعض المواضيع التي تحدثت عن طلبك . أذكر منها موضوع للأستاذ موسى الكلباني @Moosak في هذا الموضوع . أو هذه الفكرة للأستاذ محمد عصام @ابو جودي في هذا الموضوع .. وهذه المشاركة فيها الكثير من الإجابات الجميلة ..

بالغ التحية والتقدير مجهود رائع جزيل الشكر سيدي

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

اهااا المشكلة هذه هي بسبب قياسات الصفحة والهوامش قم بتصغير عرض التقرير إلى 27 سم وستنتهي المشكلة تحياتي

الأسماء مرتبة أبجديا ومن السهل الوصول لأي إسم بسهولة ولكن إذا قمنا بعمل مربع بحث يقوم بتصفية مربع القائمة فسيتم تجاهل أي إختيارات تم تحديدها سابقاً هذا لايعني أنه ليس بالإمكان عمل حل ولكنه يحتاج بعض الوقت وقد يكون بإستطاعة أحد الأخوة الأعضاء مساعدتك فيه تحياتي

جرب المرفق بعد التعديل لعله المطلوب OK3 الكشوف.xlsb

تفيد كثير بين الموظف والمسؤل والمدير لعمل مشروع قاعدة بيانات ثانوية وبيانات خاصه اوسرية او ترحيل ملفات بين قطاعات داخلية او خارجية عند التحديث يحدث الملفات وقاعدة الخلفية BE - يفيد التحديث كل اسبوع او اسبوعين او شهر او كل ربع سنوي يفيد بتحديث كامل من FE ,BE ,Folder والاتصال آمن بقواعد البيانات 1- الرفع شبه يدوي فقط آخر تحديث من DorpBox ,Folder or File To rar Or Zip الى لصق الرابط في Google Sheet وتحميل كافة الاجهزة ربوت آلي مباشر مع الفحص 2- اضافة إعدادة تحديد مكان مسار تنزيل الملفات 3- يتضمن شرح مبسط طريقة الاستخدام بخطوتين -------------------------------------( نسيت فك الضغط بعد التحميل اذا كان Zip Or rar تحديث وتوســــــــــيع😇 للتوضيح تابعوا الفيديو المرفق اسفل الفيديو تحميل المرفق https://www.mediafire.com/file/cpuusap5hv1n5cl/DorbBox_V100.rar/file

الان انت قد فهمتنى رائع رائع رائع اشكرك جزيل الشكر

تفضل استاذ @Abdelaziz Osman حسب ما فهمت تفضل الشرح والمرفق ووافني بالرد . Abdelaziz Osman1.rar

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

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

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

مشاركةً مع أساتذتي ، رغم أن صاحب الموضوع لا يأبه للملاحظات التي نطرحها وأرجو أن يكتشف أنها لصالحه لاحقاً .. جرب هذا الإستعلام أخي الكريم واستبدله باستعلامك السابق :- SELECT (SELECT Count(*) FROM [ادوات التقييم] AS T WHERE (((T.[اسم الشركة]) Like [ادخل الفيندور الاول] Or (T.[اسم الشركة])=[الثانى]) OR ((T.[اسم الشركة])=[الثالث] And (T.[اسم الشركة]) Is Not Null)) AND T.[اسم الشركة] <= Q.[اسم الشركة] ) AS رقم_تسلسلي, Q.[اسم الشركة], Q.guarantee_value, Q.response_po, Q.cod_supply, Q.cod_cut, Q.Safety, Q.administrative, Q.Warning, Q.Quality FROM [ادوات التقييم] AS Q WHERE (((Q.[اسم الشركة]) Like [ادخل الفيندور الاول] Or (Q.[اسم الشركة])=[الثانى]) OR ((Q.[اسم الشركة])=[الثالث] And (Q.[اسم الشركة]) Is Not Null)) ORDER BY Q.[اسم الشركة]; صورة توضيحية للنتيجة :- ملفك بعد التعديل :- q serial.zip

هذا كنز - بارك الله فيك شكرا جزيلا

مرفق لك الملف بعد التعديلات التالية - اضفت وحدة نمطية تحنوي على كود الترقيم - تعديل اسم الحقل اسم الشركة للغة انجليزية ليسهل العمل - ازلت معايير البحث وجعلتها خيارات عادية لتسهيل مشاهدة النتيجة بدلا من ادخال قيم كل مرة يمكن مشاهدة النتيجة بالمعايير المحددة ثم قم بإزالة أو إضافة إسم شركة من او الى المعايير وشاهد النتيجة الجديدة ملاحظة يجب اغلاق الاستعلام واعادة فتحه بعد كل تعديل في المعايير تحياتي q serial.accdb

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

على كل حال تفضل اخوي حسين عملت لك الكل : الزر يحدث لك كل جدول التفاصيل ايضا اذا اخترت رقم الصنف يظهر الصنف في حقل المخزن yasser_11.rar

وعليكم السلام ورجمه الله راجع الراوبط ادناه لعله يفيدك https://exceljet.net/lessons/how-to-move-a-pivot-table-style-to-another-file https://www.pivot-table.com/2018/04/23/copy-a-pivot-table-custom-style-to-different-workbook/ https://www.contextures.com/excel-pivot-table-format.html#videocopyfile https://support.office.com/en-gb/article/create-a-pivottable-with-an-external-data-source-db50d01d-2e1c-43bd-bfb5-b76a818a927b https://www.youtube.com/watch?v=9cP_IahEc1U https://www.youtube.com/watch?v=j7_jquTgOUg https://www.officena.net/ib/topic/41245-مساعدة-في-الجداول-المحورية-pivot-table/

شكرا أخي الكريم على كلامك الجميل وبصراحة فاجأني تثبيت الموضوع 😅

عمل جميل وتنفيذ متقن باش مهندس @منتصر الانسي 🙂👌

وعليكم السلام ورحمة الله وبركاته 🙂 جرب طريقتي في حماية قاعدة البيانات .. أنقل جميع مكونات القاعدة لبرنامجك وشغله .. 🙂 وهذي طريقة ضبط الإعدادات .. لفتح البرنامج في وضع التصميم : كلمة المرور لفتح الإعدادات : 123 ( قم بتغييرها لاحقا ) الحماية تشمل : 1- إخفاء الجداول وجميع مكونات البرنامج . 2- منع الفتح بزر الشفت Shift . 2- منع إضهار لوحة التحكم عند الضغط على F11 . وهذا يعتبر الحد الأدنى والأشهر في حماية قاعدة البيانات .. ويمكنك التعمق للوسائل الأكثر احترافية مثل حماية صفحة الأكواد بكلمة مرور وحفظ الملف بصيغة accde وحماية الملف بكلمة مرور وغيرها .. دمتم سالمين 🙂 Database Security Template.accdb

أخى أسامة بسطاوي جرب المرفق لعله المطلوب OK2 الزكاة التقديري .xlsx

الف شكر استاذنا / عبدالله بشير عبدالله عندك حق لقد نسيت اضافة البحث فى العمود (G3:U3)

السلام عليكم ورحمة الله تفضل أخي الكريم الملف مع بعض التعديلات التي أراها مساعدة في عمل هذا الملف. أرجو أن تفي الغرض المطلوب التقرير اليومي لمستشار التربية - ثانوي - 11.5.0 .xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي اسم المستخدم : admin كلمة المرور : 1989 Option Compare Text Dim f, Rng, MH(), WS_Rng, DataRng Private Sub UserForm_Initialize() DataRng = "Tableau1" WS_Rng = Range(DataRng).Columns.Count MH = Range(DataRng).Resize(, WS_Rng + 1).Value For i = 1 To UBound(MH): MH(i, WS_Rng + 1) = i: Next i Me.ListBox1.List = MH Me.ListBox1.ColumnCount = WS_Rng + 1 Me.ListBox1.ColumnWidths = "70;110;100;100;100" Me.ComboBox1.List = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) Me.ComboBox1.ListIndex = 0 Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, 1)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Sht = Application.Transpose(Range(DataRng).Offset(-1).Resize(1)) For i = 1 To WS_Rng Me("label" & i) = Sht(i, 1) Next i For i = WS_Rng + 1 To 6 Me("label" & i).Visible = False: Me("TextBox" & i).Visible = False Next i Me.ComboBox2 = "*" T_resultat = "عدد الموظفين" & "/" & ListBox1.ListCount + 0 Count = ListBox1.ListCount End Sub '''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Combobox1_click() Me.ListBox1.List = MH Me.B.Caption = "فلترة ب:" & Me.ComboBox1 Me.T.Caption = "بحث ب:" & Me.ComboBox1 Set Titre = Range(DataRng).Offset(-1).Resize(1) colFiltre = Application.Match(Me.ComboBox1, Titre, 0) Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(MH) d(MH(i, colFiltre)) = "" Next i WSdata = d.keys Me.ComboBox2.List = WSdata Me.ComboBox2 = Empty End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub TextBoxRech_Change() On Error Resume Next WSdest = Me.ComboBox1.ListIndex + 1 clé = "*" & Me.TextBoxRech & "*": n = 0 Dim Tbl() For i = 1 To UBound(MH) If MH(i, WSdest) Like clé Then n = n + 1: ReDim Preserve Tbl(1 To UBound(MH, 2), 1 To n) For k = 1 To UBound(MH, 2): Tbl(k, n) = MH(i, k): Next k End If Next i If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.clear End Sub منظومة-الشؤون-الادارية.xlsm

تفضل ربما يكون المرفق ما تريد الاكواد اظنها للاستاد ياسر ابو البراء جزاه الله خير الجزاء قمت بتعديلها حسب طلبك قوائم مترابطة (2).xlsm

احسنت بارك الله فيك عمل رائع وهذا هو ملف العمل لإكتمال الفائدة بالتأكيد طبعا بعد اذن استاذنا الكبير مجدى Print without Buttones.xlsm

السلام عليكم إنشاء pivot table نطاقات الدمج المتعددة.rar http://office.microsoft.com/client/helppreview.aspx?AssetId=HA102265859990&lcid=1025&NS=EXCEL&Version=12&CTT=5&origin=HP010095249 المطلوب غير واضح في أمان الله

السلام عليكم ورحمة الله وبركاته الجداول المحورية-نطاقات الدمج المتعددة- تتعامل مع اكثر من جدول ومن عدة اوراق لكن تختلف طريقة عرضها للبيانات عن الجداول المحورية -العادية – بسبب اضافة بُعد جديد (مجموعة الجداول) بالتالي اختلاف تقسيمات المحاور جداول محورية.rar