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

السلام عليكم هذه محاولة حسب فهمي ارجو ان تكون طلبك ملاحظة :1- الطريقة مستوحاة من طريقة استاذ جعفر بتحويل الرقم الى نص 2- الترتيب الحرفي يعتمد على جميع احرف الاسم الاول ثم الثاني وهكذا مثلا : ابراهيم ياسين=128 تاتي قبل احمد ايمن=11 كذلك الاسماء الثلاثية وان كانت جميعها بحرف الياء ستاتي دائما قبل الاسماء الرباعية وان كانت جميعها بحرف الالف لذا لايمكن عمل ترتيب تسلسلي رقمي حرفي هذا حسب فهمي لطلبك وعذرا للاطالة RootNo.rar

تم معالجة الجرء الأول لكن الجزء الثاني فيه غموض (ربما بسبب الكتابة ياللغة العربية والأحنبية معاً بحيث لا تبدو المعطيات مفهومة) اضغط الزر User لاظهار اليوزر test RJS .xlsm

الشكر لله اخي العزيز نعم ممكن بدل حلقة التكرار في الوحدة التمطية من For i = 0 To UBound(NameArr) الى For i = UBound(NameArr) To 0 Step -1

كان من المفروض رفع ملف ولا تتكّل على أحد في انشاء ملف لك جرب هذا الشيء (فقط اضغط على الزر Run Please ) Numerical_names.xlsm

استاذنا الفاضل / @husamwahab ما شاء الله عليك ربنا يزيدك علما ويجزاك كل خير اتعلمت من حضرتك الكثير

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

أخانا العزيز/ شحادة، جزاكم الله خيرا على ما قدمته لإخوانك، ومن باب الإسهام في نشر الخير، قمت بعمل قائمة بالحروف التي لا يمكن أن تجتمع في كلمة واحدة، وإذا حدث ذلك فإنه يعني أن هناك خطأ في بنية الكلمة، أو أن هذه الكلمة غير عربية، وقد جمعتها في ماكرو، لأجريه على الملف قبل تصحيحه ليكتشف هذه الأخطاء. فإن رأيت أن تضيف هذا على إضافة البيان في قسم التصحيح، كان حسنا، هذا مجرد رأي، والأمر كما تراه، وهذه قائمة بالحروف من خلال الماكرو: ' حروف لا تجتمع With Selection.Find .Text = "س[شظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ظ[صدذزسشحخثجصطغقظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ظثذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ث[صث]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ث]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ج[خ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "خ[ظغخ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ع[خحغعأ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "خ[غخ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ق[خج]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ذ[سشطغذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ص[ذ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ط[ذسذزصظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ز[س]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ط[ذزصظ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ع[أحخغع]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "غ[أجحخعغق]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ق[ج]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ه[حخصعغ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "ح[ح]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll With Selection.Find .Text = "د[ز]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchDiacritics = True .MatchAlefHamza = True .MatchWildcards = True End With Selection.Find.Execute replace:=wdReplaceAll * ملحوظة: عندي كذلك قائمة بأخطاء التشكيل المتكررة، إن أعجبك الأمر، تحياتي لشخصكم الكريم.

السلام عليكم .... شكرا جزيلا على مساعدتكم وبارك الله فيكم ... وارجوا الاعتذار لعدم سرعة الرد في شكركم

يسعدك أخي الغالي شحادة على هذا الجهد الطيب اطلعت على جميع الفيديوهات بارك الله فيك، ويجزيك عنا خير الجزاء

السلام عليكم ورحمة الله وبركاته تم نشر الإصدار الثالث من إضافة البيان البحثية، والذي يعتبر طفرة نوعية في الإضافة، وهنا فيديو تعريف عام بإضافة البيان البحثية: وفي قائمة التشغيل التالية 28 فيديو، شرحت من خلالها كل خصائص ومزايا الإضافة: https://www.youtube.com/playlist?list=PLgE9kJofiSYLmeDIrJ8qnzNwbUKAP7QG6

خالص شكري وتقديري استاذ عبدالرحيم جزيت خيرا يا اخي متشكر جدا يا استاذ علي ما قمت به هو المطلوب واكثر شكرا جزيلا جزيت خيرا

وعليكم السلام ورحمة الله وبركاته اتمنى ان يكون طلبك .الكود يشتغل الى 500 صف يمكنك زيادتها الى ما تشاء وذلك بتغيير 500 الى العدد المطلوب في الكود Work.xlsm

ارفع هذه الورقة في ملف مستقل و بدون تنسبق ألوان تبهر النطر و شاشة سوداء يتشائم منها الانسان و بدون اي كود

طبعاً بعد اذن استاذنا عبد الرحيم ... ولإثراء الحل - تفضل على الرغم من تكرار هذه الموضوعات بالمنتدى 19.xlsm

تفضل جرب OK_18.xlsm

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