كل الانشطه

وعليكم السلام ورحمة الله وبركاته ,, أشكرك على هذه الثقة أخي الفاضل @algammal ، وأتمنى ان نكون عند حسن الظن بها .. وطبعاً البركة في خبرائكم ومعلمينا الأفاضل هنا ، فأنا ما زلت اكتسب المعلومة في هذا الصرح الكبير . بحد علمي وفهمي البسيط في اكسل ، قمت بدمج بيانات الشيتين (search DATA) و (search معاشات) في الشيت Search . ثم جعلت الفلترة بشكلين ، إما عن موظف محدد باسمه مثلاً أو رقمه القومي كبيانات فريدة ( افتراضاً مني ) ، أو الفلترة الشاملة كما في الصورة :- واستخدمت الماكرو الأول للـ بحث عن سجل محدد :- Sub SearchOne() Dim ws As Worksheet Dim findRange As Range Dim searchCol As Long Dim searchValue As String Dim foundCell As Range Dim lastRow As Long Set ws = ThisWorkbook.Sheets("SEARCH") For searchCol = 1 To 13 If Not IsEmpty(ws.Cells(5, searchCol)) Then searchValue = ws.Cells(5, searchCol).Value lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row Set findRange = ws.Range(ws.Cells(10, searchCol), ws.Cells(lastRow, searchCol)) Set foundCell = findRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole) If Not foundCell Is Nothing Then ws.Range(foundCell.EntireRow.Address).Copy ws.Range("A5").PasteSpecial xlPasteValues Exit For End If End If Next searchCol Application.CutCopyMode = False End Sub وفي زر الفلترة الشاملة :- Sub SearchAlls() Dim ws As Worksheet Dim searchCol As Long Dim searchValue As String Dim lastRow As Long Set ws = ThisWorkbook.Sheets("SEARCH") If ws.AutoFilterMode Then ws.AutoFilterMode = False For searchCol = 1 To 13 If Not IsEmpty(ws.Cells(5, searchCol)) Then searchValue = ws.Cells(5, searchCol).Value lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ws.Range("A9:M" & lastRow).AutoFilter ws.Range("A9:M" & lastRow).AutoFilter Field:=searchCol, Criteria1:=searchValue Exit For End If Next searchCol End Sub وفي زر مسح الفلترة :- Sub ClearSearch() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("SEARCH") If ws.AutoFilterMode Then ws.AutoFilterMode = False ws.Range("A5:M5").ClearContents End Sub هذا بحد فهمي للمطلوب ، وأرجو ان لا أكود قد صوبت إجابتي بشكل بعيد كلياً عن المطلوب ,🙃, الملف بعد التعديل :- توحيد البحث في شيت واحد.xlsb جرب النتائج ، وأخبرني بها .

