اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

فى البداية

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


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



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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

اخيك البحيرى

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

==

ملاحظة

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

رابط هذا التعليق
شارك

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

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

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

جزاك الله خير

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information