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

اظهار الاسماء


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

اخواني استاذة المنتدى

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

مطلوب اظهار الاسماء في الخلايا فخلية واحده

كما يتضح لكم من الملف المرفق

ودمت في رعاية الله

 

 

اظهار الاسماء.png

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

جرب هذا الملف

لعمل ذلك يجب ادخال هذا المكرو في موديل مستقل في ملفك

Function joincels(rg As Range)
 s = ""
If rg.Rows.Count <> 1 Then joincels = "Error": Exit Function
  For Each cel In rg
  If cel <> "" Then
 s = s & cel & " "
    End If
    Next
    joincels = s
End Function

join_names.rar

تم تعديل بواسطه سليم حاصبيا
  • Like 2
رابط هذا التعليق
شارك

ممكن ذلك اذا استعملت المرفق و ضغطت على الزر Run

انظر هذا الملف

Split.rar

1 ساعه مضت, محمد المحمودي said:

طب ممكن اعرف العكس

يعني لو عندي الأسم كامل  وأريد أن يكون كل إسم في خانه مستقلة

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

 

 

New Microsoft Excel Worksheet.rar

 

تم تعديل بواسطه سليم حاصبيا
  • Like 2
رابط هذا التعليق
شارك

جزاك الله خير

هذا هو المطلوب ولكني لايمكنني تطبيقها

إذا ممكن يكون في معادلة يكون أحسن أو إزاي اطبق الماكرو الخاص بها

وشكرا جزيلا جدا أخى الأستاذ سليم على إهتمامك

 

 

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

أخي محمد بدون معادلات أو أكواد

إليك الحل التالي :

قم بكتابة الأسماء التي تريد في العمود a

ثم في الخانات b1,c1,d1,e1 قم بتجزئة أول اسم كما تريد 

مثال .....

الاسم / محمد محمود علي اسماعيل وهو في الخلية a1

الخليةb1 محمد ،، والخلية c1 محمود ،، والخلية d1 علي،، والخلية e1 اسماعيل

ثم الخطوة الأخيرة قف في الخلية الثانية من كل عامود ومن شريط القوائم في اكسيل ستجد الزر السحري "تعبئة سريعة" اضغط عليه وسترى النتيجة الفورية

تقبل تحياتي

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

  • 1 year later...
في ‏٢٢‏/‏٠٨‏/‏٢٠١٦ at 00:41, سليم حاصبيا said:

جرب هذا الملف

لعمل ذلك يجب ادخال هذا المكرو في موديل مستقل في ملفك


Function joincels(rg As Range)
 s = ""
If rg.Rows.Count <> 1 Then joincels = "Error": Exit Function
  For Each cel In rg
  If cel <> "" Then
 s = s & cel & " "
    End If
    Next
    joincels = s
End Function

join_names.rar

هذا الابداع من اين ... هذا كنز وكنت ابحث عنه وهو يفيد في عملي جزاك الله كل خير وحشرك مع الصالحين 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information