#مركز_الفرسان_الدولي_للتدريب #Alforssan International Training Center بسم الله الرحمن الرحيم مركزالفرسان الدولي للتدريب AL-Forssan يقدم دورات فى التخطيط وإدارة المشروعات يمكنكم التسجيل او الاستفسارعلى الدورة الان ......................... يحصل المتدرب على شهادة معتمدة من مركز الفرسان الدولي للتدريب للتواصل والإستفسار وطلب المحتوي العلمى يرجى التواصل بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com دورة إدارة المشاريع الرشيقة دورة الإدارة الفعّالة لمشاريع تقنية المعلومات دورة مهارات إدارة المشاريع دورة الإعداد لشهادة أخصائي إدارة المشاريع (PMP) دورة إدارة أصحاب المصلحة للمشروع دورة الإعداد لشهادة أخصائي إدارة مخاطر المشاريع (RMP)® دورة إدارة محافظ المشاريع دورة موازنة المشاريع وتقدير التكاليف و تقنيات توفيرها دورة الإعداد لشهادة الممارس المعتمد في إدارة المشاريع الرشيقة (PMI-ACP)® دورة إتقان مكتب إدارة المشاريع PMO من التأسيس وحتى مؤشرات الأداء الرئيسية ولوحات المراقبة دورة الأتجاهات الحديثة والمتقدمة فى التمويل والأستثمار دورة شهادة في الإدارة المتقدمة للمشاريع دورة التخطيط والجدولة وضبط المشاريع بإستخدام بريمافيرا دورة إدارة إتصالات ومخاطر وتوريدات المشاريع دورة تخطيط وتطبيق مكاتب إدارة المشاريع والتحضير لشهادة مدير مشاريع محترف دورة إدارة وبرمجة وتخطيط وجدولة وضبط المشاريع بإستخدام الحاسب الالي MS Project و بريمافيرا دورة الإحتراف في إدارة المشاريع وحل المشاكل وإتخاذ القرارات دورة تخطيط وجدولة وضبط المشاريع دورة إجادة الجدولة والتحكم بالمشاريع وإكتساب المهارات الإدارية دورة إدارة المشاريع والإشراف على الإستشاريين والمقاولين دورة البرنامج التأسيسي في إدارة المشاريع دورة إدارة مشاريع تكنولوجيا المعلومات دورة الإدارة المتكاملة ونطاق العمل وإدارة الوقت والجودة والموارد البشرية و التدريب والتكلفة للمشروع دورة تقنيات بدء المشروع وتخطيطه وتنفيذه دورة المهنية والتخصص والإحتراف في إدارة المشاريع– البرنامج الأصلي للتحضير لشهادة مدير مشروع محترف دورة التحضير لشهادة مدير مشاريع معتمد وإكتساب المهارات الشخصية والإدارية دورة الإحتراف في إدارة المشاريع وتطوير المهارات الإدارية والقيادية دورة الإحتراف في إدارة مخاطر المشاريع دورة الإحتراف في إدارة المشاريع وتجنب المخاطر وفن التفاوض والمهارات القيادية وبناء فرق العمل دورة البرنامج الأول في إدارة المشاريع لمجالات المعرفة التسعة وفقاً للمقياس العالمي الموحد دورة تقنيات إدارة المشاريع المعتمدة وإكتساب مهارات الإدارة الإستراتيجية دورة مجموعة العمليات المتكاملة لإدارة المشروعات وفقاً للمقياس العالمي الموحد دورة إدارة برامج مشاريع – دورة تحضيرية لشهادة إستشاري PMP دورة برنامج إدارة المشاريع الشامل - التخصص في إدارة المشاريع والتخطيط والجدولة والتحكم دورة التخصص في إدارة المشاريع والتعامل الفعال مع المتغيرات الإدارية دورة تقنيات التفاوض والقيادة الفعالة وبناء فرق عمل إدارة المشاريع دورة تخطيط وجدولة وضبط المشاريع – برنامج تحضيري لشهادة PSP دورة الإحتراف في إتخاذ القرارات وإدارة المخاطر دورة التحضير لشهادة إدارة برامج ومكتب مشاريع دورة الإحتراف في إدارة المشاريع والتخطيط الإستراتيجي والقيادة المتميزة دورة مهارات إدارة المشروعات الهندسية دورة مواضيع متقدمة في إدارة المشاريع ، ومهارات القيادة والتفاوض والتعاقد وبناء فرق العمل الفعالة دورة أساسيات إدارة المشاريع دورة إدارة المشاريع ورشة عمل متقدمة في التحكم وإدارة المشاريع والأدوات التعاقدية الناجحة دورة القائد الماستر - مهارات إدارة المشاريع والإدارة دورة الإدارة المتكاملة لمراحل ونطاق سير المشروع وإدارة الوقت دورة البرنامج المتقدم الإحتراف في إدارة المشاريع دورة إدارة الجودة والموارد البشرية و التدريب وتكاليف وإتصالات ومخاطر وتوريدات المشاريع …………………………… للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام كما يعقد مركز الفرسان الدولي للتدريب الدورات التالية بالتخصصات المذكورة ( دورات الإدارة والقيادة - دورات الموارد البشرية والتدريب - دورات الجودة والأنتاجية - دورات المشتريات والمخازن اللوجستية - دورات إدارة الإمن - دورات السلامة والصحة والبيئة - دورات التسويق والمبيعات وخدمة العملاء - دورات الأعلام والعلاقات العامة - دورات المحاسبة والخدمات المالية - دورات القانون والعقود - دورات البنوك والخدمات المالية - دورات التخطيط وإدارة المشروعات - دورات التأمينات - دورات النفط والغاز - دورات التجارة الخارجية ودراسة الجدوي - دورات تخطيط أعمال الصيانة - دورات الهندسة المدنية وأعمال البناء - دورات الطاقة الكهربائية - دورات الجمارك والموانيء - دورات الخدمات الطبية - دورات السكرتارية وإدارة المكاتب ) ………………………………. إسلوب إعداد البرنامج التدريبى : المحاضرات: ينفذ الدورات مجموعة من الخبراء المتخصصون في مجالات التدريب المختلفة المادة العلمية: وهي مكتوبة على شرائح تعليمية باستخدام برنامج Power Point كوسائل مساعدة الحالات والتطبيقات العملية الحوارات والنقاشات الموجهة تمثيل ولعب الادوار ورش العمل ومشاركة المتدربين نموذج استطلاع الراي قاعات التدريب بفنادق 5 نجوم تناول الوجبات الخفيفة والمشروبات اثناء البرنامج ………………………………………… يوفر مركز الفرسان الدولي للتدريب مزايا كثيرة ضمن برنامج الدورات التدريبية تتضمن : * خصومات خاصة للمجموعات * خصومات خاصة للتسجيل المبكر * الدورات التدريبية تنفذ باللغتين : العربية أو الإنجليزية حسب تفضيلكم * القاعة التدريبية على مستوى فندقي 5 نجوم * خصومات في العديد من الفنادق و تسهيلات في السكن * وغيرها من المزايا ......... * الشهادات : يحصل المتدرب على شهادة معتمده دوليا من مركز الفرسان الدولي للتدريب لمزيد من المعلومات عن الدورات والمحتوى العلمى والتكلفة والمواعيد يرجى التواصل على الارقام الاتية للتواصل والإستفسار ومعرفة المحتوي العلمى يرجى الاتصال بـ الاستاذة : نادين عز Mob/what’s app : 002 01200571999 Email. info@alforssan.com Website: www.alforssan.com ولكم جزيل الشكر والإحترام

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

