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

وعليكم السلام ورخمة الله وبركاته اليك الكود 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

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

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

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

@kkhalifa1960 very very excellent اشكرك جزيل الشكر عمل رائع وشكر لجميع الاخوة الكرام الذين اهتموا بالموضوع

تفضل استاذ @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

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

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

مشكووووووور

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

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

جرب الكود التالي Sub ClearIfFound() Dim Cell As Range Dim blFound As Boolean Application.ScreenUpdating = False For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row) blFound = Application.WorksheetFunction.CountIf(Range("L1:U5"), Cell.Value) If blFound = True Then Cell.EntireRow.ClearContents Next Cell Application.ScreenUpdating = True End Sub

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

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

استاذي هذا الموضوع مهم جدا لان نحن نستخدم pivot table ولكن لشيت واحد فقط فهل بالأمكان جعل pivot table يستخدم لاكثر من شيت بنفس الجداول اي شيت واحد مصاريف مشروع س . وشيت ثانيايضا يحتوي على مصاريف لمشروع ص وشيت ثالث ايضا يحتوي على مشروع ج وكل هذه االمصاريف تكون في مكان واحد من عامود ( A .B .C . D ) في كل الشيتات لان من الصعب ان يقرأ خارج هذه العواميد . اخواني اعضاء هذ المنتدى الكرام ارجو الأهتمام في هذا الموضوع لان جميع المصادر في هذا المنتدى تحتوي على كيفيه التعامل وبناء المعلومات في pivot table ولكن لا تتطرق الى الأبداعات بالخصوص علما ان pivot table له امكانيات كبيرة جدا وانا متابع لها جدا وايضا اتعامل بها . وانا اسف للأطالة والكن ارجو الأهتمام لان فيه فائدة كبيرة للجميع . وجزاكم الله كل خير ومحبة وسلام . اخوكم ابو شرف ولكم هذا الجدول كمثال اتصور هو ما طلبه اخي للتوضيح مع التقدير مثال الجدول.rar