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

[أبن المدينة]

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

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

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

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

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

 

 

تم تعديل أغسطس 21, 2016 بواسطه أبن المدينة

[سليم حاصبيا]

اين  الملف المرفق

[أبن المدينة]

ماعرف طريق رفع الملف

[أبن المدينة]

تم رفع الصورة

 

[سليم حاصبيا]

جرب هذا الملف

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

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

تم تعديل أغسطس 21, 2016 بواسطه سليم حاصبيا

[أبو حنف]

اضافة على حل أخينا سليم

هذا حل بسيط بالمعادلات  

ضع هذه المعادلة في الخلية h1 ثم اسحب لأسفل 

=CONCATENATE(A1; " ";B1; " ";C1;" "; D1;" ";E1)

 

join_names.rar

[أبو جاسم]

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

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

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

 

 

New Microsoft Excel Worksheet.rar

[سليم حاصبيا]

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

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

Split.rar

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

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

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

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

 

 

New Microsoft Excel Worksheet.rar

 

تم تعديل أغسطس 22, 2016 بواسطه سليم حاصبيا

[أبو جاسم]

جزاك الله خير

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

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

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

 

 

[أبو حنف]

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

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

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

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

مثال .....

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

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

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

تقبل تحياتي

[أبو جاسم]

الف شكر لحضرتك

وصلت المعلومة كاملة

جزاك الله خير

 

[أبن المدينة]

بارك الله فيكم جميعاً

واعتز بكم

 

[أبن المدينة]

اخواني

مطلوب عملية نسخ الاسماء الي ملف اخر

ودمتم سالمين

[عامر ياسر]

في ‏٢٢‏/‏٠٨‏/‏٢٠١٦ 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

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