جعلها الله في ميزان حسناتكم وجزاكم الله عنا كل الخير .

شكراً لك على الإضافة الجميلة ، وإن شاء الله سأستفيد من هذا الرد في تعديلات الأداة لاحقاً .. طبعاً ومعلومة مهمة بالنسبة لي ، أن الأداة ستحمل اسم فريق المنتدى / قسم آكسيس كاملاً لدعمهم الوفير في المعلومات ..

أولاً :- تمنياتي لأستاذنا ابوجودي الشفاء العاجل باذن الله . ثانياً :- 📌 هذا مرجع دوال VBA المتوافقة مع النواتين (32 بت و64 بت) هذا المرجع يحتوي على جميع الدوال الشائعة التي يمكن استخدامها في VBA داخل Access، مع دعم للنواتين 32 بت و64 بت باستخدام #If VBA7 Then. 🔹 1- دوال استدعاء Windows API #If VBA7 Then Public Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As Long, lParam As Any) As Long #Else Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long #End If SendMessage – إرسال رسائل للنوافذ داخل النظام. PostMessage – إرسال رسائل غير متزامنة. FindWindow – العثور على نافذة بناءً على عنوانها. ShowWindow – التحكم في عرض أو إخفاء النافذة. GetSystemMetrics – الحصول على معلومات حول إعدادات النظام. 🔹 2- دوال التعامل مع الملفات #If VBA7 Then Public Declare PtrSafe Function CopyFile Lib "kernel32" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #Else Public Declare Function CopyFile Lib "kernel32" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #End If CopyFile – نسخ ملف من موقع إلى آخر. DeleteFile – حذف ملف معين. FindFirstFile – البحث عن أول ملف يتطابق مع نمط معين. FindNextFile – البحث عن الملفات التالية بنفس النمط. 🔹 3- دوال النظام (System Functions) #If VBA7 Then Public Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long #Else Public Declare Function GetTickCount Lib "kernel32" () As Long #End If GetTickCount – الحصول على عدد الثواني منذ تشغيل النظام. GetWindowsDirectory – استرجاع مسار مجلد Windows. GetSystemMetrics – استرجاع بيانات عن إعدادات النظام. 🔹 4- دوال إضافية مفيدة #If VBA7 Then Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As Any) As Long #Else Public Declare Function GetCursorPos Lib "user32" (lpPoint As Any) As Long #End If GetCursorPos – الحصول على موقع مؤشر الفأرة. SetCursorPos – تعيين موقع جديد لمؤشر الفأرة. GetActiveWindow – استرجاع النافذة النشطة حاليًا. GetDesktopWindow – استرجاع نافذة سطح المكتب الرئيسية.

