ميدو63

الأستاذ الفاضل كريم نظيم اشكرك جزيلا على سرعة الرد وعلى أعادة توضيح مكونات الرقم القومى.. وما اسأل عنه هو الفقرة التالية من توضيحك (أما بالنسبة للرقم الأخير فوضعته وزارة الداخلية للتحقق من صحة الرقم القومي وأن البطاقة ليست مزورة، ويختلف الرقم من بطاقة لأخرى بين الرقم 1 و9.) ووضع هذا الرقم من 1 إلى 9 ( وهو الرقم الرقابي) الذي استفسر عنه - ويكون ناتج عمليات حسابية على جزء من أو كل مكونات الرقم القومى ومن خلال أجراء تلك العمليات الحسابية يتضح ما إذا كان الرقم الناتج مثل الرقم الرقابي الظاهر أم لا فيكون كل الرقم القومى المكون من 14 رقم صحيح في حالة المطابقة بين ناتج الحساب و الرقم الرقابي هذا والعكس صحيح. شكر لك ومنتظر أن يفيدنا احد الاخوة

السادة الأفاضل كنت اعلم منذ سنوات ان هناك معادلة أو عمليات حسابية يتم عملها على الرقم القومى للتأكد من انه سليم وغير مركب (بدلالة الرقم الرقابي) - ولقد نسيتها تماما فهل يفيدنا احد الزملاء بهذه الخطوات... شكرا جزيلا.

الزملاء الافاضل ممكن رفع الموديول او الـــ Add-Ins هنا شكرا

أ/ خالد ممكن ترفع البرنامج هنا؟ شكرا

الزميل الفاضل ممكن تغير التاريخ تحت خلية (تاريخ تقديم الطلب) للشهر الذى تريده.

أخى برجاء مطالعة الموضوع التالى قد تج فية ما ترغب

بارك الله فيك

اشكرك اخى ملاحظتك كان سديدة ..تم العمل ..بارك الله فيك وعليك

اشكرك ..واسف على التاخير فى الرد

السلام عليكم ورحمة الله وبركاته ..الاساتذة والزملاء ..هذة محاولة لعمل كود للتصفية المتقدمة على شيت باستخدام تسجيل الماكرو ..وقد تم عمل التسجيل اكثر من مرة ولكن بعد اغلاق الشيت واعادة فتحة مرة اخرى يظهر هذا الخطا فهل ممكن المساعدة بالحل ..مرفق جدول اكسيل وصورة للخطأ ..تحياتى Advanced Filte VBA Code test2.xlsm

السلام عليكم .. لابد من التحية عند بدء أو مشاركة ،، الاساتذة الافاضل كيف يمكن اضافة او تعريف وظيفة على اكسيل 2021 ...تحياتى. LAMBDA Function انتبه من فضلك مشاركة مكررة ..فقد تم بالفعل حذف المشاركة الأخرى

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

اشكرك وبارك الله فيك

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

https://ar.extendoffice.com/documents/outlook/1166-outlook-save-all-attachments.html

ممكن الرابط التالى يفيدك https://www.officena.net/ib/topic/27597-مقارنة-بين-عمودين-فى-شيت-اكسل-والفائدة-للجميع/

يفضل وضع جدول دائما للعمل عليه ...هناك كود استخدمة ولا اتذكر مصدرة تجدة ادناه وبعد اضافتة للاكسيل شيت لا تنسى حفظ الجدول بصيغة الماكرو ..وبعدها هذة معادلة توضع بالخلية المراد فصل اسم الاب بها وهى والخلية (B5) هى الخلية التى بها الاسم كاملا =@Kh_Father_Name($B5) ولا تنسى قراءة ماهو مذكور بالكود ليتم فصل الاسم بشكل سليم والكود هو:- Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' True = kh_First اذا كان " ' او اي رقم غير الصفر " ' تقوم باستخراج الاسم الاول " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String, Optional kh_First As Boolean) As String Dim KhString As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " KhMyNo = InStr(1, KhString, " ", 1) If kh_First Then Kh_Mid = Trim(Mid(KhString, 1, KhMyNo)) Else _ Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "^", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function

بعد اذن استاذنا/ محمد صالح ..هل هذا ما تريدة Days_Medo.xlsx

أ/محمد صالح ...اشكر ك وسوف احاول التطبيق وان شاء الله انجح به ...بارك الله لك ..شكرا

السلام عليكم ...الزملاء الافاضل ..اهنئكم بقرب حلول عيد الاضحى المبارك ... مرفق ماكرو قمت بتسجيلة ويعمل على شيت واحد واحتاج ان امكن الى التالى:- 1- يعمل الكود على الـــ 4 شيتات التالية دون باقى الشيتات ( Specific Text / Product Sales / Custom Rule / Unique Values) 2- يعمل بمجرد فتح الـــ Worksheet (اى دون الضغط على زر او خلافة) 3- اختصار الكود ان امكن. ...شكرا مقدما ..وكل عام وجميعا بخير Conditional-Formatting-Text-Color.xlsm

عفوا استاذ/ محمد صالح اخى ممكن تجرب التعديل فى خانة القروش كما يلى:- IF(A44>=E43,A44-E43,100-(E43-A44))=

عمل ومجهود جميل بارك الله فيك وعفوا لى ملاحظة ( فلتر شهر فبراير لماذا لا يعمل) اشكرك على مجهود الكبير مرة اخرى

السلام عليكم هذا موقع يمكنك تنزيل ميزانيات شركات يمكن يفيدك ارجو ان لا اكون مخالف بوضع هذا اللينك. https://www.argaam.com/ar/company/financial-pdf/3

Up

ممكن يكون هذا طلبك https://www.youtube.com/watch?v=w00VNPMFVKE