كود ودالة معرفة لتجزئة الأسماء

[رجب جاويش]

السلام عليكم ورحمة الله وبركاته

هذه بعض المحاولات فى تجزئة الأسماء فى عدة خلايا متجاورة

وهى محاولات متواضعة خاصة مع وجود دوال وطرق كثيرة لفصل الأسماء وتجزئتها

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

يتم الفصل اعتمادا على وجود مسافة فاصلة " " بين الأسماء

فى البداية

أولا : باستخدام كود

Sub ragab()

Dim newsplit As Variant

Dim x As Integer, cl As Range

Dim Row_cl As Integer, col_cl As Integer

'============================================

LR = [A1000].End(xlUp).Row

'============================================

For Each cl In Range("A2:A" & LR)

    Row_cl = cl.Row

    col_cl = cl.Column

    newsplit = Split(cl, " ")

    x = UBound(newsplit)

    Range(Cells(Row_cl, col_cl + 1), Cells(Row_cl, col_cl + 1 + x)).Value = newsplit

Next

End Sub

تقسيم الإسم.rar

[رجب جاويش]

ثانيا باستخدام دالة معرفة

Function RG_split(cl As Range, v As Integer)

RG_split = Split(cl, " ")(v - 1)

End Function

طريقة استخدام الدالة

=RG_split(A2;1)

لفصل الاسم الأول نضع الرقم 1 ولفصل الاسم الثانى نضع الرقم 2 وهكذا

كما فى الملف المرفق

فى النهاية

كل الشكر والإمتنان لأستاذى الحبيب / عبد الله باقشير الذى أتعلم منه الكثير والكثير لأنه الكنز الذى أنهل منه هذه المعلومات

دالة معرفة لفصل الأسماء.rar

[أبو ردينة]

الله يفتح عليك يا أستاذنا

جربته بالإنجليزي كمان ( مع الإلتزام بوجود مسافة بين كل أسم ) و شغال تمام

سلمت الأيادي و الأفكار

[رجب جاويش]

أخى الفاضل / أبو ردينة

شكرا جزيلا أخى الفاضل

وجزاك الله كل خير

[الخالدي]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك استاذ رجب

كما عودتنا افكار ممتازة

اسعدني المرور على موضوعك

في أمان الله

[رجب جاويش]

أستاذى الفاضل / الخالدى

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

تقبل أرق وأجمل تحياتى

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي الحبيب رجب

احسنت عملا

هذه فقط زيادة معلومات لا غير

معلومة: 1

المتغير الافتراضي delimiter

للدلة Split

مسافة واحدة (" ")

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

 newsplit = Split(cl)

معلومة: 2 بامكانك اختصار امر اضافة اجزاء الاسم بسطر واحد

cl.Offset(0, 1).Resize(1, UBound(newsplit) + 1).Value = newsplit

اضافة التغييرات الى الدالة

Sub ragab()

Dim newsplit

Dim cl As Range

Dim LR As Long

'============================================

LR = [A1000].End(xlUp).Row

'============================================

For Each cl In Range("A2:A" & LR).Cells

newsplit = Split(Application.Trim(cl))

cl.Offset(0, 1).Resize(1, UBound(newsplit) + 1).Value = newsplit

Next

End Sub

تقبل تحياتي وشكري

[Eid Mostafa]

_{أخى الحبيب / رجب}

============

_{السلام عليكم ورحمة الله وبركاته ،،،،،}

_{عمل أكثر من رائع}

_{وأفكار ممتازة أحييك عليها}

_{تقبل مرورى}

_{=================}

_أخوك

_{عيد مصطفى}

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

زادك الله علما وتواضعا

فما رأيت مثل تواضعك وأسلوبك الراقى فى تعليم تلاميذك

أدامك الله لنا معلما ومبدعا

[رجب جاويش]

أخى الحبيب / عيد مصطفى

جزالك الله كل خير اخى الحبيب على هذا المرور العطر والكلمات الطيبة

تقبل أرق وأجمل تحياتى

[saad abed]

اخى رجب

اعمال رائعة

بارك الله فيك

[رجب جاويش]

أخى الفاضل / سعد عابد

شكرا جزيلا أخى الفاضل على هذا المرور العطر

وجزاك الله كل خير

[جمال عبد السميع]

بارك الله فيك أستاذي وزادك الله من واسع علمه

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

[رجب جاويش]

شكرا جزيلا لك أخى الحبيب محمود

جزاك الله كل خير

[Ahmed Elbhiry]

احسنت استاذ رجب

فى بعض الاعمال الادارية بالمدارس نحتاج اسم ولى الامر ثلاثى بمعنى لغى الاسم الاول

ولكم جزيل الشكر

اخيك البحيرى

[اوفيس 2003]

عمل رائع استاذ رجب كعادتك

ولكن اذا وضعت اسم مثلاً عبد الله محمد العتيبي --------- النتيجة انه يفصل عبد كلمة والله كلمة ، وليست عبد الله كلمة واحدة وهكذا اذا وضعنا اي اسم عبارة عن كلمتين مثال ( ابو المجد - ابو ياسين ....)

[ريان أحمد]

بارك الله فيك وفي علمك وفي عمرك وجزاك الله كل خير

أريد دالة لتجزئة الأرقام مثلا 123456789 أريد 03 أرقم الأخير أو 04 أو حسب اإحتياج

[رجب جاويش]

أخى الفاضل / أحمد البحيرى

مرحبا بعودتك مرة أخرى ونورت المنتدى

هذه فكرة فى البداية وجارى تطويرها

[رجب جاويش]

أخى الفاضل /office 2003

جزاك الله كل خير على هذه الكلمات الطيبة

بالنسبة للأسماء المركبة يمكن كتابتها بدون مسافة مثل (عبدالله ) بدلا من ( عبد الله )

لأن هذا الكود يفصل الكلمات اعتمادا على المسافة الموجودة بينها

[رجب جاويش]

أخى الفاضل / ريان أحمد

جزاك الله كل خير

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

[ريان أحمد]

المثال في المرفق

yy.rar

[عبدالله المجرب]

عمل موفق استاذ رجب

اسلوب راقي في ايصال المعلومة والشرح للاستاذ عبدالله باقشير

نور الموضوع اخونا احمد البحيري (غائب من زمان)

==

ملاحظة

الاخوة الذين لديهم طلبات الافضل وضعها في مواضيع منفصلة كطلبات للفائدة وسهولة البحث

[رجب جاويش]

أخى الفاضل / عبد الله المجرب

شكرا جزيلا أخى الفاضل على هذا المرور العطر

وجزاك الله كل خير

[رجب جاويش]

أخى الفاضل / ريان أحمد

تفضل ما تريد

yy.rar

[الشهابي]

الأستاذ القدير / رجب جاويش

ما شاء الله عليك

وهذا ليس غريب على أمثالك أستاذنا

جزاك الله خير

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

وزادك الله علما ورفعة

تقبل تحياتي