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

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

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

طيب ممكن اعرف حضرتك حماية ملف وعدم اظهار أسماء اوراق العمل وعدم اظهار الصيغة وعنوان الاعمدة والصفوف رد/// شاهد هذا الفيديو https://www.youtube.com/watch?v=Ik02J3J-QRU

كده تمام أتمنى أن يكون هذا هو الذى تريده

تم التعديل على الكود ليعمل كما تشاء new_spec_Salim_With _Numaretion.xlsm

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

بالنسية للسؤال الاول استبدل الماكرو بهذا Option Explicit Option Base 1 Sub filter_for_ME() Dim y%, t%, i%, match%, r%: r = 3 Dim S_sh As Worksheet: Set S_sh = Sheets("BD") Dim T_sh As Worksheet: Set T_sh = Sheets("نتيجة") Dim My_Table As Range: Set My_Table = S_sh.Range("a1").CurrentRegion Dim arr(), n_Rows%: n_Rows = My_Table.Rows.Count Dim k%, a%, Arr_Num%: Arr_Num = 1 Dim ar_ad() Dim tt$ Dim Saerch_Rg As Range Dim my_col% T_sh.Range("a3:g1000").Clear ar_ad = Array("=$A2", "=$B2", "=$C2", "=$D2", "=$E2", "=$F2", "=$G2") match = Application.match(T_sh.[d1], S_sh.Rows(1), 0) Application.ScreenUpdating = False S_sh.Activate '==================================== For k = 2 To n_Rows If Cells(k, match) = vbNullString Then Cells(k, match) = "(EMPTY)" Next For k = 2 To n_Rows y = Application.CountIf(S_sh.Range(Cells(1, match), Cells(k, match)), S_sh.Cells(k, match)) If y = 1 Then ReDim Preserve arr(1 To Arr_Num): _ arr(Arr_Num) = S_sh.Cells(k, match): Arr_Num = Arr_Num + 1 Next T_sh.Activate '========================================= For k = 1 To UBound(arr) T_sh.Range("E1") = arr(k) tt = Application.Index(ar_ad, match) & "=" & T_sh.Name & "!$E$1" T_sh.Range("m2") = tt My_Table.AdvancedFilter Action:=2, criteriarange:=T_sh.Range("m1:m2"), _ copytorange:=T_sh.Range("a" & r) t = T_sh.Cells(Rows.Count, 1).End(3).Row r = t + 2 Next For k = 2 To n_Rows If S_sh.Cells(k, match) = "(EMPTY)" Then S_sh.Cells(k, match) = vbNullString Next With Range("a3:G" & r - 2).SpecialCells(2, 23) .Borders.LineStyle = 1 .InsertIndent 1 End With Set Saerch_Rg = T_sh.Range("a3:G" & r - 2).Find("(EMPTY)") If Not Saerch_Rg Is Nothing Then my_col = Saerch_Rg.Column For a = 4 To r - 2 If T_sh.Cells(a, my_col) = "(EMPTY)" Then T_sh.Cells(a, my_col) = vbNullString End If Next End If T_sh.Range("e1").Clear: T_sh.Range("m1:m2").Clear Erase arr: Erase ar_ad: Set Saerch_Rg = Nothing Application.ScreenUpdating = True End Sub اما السؤال الثاني لم افهم المطلوب الملف من جديد new_spec_filter.xlsm

شكرا لكلماتك الطيبة لايوجد تغيير في الكود فقط اختصار الدالة ChaingeLanguage "Arabic" إلى مضمونها وهو هذا السطر LoadKeyboardLayout "00000401", 1 ويمكن الاستغناء عن الدالتين الموجودين في الموديول ويتبقى فقط الإعلان declare في الموديول

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

@أبو آدم استاذي الفاضل أبو آدم هذه صورة المرفق السابق قمت بتحميله من مشاركتي السابقة وفتحه وهو باللغة العربية كما في الصورة التالية

جرب تعديل الحقول التي تحوي اسماء الي ترميز اللعة العربية عند التصدير Print #FileNum, "N;LANGUAGE=en-us;CHARSET=windows-1256:" & FirstName & ";" & LastName & ";;;" Print #FileNum, "FN;CHARSET=windows-1256:" & FullName

ممتاز !.....و قد سبق لي ان عملت شيئأً بهذا الخصوص انظر المرفق Add_Hyper to all_sheets.xlsm

إذا كانت أخطاء المحرر لايمكن إختابارها داخل محرر الشفرة؛ فأعتقد أنه من الممكن تصيدها باستخدام الوظيفة ()Eval، إذ أن هذه الوظيفة مهمتها الأساسية هي تقييم التعابير وإعادة النتايج التي تخرج عن تلك التعابير؛فاذا كانت التعبير يحتوي على وظائف وإجراءات مفقودة فإن الوظيفة ()Eval ستعيد رسالة خطأ بالرقم 2425 مفادها "يحتوي التعبير على وظيفة مفقودة".. وبهذا نكون سحبنا الخطأ إلى داخل محرر الشفره وبالتالي يمكننا تصيده بالطريقة المعتادة.. Control VBE Error.accdb

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

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

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

انظر الى هذا الملف SHEIT salim.xlsx

تم تعريف مجموعة السجلات التي نعمل من خلالها في النموذج لنتجول بها حتى نهايتها فاذا كانت قيمة الحقل ID في مجموعة السجلات متطابقة مع قيمة الحقل OrderID في النموذج تظهر لنا رسالة تؤكد ان القيمة التي ننوي ادراجها ضمن مجموعة السجلات موجودة اصلا و ستحدث تكرارا ، لذا يتم الغاء القيمة المدخلة في الحقل ، تم نخرج من سلسلة مجموعة السجلات ولا داعي لاستكمال التجوال لنهاية السجلات . في حال لم نجد تطابقا في القيمة في السجل الذي وصلنا له ، ننتقل للسجل التالي و نستمر بالتقدم حتى نهاية مجموعة السجلات . و اذا لم نجد تطابقا يتحقق التحديث لقيمة الحقل و تثبت القيمة كونه لم يتحقق الشرط ( تطابق قيمة الحقل ID في مجموعة السجلات مع قيمة الحقل OrderID في النموذج ) و السلام ختام ...

بالطبع توجد طريقة وهي : من تبويب إدراج ستجد خيار إدراج كائن ومنه ستجد خيار من ملف نصي سيظهر مربع لتحديد الملفات المراد دمجها قم باختيارها وستتم عملية دمج جميع الملفات المحددة

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

لم تفدنا بالرد