للتعدين على العملات يوجد منتجات تكثيف الطاقة كأنك مشغل مصباح يحول مثال 1000 الى 100000 عن طريق المكثف او المحرك اشتر عدد مناسب من المنتاجات وتأكد ان التعدين يكون مخالف فقط لاستهلاك العالي للكهرباء فقط حسب الدولة والحل الثاني تشتري شقة في الخارج اذا كنت متقاعد وسهلة ولا اعتقد ولا يوجد قاعدة بيانات او برنامج يساعد على العملية وتنصح الكثير تجنب ماي سكول او اوريكل او الاوراكل اي اتصال انترنت مضيف للقاعد بيانات في مستقبل سيكون ممنوع مخالف وجريمة تعدي على البيانات لإمكانية بيع للطرف الثالث واعتقد الحلول اتفاقية مع المؤسس وشراء ترخيص ولكن الحل هو نطاق المحلي مع قدرة AI

من تواضع لله رفعه ، وانت من الأساتذة الذين لهم بصماتهم وأسلوبهم

اخي الفاضل انا لم اتسرع ولم احكم عليك .... ولكني حكمت على نفسي باني لست خبير ... وفعلا انا تلميذ لكم اخي الفاضل ... المقامات محفوظة

وعليكم السلام ورحمة الله وبركاته ,, ملف قيم وهام لمن يبحث عن المعلومة المفيدة . واحتواءه على روابط مراجع جميل جداً بتوسيع الفكرة والبحث الشامل عن معلومات تفيد صاحبها . الشكر موصول لصاحب القلم الأستاذ عارف حسان .

أهلا بأخي @ناقل ، يسعدني مرورك ةتعقيبك على الموضوع ، رغم انك تسرعت في الحكم علي 😁😁 بالعكس ، أساتذتي الخبراء من المستهدفين بالمشاركة في هذا النقاش ( طبعاً مع احترامي الكامل لحرية ابداء الرأي ) ، انظر .. وتعقيباً على ما أسلفت تالياً :- ففي الحسبان ان شاء الله ، ولكن الصورة والفكرة السابقة من الإصدار الأول للتجارب الأولى لجمع التعليقات والمعلومات التي نستفيد منها .. معلمي الفاضل @ابوخليل ، أُسعد بمشاركتكم ، واتمنى أن أصل في النهاية إلى أداة تحقق الجزء الأكبر من فكرتها وهدفها .. بانتظار توجيهاتكم وإفاداتكم وتصويبكم لي لطرق تسهم في إنجاح المشروع .. معلمي الفاضل @jjafferr ، يسعدني توجيهكم لي لهذه الروابط ، وانا فعلاً قد قرأتها بشكل غير مفصل ، ولكن للمحاولة لرسم خطواتي التي سأبدأ بها ، وطبعاً لا بد من تغيير اتجاهي في الوقت الحالي واتجاه بوصلتي ، ولكن بهدف البدء بخطوات صحيحة تالياً .. أما فيما يخص الكود الذي استخدمته كتجربه ، فيسعدني توجيهك من موقع مايكروسوفت ، دلالة على أن المصادر التي يجب علي اتباع نهجها يجب أن تكون موثوقة لاحقاً .. أخي الأستاذ @kkhalifa1960 ، يسعدني تعليقكم ومروركم ، وإثراءكم وملاحظتكم كثيراً .. ونأمل أن نتعرف على أفكاركم لاحقاً باحثين عن سبيل واسع الأفق لتحقيق المطلوب . أما فيما يخص هذا الجزء .. فطبعاً صديقي وحبيبي @ابو جودي ، من الذين أشاركهم أفكاري وأستنير بتعليقاتكم ، حاله حال أساتذتي ومعلميني الأفاضل ( دون استثناء طبعاً ) . لكن وضعه الحالي الصحي قد يجعل تعليقاته متاحة فيما بيننا خارج المنتدى . ( يعاني من كسر في يده اليمنى حالياً شافاه الله وعافاه شفاء عاجل غير آجل ) . وباسمي وباسم المنتدى نيابةً نتمنى له الشفاء القريب بإذن الله . أشكر لكم جميعاً مروركم وقريباً سنبدأ بطرح الفكرة من بدايتها ( النسخة الأولى من الأداة ) ، ومع توجيهاتكم معلميني وأساتذتي وأخواني ، سنبدأ بتصحيح المسارات الخاطئة عند وجودها وإنجاح الفكرة .

