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

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


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





فصل بعض الكلمات بالخليه الواحده

السلام عليكم ورحمة الله وبركاته هل يمكن فصل بعض الكلمات بالخليه الواحده واظهارها في خليتين اخرى لمشاهدة الروابط يلزمك ا ..


موضوع مغلق


24-08-2020 05:51 صباحا
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
هل يمكن فصل بعض الكلمات بالخليه الواحده واظهارها في خليتين اخرى
MTAwNjM2MQ4747466
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  فصل بعض الكلمات بالخليه الواحدة.xlsm   تحميل xlsm مرات التحميل :(0)
الحجم :(8.941) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim c As Range, s As String, x As String, y As String
    For Each c In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        s = Empty: x = Empty: y = Empty
        s = Split(c.Value, Chr(10))(1)
        x = Split(s, "-")(0)
        If InStr(c.Value, "-") Then y = Split(s, "-")(1)
        c.Offset(, 1).Value = x
        c.Offset(, 2).Value = IIf(y = Empty, "-", y)
    Next c
End Sub
عرض الإجابة




24-08-2020 07:22 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif فصل بعض الكلمات بالخليه الواحده
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim c As Range, s As String, x As String, y As String
    For Each c In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        s = Empty: x = Empty: y = Empty
        s = Split(c.Value, Chr(10))(1)
        x = Split(s, "-")(0)
        If InStr(c.Value, "-") Then y = Split(s, "-")(1)
        c.Offset(, 1).Value = x
        c.Offset(, 2).Value = IIf(y = Empty, "-", y)
    Next c
End Sub

24-08-2020 08:01 صباحا
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif فصل بعض الكلمات بالخليه الواحده
شاكر فضل حضرتك استاذ ياسر،، جزاك الله كل خير

24-08-2020 08:26 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif فصل بعض الكلمات بالخليه الواحده
وجزيت خيراً بمثل ما دعوت لي وزيادة
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات.

24-08-2020 09:42 صباحا
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif فصل بعض الكلمات بالخليه الواحده
بعد اذن اخي ياسر
تم ادارج صف فارغ (7) وعامودفارغ (B) لفصل الجدول عن باقي الخلايا الثابتة
(لا أعلم ما السبب في هذا الحجم الكبير للملف مما اضطرني ان اقوم بضغطه)
كود اخر يقوم بنفس المهمة

Option Explicit
Sub separet_mot()
Dim st$, Ar
Dim mot$, LR%, X%
LR = Cells(Rows.Count, 1).End(3).Row
If LR < 8 Then Exit Sub
Range("C8").CurrentRegion.ClearContents
For X = 8 To LR
 mot = Mid(Range("A" & X), 1, InStr(Range("A" & X), Chr(10)))
  st = Replace(Range("A" & X), mot, "")
  st = Trim(st)
  st = Replace(st, " - ", " ")
  Ar = Split(st)
  Range("C" & X).Resize(, UBound(Ar) + 1) = Ar
  Erase Ar
 Next
End Sub


الملف مرفق
تم ضبط حجم الملف ... وذلك لأن الأخ نصر قام بتسطير الصفحة كلها مما ادى الى زيادة حجم الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Separete_Mots.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(18.408) KB


24-08-2020 01:35 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif فصل بعض الكلمات بالخليه الواحده
بارك الله فيك أخي  العزيز جدو سليم ومشكور على إثراء الموضوعات بهذه الأكواد والهدايا المميزة.



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


 










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

الساعة الآن 07:56 مساء