رجب جاويش قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 السلام عليكم ورحمة الله وبركاته هذه بعض المحاولات فى تجزئة الأسماء فى عدة خلايا متجاورة وهى محاولات متواضعة خاصة مع وجود دوال وطرق كثيرة لفصل الأسماء وتجزئتها وخصوصا الدالة المعرفة الرائعة لأستاذنا الكبير / عبد الله باقشير يتم الفصل اعتمادا على وجود مسافة فاصلة " " بين الأسماء فى البداية أولا : باستخدام كود 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 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 ثانيا باستخدام دالة معرفة Function RG_split(cl As Range, v As Integer) RG_split = Split(cl, " ")(v - 1) End Function طريقة استخدام الدالة =RG_split(A2;1) لفصل الاسم الأول نضع الرقم 1 ولفصل الاسم الثانى نضع الرقم 2 وهكذا كما فى الملف المرفق فى النهاية كل الشكر والإمتنان لأستاذى الحبيب / عبد الله باقشير الذى أتعلم منه الكثير والكثير لأنه الكنز الذى أنهل منه هذه المعلومات دالة معرفة لفصل الأسماء.rar رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 الله يفتح عليك يا أستاذنا جربته بالإنجليزي كمان ( مع الإلتزام بوجود مسافة بين كل أسم ) و شغال تمام سلمت الأيادي و الأفكار رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 أخى الفاضل / أبو ردينة شكرا جزيلا أخى الفاضل وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الخالدي قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 السلام عليكم ورحمة الله وبركاته بارك الله فيك استاذ رجب كما عودتنا افكار ممتازة اسعدني المرور على موضوعك في أمان الله رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 أستاذى الفاضل / الخالدى شرف كبير جدا لى هذا المرور الكريم من صاحب اللمسات السحرية والأستاذ الكبير الخالدى تقبل أرق وأجمل تحياتى رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 السلام عليكم بارك الله فيك اخي الحبيب رجب احسنت عملا هذه فقط زيادة معلومات لا غير معلومة: 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 تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
Eid Mostafa قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 أخى الحبيب / رجب ============ السلام عليكم ورحمة الله وبركاته ،،،،، عمل أكثر من رائع وأفكار ممتازة أحييك عليها تقبل مرورى ================= أخوك عيد مصطفى رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 أستاذى الحبيب / عبد الله باقشير زادك الله علما وتواضعا فما رأيت مثل تواضعك وأسلوبك الراقى فى تعليم تلاميذك أدامك الله لنا معلما ومبدعا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 أخى الحبيب / عيد مصطفى جزالك الله كل خير اخى الحبيب على هذا المرور العطر والكلمات الطيبة تقبل أرق وأجمل تحياتى رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر نوفمبر 3, 2012 مشاركة قام بنشر نوفمبر 3, 2012 اخى رجب اعمال رائعة بارك الله فيك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 3, 2012 الكاتب مشاركة قام بنشر نوفمبر 3, 2012 أخى الفاضل / سعد عابد شكرا جزيلا أخى الفاضل على هذا المرور العطر وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر نوفمبر 4, 2012 مشاركة قام بنشر نوفمبر 4, 2012 بارك الله فيك أستاذي وزادك الله من واسع علمه ماشاء الله شئ رائع وأعمال مفيدة لكل من أراد الأحتفاظ بشئ ذو قيمة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 4, 2012 الكاتب مشاركة قام بنشر نوفمبر 4, 2012 شكرا جزيلا لك أخى الحبيب محمود جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر نوفمبر 4, 2012 مشاركة قام بنشر نوفمبر 4, 2012 احسنت استاذ رجب فى بعض الاعمال الادارية بالمدارس نحتاج اسم ولى الامر ثلاثى بمعنى لغى الاسم الاول ولكم جزيل الشكر اخيك البحيرى رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر نوفمبر 4, 2012 مشاركة قام بنشر نوفمبر 4, 2012 عمل رائع استاذ رجب كعادتك ولكن اذا وضعت اسم مثلاً عبد الله محمد العتيبي --------- النتيجة انه يفصل عبد كلمة والله كلمة ، وليست عبد الله كلمة واحدة وهكذا اذا وضعنا اي اسم عبارة عن كلمتين مثال ( ابو المجد - ابو ياسين ....) رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 بارك الله فيك وفي علمك وفي عمرك وجزاك الله كل خير أريد دالة لتجزئة الأرقام مثلا 123456789 أريد 03 أرقم الأخير أو 04 أو حسب اإحتياج رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 أخى الفاضل / أحمد البحيرى مرحبا بعودتك مرة أخرى ونورت المنتدى هذه فكرة فى البداية وجارى تطويرها رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 أخى الفاضل /office 2003 جزاك الله كل خير على هذه الكلمات الطيبة بالنسبة للأسماء المركبة يمكن كتابتها بدون مسافة مثل (عبدالله ) بدلا من ( عبد الله ) لأن هذا الكود يفصل الكلمات اعتمادا على المسافة الموجودة بينها رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 أخى الفاضل / ريان أحمد جزاك الله كل خير برجاء توضيح طلبك بشكل محدد بالنسبة لفصل الأرقام حتى يتم عمل اللازم ان شاء الله رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 المثال في المرفق yy.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 عمل موفق استاذ رجب اسلوب راقي في ايصال المعلومة والشرح للاستاذ عبدالله باقشير نور الموضوع اخونا احمد البحيري (غائب من زمان) == ملاحظة الاخوة الذين لديهم طلبات الافضل وضعها في مواضيع منفصلة كطلبات للفائدة وسهولة البحث رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 أخى الفاضل / عبد الله المجرب شكرا جزيلا أخى الفاضل على هذا المرور العطر وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر نوفمبر 5, 2012 الكاتب مشاركة قام بنشر نوفمبر 5, 2012 أخى الفاضل / ريان أحمد تفضل ما تريد yy.rar رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر نوفمبر 5, 2012 مشاركة قام بنشر نوفمبر 5, 2012 الأستاذ القدير / رجب جاويش ما شاء الله عليك وهذا ليس غريب على أمثالك أستاذنا جزاك الله خير وبارك الله فيك وزادك الله علما ورفعة تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان