أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





دمج عدة خلايا في خلية واحدة

السلام عليكم أرجو المساعدة في الملف المرفق استعملت الدالة concatener لجمع عدة خلايا في خلية N10 كما يتبين في الملف الم ..


موضوع مغلق


06-01-2021 05:28 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم 
أرجو المساعدة في الملف المرفق 
استعملت الدالة concatener لجمع عدة خلايا في خلية N10 كما يتبين في الملف المرفق لكن التواريخ تظهر على شكل أرقام و لم أستطع فك اللغز 
و شكرا
 
 
  ملف.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(15.342) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذه الكود

Option Explicit

Sub concat()
Dim ar(), Itm
Dim stR$
Sheets("Feuil1").Range("N11").ClearContents
ar = Array("H5", "D11", "H11", "C12", "F12", "H12" _
, "i12", "E15", "F15", "G15", "K15", "G17", "H17", "J17")
  For Each Itm In ar
   stR = stR & " " & Sheets("Feuil1").Range(Itm)
  Next
Sheets("Feuil1").Range("N11") = stR
End Sub

الملف مرفق
عرض الإجابة




06-01-2021 06:40 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif دمج عدة خلايا في خلية واحدة
جرب هذه الكود

Option Explicit

Sub concat()
Dim ar(), Itm
Dim stR$
Sheets("Feuil1").Range("N11").ClearContents
ar = Array("H5", "D11", "H11", "C12", "F12", "H12" _
, "i12", "E15", "F15", "G15", "K15", "G17", "H17", "J17")
  For Each Itm In ar
   stR = stR & " " & Sheets("Feuil1").Range(Itm)
  Next
Sheets("Feuil1").Range("N11") = stR
End Sub

الملف مرفق
 
 
  AYUOUB.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(29.621) KB


06-01-2021 08:13 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif دمج عدة خلايا في خلية واحدة
ألف شكر أستاذ سليم و لكن الرقم الموجود في الخلية N5 عند الدمج يجب أن يظهر في أول السطر و ليس في الأخر
 

06-01-2021 08:21 مساء
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif دمج عدة خلايا في خلية واحدة
l5CbB_ARRAY
افعل ما في هذه الصورة
 
 
 


06-01-2021 08:30 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif دمج عدة خلايا في خلية واحدة
تمام مع تحياتي



الكلمات الدلالية
خلايا ، خلية ، واحدة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:55 مساء