م. فراس الكيلاني

شرح للشيء الذي أطلبه

السلام عليكم
أريد ملف اكسل يحتوي دالة تقوم بالترتيب الأبجدي أولا حسب الكنية وثانيا حسب الإسم الذي قبل الكنية مع الاقتران بالرقم التسلسلي نفسه قبل البحث و بعده

تستطيع ان تعدل المعادلات باستبدال للرقم 40 بأي رقم تريده

هذا الشيء( امر التعديل ) أعرفه... ولكن أحببت أن انوه لك

شكرا

تم التعديل على الملف حسب ما تريد

انظر الى الصفحة الثانية واضغط افضل اجابة (اذا كانت كذلك)

شكرا لك أخي لكن الكود الذي أرفقته انت لا يقوم بعمل عزل لأكثر من 39 سطر

لقد حصلت على الذي أريده من اجابة الأخ ياسر

أكرر شكري لك

هذه صورة تمثل الذي أطلبه من الكود
 

عسى ان يكون المطلوب

شكرا لمجهودك

ولكنه ليس المطلوب :-(

لا اريد من الكود أن يقوم بإزالة اسم الأب

اريده أن يضع  في العمودين الجديدين الأسماء التي كانت أصلا بلا اسم أب أو الأسماء التي كانت خاناتها فارغة في العمود الجديد مقترنة بنفس الرقم الذي كان في الخانة المجاورة لها من العمود المجاور

أنا لدي هذا الكود ولكنه يقوم فقط بعزل الأسماء ووضعها في خانات جديدة
اي انا لا يقوم بعزل الخانات الفارغة
وفي الحالتين السابقتين ( عزل الأسماء الفارغة والغير فارغة ) لا يقوم بوضع الرقم المرفق بعد العزل
Sub ExtractTwoNames()
'يقوم الكود باستخراج الأسماء الفردية و الثنائية ويضع النتائج في العمود الثاني'----------------------------------------------------------------------------
Dim Rng As Range, Cell As Range
Dim lRow As Long

Set Rng = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
lRow = 2

Application.ScreenUpdating = False
For Each Cell In Rng
If kh_Names(Trim(Cell.Value), 1) = Trim(Cell.Value) Or kh_Names(Trim(Cell.Value), 1, 2) = Trim(Cell.Value) Then Cells(lRow, 2) = Trim(Cell): lRow = lRow + 1
Next Cell
Application.ScreenUpdating = True
End Sub

Function kh_Names(FullName As String, ParamArray iNdex1()) As String
Dim I As Integer
Dim kh_Split, MyArray, Ar
Dim Kh_String As String, Sn As String, Re As String

On Error GoTo Err_Kh_Names

MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله")

Sn = Application.WorksheetFunction.Trim(FullName)
For Each Ar In MyArray
Re = Replace(Ar, " ", "^")
Sn = Replace(Sn, Ar, Re)
Next

kh_Split = Split(Sn, " ", , vbTextCompare)

On Error Resume Next
For I = 0 To UBound(iNdex1)
Kh_String = Kh_String & " " & kh_Split(iNdex1(I) - 1)
Next
On Error GoTo 0

Kh_String = Replace(Trim(Kh_String), "^", " ")
kh_Names = Kh_String

Exit Function

Err_Kh_Names:
kh_Names = ""
End Function

السلام عليكم
لدي ملف الإكسيل المرفق
أريد كود ينفذ ما يلي:
1- عزل الأسماء التي لديها اسم اب عن التي ليس لديها اسم أب بحيث تكون الخانات بعد العزل مقترنة بالرقم المرفق معها قبل العزل وموضوعة لوحدها
2- عزل الخانات الفارغة عن الخانات المليئة بحيث تكون الخانات بعد العزل مقترنة بالرقم المرفق معها قبل العزل وموضوعة مع الخانات التي تنتج عن الطلب 1
 وشكرااا جزيلللا

New Microsoft Excel Worksheet.rar

جزاك الله كل خير
أليس من المفروض أن يعمل الكود لوحده في العمود الثاني؟
ماذا يجب أن أفعل بعد أن اقوم بفتح الملف المرفق؟
المفروض أنه يقوم بالفرز بشكل تلقائي ...لكنه لم يقم بذلك
هل يجب أن افعل شي؟
شكرا لك على وقتك
 

هذا هو الملف

1.rar

يا حبذا لو ترفع لي ملف اكسل  مضاف اليه الكود..لأنني لم اتعلم كيفية اضافة كود بعد :-(

شكرا لتواصلك

في الملف يوجد مثال عن الذي اريده

العمود الاول موجود فيه الأسما مع اسم االأب

العمود الثاني الأسماء بدون اسم الأب ( بعد الفرز )

لم يمكنني المستعرض من رفع الملف

هذه صورة مرفقة

 

طبعا اسماء الشهرة غير متشابهة والملف اكبر من الذي ارسلته في الصورة

شكرا لتواصلك
في الملف يوجد مثال عن الذي اريده
العمود الاول موجود فيه الأسما مع اسم االأب
العمود الثاني الأسماء بدون اسم الأب ( بعد الفرز )
لم يمكنني المستعرض من رفع الملف
هذه صورة مرفقة
 

السلام عليكم
لدي عمود واحد  فيه أسماء ثلاثية ( الإسم و اسم الأب والشهرة ) وأسماء ثنائية (الإسم والشهرة )
أريد نص برمجي يقوم بعزل الأسماء التي لايوجد فيها اسم الاب عن الأسماء التي يوجد فيها اسم الأب
وشكرا

لقد عرفت السبب....شكرراااااا جزيللللااااا

لكن ما هو حل هذه المشكلة
المشكلة أن الإسم لا يظهر
 

123.rar

شكرا أحي
لكنني في حال رغبت بإضافة أسماء ومن ثم فرزها ومن ثم اعادة عكسها فماذا أفعل؟

حسنأ هذا مرفق للنص
هل من الممكن أن اعرف كيف يمكن عكس النص؟
لقد بحثت عن الطريقة في الإنترنت لكنني لم أجدها
وشكرا جزيلا لكم

مثال.rarحسنأ هذا مرفق للنص
هل من الممكن أن اعرف كيف يمكن عكس النص؟
لقد بحثت عن الطريقة في الإنترنت لكنني لم أجدها
 

السلام عليكم
لدي عمود من الأسماء المكتوبة باللغة العربية  و أريد فرز هذه الأسماء فرزاً أبجديا من اليسار إلى اليمين
أي ليس كما في الحالة العادية من اليمين إلى اليسار
هل من طريقة ؟