يوجد اخطأ يا موسى 1- كود او دالة تتعرف على نوع الحقل اذا كان للمرفقات او حقل مفتاح اساسي يتغير كود من SQL الى DOA ما يشتغل وكود فحص كل حقل في SQL الى فارغ استبدل كل من Null 2-تعرف على علاقات الجدول وضبط النموذج اذا كان نموذج فرعي 3.4.To 7 ( هدية بسيطة طورها وصلة في الى الرابع هذي الاولى شغال ( ياخذ كافة العلاقات الجداول ويحفظها في الجدول عند اعادة ربط الجداول يعيد اعادة ربط العلاقات تحذير كل العقود الي عندك بين الشركات والافراد لبيع قاعدة البيانات يجب ابلاغ اعلان بالمحكم اذا ما رد عليك مو تنذره عند بيع بيانات للشركات تحتوي على سجلات قضائية او بيانات حساسة لتعدي على سيادة الدولة تعتبر جريمة وتعدين على العملات الرقمية بطريقة الخاطأ لاستهلاك الكهرباء تعتبر مخالف الطريقة الصحيحة تشتري صناديق شحن الكهرباء ما تعبي فيها ديزل ولا بانزين فقط تشحن الصناديق لتشغيل لثلاث ايام دون تعدي على العداد الكهرباء المهم بيع بيانات للشركات او المؤسسات ويحول البيانات الى عقود باطن من طرف واحد لرفع تصنيف التجاري لمعرفة اعادة فحص عقود الباطن وتأكد من اقول المتعاقدين لم يتعاقد وتكون مع طرفين سمسار ملاك العقارات قبل البيع الاصول وطرح وطرف الثاني شركات المقاولات والقديمة تجارة عامة ومقاولات بدفع مبلغ رمزي لحجز البيع لاتمام انجاز عقد العقاري الوهمي وشاحنتين 2 عمال شوي ويزيد ويزيد عدد العقود الحل لتخريب عليهم كل عقد باطن يصدق لجهة برقم تسلسلي قبل فحص التصنيف عند ادخال الرقام فارغ او غير صحيح يعرض للجهات المختصة للتأكد من صحة بيانات التعاقد سيكون عقوبة على كافة الشركات التي تبيع للطرف الثالث كان في دولتك والمصيبة في دول خارجية قاعدة بيانات حساسة للمواطنين من غير تصريح ولا تفويض ولا ترخيص اكثرهم جه عقارية وتمليك واجار وبيع اصول مش حلو بيشوفوا ناس على ناس بيخذو الفكرة الزاي انت تكون بلغت ما طرحت له الفكرة تشري القاعدة من طرف الاخر للمواطنين والمقيمين ولا انت تبيع فحالة كل من الشركات كانت الكترونية او عقارية تفصح للبيع البيانات للتجارة هدف البيع والربح من طرف الثالث كان محلي او اجنبي اعتقد ستحب الاجهزة والسيرفرات مع قاعدتها واعتقد الغرامة تصل الى سحب النشاط ... Objects List 3.0.rar

اعتقد بعد هذه الكوكبة من علمائنا الافاضل ..... وفي هذا الموضوع المهم والحيوي واقتراب موعد عدم اثراء أي برامج تعتمد عى 32 بت ...... وحتى تحصين برامجنا التي نعمل عليها . لابد من مناقشتها وهنا فرصة عظيمة لذلك . ولكي تتم المناقشة لابد من مشاركة مهندسنا (أبو جودي) الذي نأمل أن يشاركنا في هذا الطرح . تحياتي للجميع .

السادة الأفاضل الكرام خبراء أوفيسنا (Excel) السلام عليكم جميعا ورحمة الله وبركاته طبتم وطابت أوقاتكم بكل خير وبعد بداية أود أن أنوه إلى أن الملف المرفق نتيجة لجهد عملاقين من عمالقة المنتدى وهما: الأستاذ @عبدالله بشير عبدالله والأستاذ @محمد هشام. ولا أنسى عملاق آخر وهو الأستاذ @Foksh الذي أثرى الحوار العلمي فيما بينهم؛ وحقيقة تمتعت برقي أخلاقهم وأدب حوارهم الذي يفوق الوصف كل ذلك مع تمكنهم العلمي من أدواتهم جيدا مصحوبا بتواضع العلماء؛ نفعنا الله بعلمهم وزادهم علما؛ وجزاهم الله عنا خير الجزاء. · قمت بإنشاء: (Macro1) و (Macro2) و (Module3) و (Module4)؛ كما هو موضح بملف العمل المرفق حيث: · شيت (search DATA) مرتبط بـ (Macro1) وهذا مبين في (Module3). · وشيت (search معاشات) مرتبط بـ (Macro2) وهذا مبين في (Module4). · المطلوب · أن يصبح شيت (SEARCH) هو شيت البحث الرئيس لما يحتويه شيت (search DATA) وشيت (search معاشات) ثم يتم حذف كلا الشيتين لعدم الحاجة إليهما. ·أو · ضم شيت (search معاشات) إلى شيت (search DATA) وحذف شيت (search معاشات) لعدم الحاجة إليه بعد أن يصبح شيت (search DATA) هو شيت البحث الرئيس وتغيير اسمه ليكون شيت (SEARCH). ملاحظة · أمكنني البحث بأي من محتويات الخلايا (M4:A4) ماعدا الخليتان: (G5) محافظة الميلاد (المظللة باللون الأصفر) و (K5) يوم الخروج للمعاش (المظللة باللون الأصفر)؛ ولا أعلم سببا لذلك؛ في كلا من شيتي: (search DATA) و (search معاشات). شاكر لكم حسن تعاونكم مسبقا ولكم خالص الشكر والتقدير والاحترام. ضم ماكرو1 وماكرو2 معا وتوحيد البحث في شيت واحد.xlsb

مازبط معي للاسف

شكرا أستاذ بارك الله فيك وجزاك الله خيرا أرغب أن تعدل لك الكود بحيث يعرض فقط أول 51 صف غير فارغ في العمود G

وعليكم السلام اهلا اخي فادي 🙂 اهم شيء في هذا الموضوع، هو الرجوع الى تعليمات مايكروسوفت في التعامل مع دوال نواة 64 بت ، في الرابط التالي: https://www.microsoft.com/en-us/download/details.aspx?id=9970 ملف النص في الرابط اعلاه يعطيك تفاصيل الدالة على نواة 64 بت. المثال الذي استعملته انت، وانا متأكد بأنك كنت حريص في انتقاء الدالة، توجد به 3 فروقات عن الدالة في ملف مايكروسوفت (السطر الثاني من ملف مايكروسوفت) : والمسألة لا تتوقف عند هذا السطر فقط، فهناك دوال معقدة تحتاج الى استعمال if# في دالتي الخاصة. رجاء قراءة الموضوعين التاليين ، فطريقة العمل تختلفان ، وفيهما بعض الامثلة المختلفة: . .

السلام عليكم هذا بحث بقلم الاستاذ الكريم عارف حسان وتجميع وتنسيق بالوورد من الاستاذ الكريم يوسف احمد اسال الله ان يكون عملا مباركا وعلما ينتفع به لهما ان شاء الله OOP.docx

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

جرب هدا Sub ConvertDates() Dim WS As Worksheet, lastRow As Long, i As Long Application.ScreenUpdating = False Set WS = ActiveSheet lastRow = WS.Cells(WS.Rows.Count, "L").End(xlUp).Row For i = 2 To lastRow If IsDate(WS.Cells(i, "L").Value) Then WS.Cells(i, "M").Value = DateValue(WS.Cells(i, "L").Value) WS.Cells(i, "M").NumberFormat = "mmm dd, yyyy" Else WS.Cells(i, "M").Value = "" End If Next i Application.ScreenUpdating = True End Sub

في اللغة العربية، لا يمكن وضع ثلاث حركات (الفتحة، الضمة، الكسرة) على حرف واحد في نفس الوقت. كل حركة من هذه الحركات تدل على صوت مختلف للحرف، وبالتالي لا يمكن أن ينطق الحرف بثلاثة أصوات مختلفة في نفس اللحظة. ما قد يقصد بالسؤال: الجمع بين الحركة والشدة: قد يلتبس الأمر على البعض بين الحركات الأساسية والشدة. الشدة (ـّ) توضع فوق الحرف لتضعيف لفظه (أي كأنه مكتوب مرتين)، ويمكن أن يصاحبها حركة (فتحة، ضمة، كسرة). فمثلاً، "مُحَمَّد" (الميم مضمومة، الحاء مفتوحة، الميم مشددة ومفتوحة). هنا، الحرف المشدد يحمل حركة (الفتحة في هذه الحالة)، لكن الشدة نفسها ليست حركة إعرابية بل علامة تضعيف. المدود والحركات: حروف المد (الألف، الواو، الياء) هي في الأصل حركات طويلة (الفتحة الطويلة، الضمة الطويلة، الكسرة الطويلة). فمثلاً، الألف الممدودة (آ) هي اجتماع همزتين، الأولى مفتوحة والثانية ساكنة، وتُلفظ ألفاً ممدودة. لكن هذا لا يعني وضع ثلاث حركات على حرف واحد. مثلثات قطرب: هذه ظاهرة لغوية نادرة وليست قاعدة عامة، حيث تتغير دلالة الكلمة بتغيير حركة حرف واحد فيها، مثل: "الغَمْرُ" (الماء الكثير) و"الغِمْرُ" (الحقد) و"الغُمْرُ" (الرجل الذي لم يجرب الأمور). لكن هنا، يتم تغيير الحركة في كل كلمة على حدة، وليس وضع الحركات الثلاث على نفس الحرف في نفس الكلمة. الخلاصة: لا يوجد خط أو طريقة في اللغة العربية تسمح بوضع ثلاث حركات (فتحة وكسرة وضمة) على حرف واحد في نفس الوقت. كل حركة من هذه الحركات تدل على صوت محدد للحرف.

وعليكم السلام ورحمة الله تعالى وبركاته اخي @AMIRBM 1) الأفضل هو تجاهل الصفوف الفارغة في عمود G بدلا من تقييد العرض بـ 51 صف فقط لأنك بذلك تمنع عرض أي بيانات جديدة تضاف لاحقا بعد الصف 51 أي إدخال جديد لن يظهر في الـ ListBox الكود يصبح محدودا وغير ديناميكي 2) بعد معاينة الملف لاحظت انك اسم الجدول على ورقة العمل باسم Tableau5 بينما الكود يشير إلى Tableau1 وهذا سيؤدي حتما إلى ظهور خطأ عند التشغيل لأن الكود يبحث عن جدول غير موجود وهده النقطة يمكننا تجاوزها إدا فهمنا ما تحاول فعله بالاعتماد على نطاق البيانات مباشرة من الورقة دون الحاجة لاستخدام جدول محدد أو إسمه مما يجعل الكود أكثر مرونة ولا يتأثر بتغيير الأسماء أو حذف الجداول وكدالك عرض كل الصفوف التي تحتوي على بيانات فعلية فقط مهما كان عددها 3) إذا كنت متأكد أن تقييد العرض على 51 صف فقط هو المطلوب ويراعي ظروف عملك يمكننا تعديل الكود ليقوم بعرض أول 51 صف من البيانات الفعلية فقط في النهاية الأمر يعود لاختيارك حسب متطلباتك هل ترغب أن أعدل لك الكود بحيث يعرض فقط أول 51 صف غير فارغ في العمود G ؟ أو تفضل التعديل الديناميكي الذي يعرض كل الصفوف الفعلية ويتجاهل الفراغات ؟

مشكورين جميعكم ولاكني جربت كل المحاولات لم تزبط معي للاسف يطلع لي #VALUE! هل ممكن عن طرق كود ممكن يزبط معي

تفضل التقرير حسب ماطلبت مع العلم هذا أخر مالديا بالنسبة للجداول لأني ما أقدر أعيد برمجة البرنامج ككل . تمنياتي لك بالتوفيق . DDFinding Differences-FINAL_8.rar