فصل كلمات من سلسلة نصية لأعمدة مجاورة بدلالة رمز

[ًعبد من عباد الله]

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

كل عام وأنتم بخير وتقبل الله من الجميع

أود المساعدة في المثال المطروح والموضح في المرفق بعمل كود يستطيع فصل كلمات من سلسلة نصية في خلية كعناوين مستقلة ونقلها إلي خلايا في أعمدة مجاورة بدلالة الرمز الفاصل بينها مثل ( /  -  . )

وشكرا جزيلاً لكم

فصل كلمات من سلسلة نصية بدلالة رمز.xlsx

[Ali Mohamed Ali]

تفضل

 

فصل كلمات من سلسلة نصية بدلالة رمز-1.xlsm

[ًعبد من عباد الله]

أ - علي محمد علي

شاكر لحضرتك تكرمك بالمشاركة الفعالة والإيجابية واسمح لي مشكورا غير مأمور بعرض هذه الملاحظات

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

2- كيف تظهر النتيجة عند إضافة المزيد من البيانات فلا يوجد زر يعمل علي تفعيل عمل الكود ولا أعرف كيفية إظهار نتائج جديدة

أكرر شكري وتحياتي لك وجزاك الله خيرا

تم تعديل يونيو 12, 2018 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

للرفع

[shreif mohamed]

تفضل

فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

[ًعبد من عباد الله]

ما شاء الله أستاذ shreif mohamed بارك الله فيك

تم تحقيق المطلوب بفضل الله تعالي علي يديكم جزاكم الله خيراً واعتذر عن التأخير في الرد لعدم وجودي بالبيت

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

أي أن يتم فصل السلسلة النصية بنفس الطريقة ولكن بدون وجود الأرقام فيها.

ارجو ألا أكون قد أثقلت عليك وأكرر شكري وتحياتي لكم

 

تم تعديل يونيو 13, 2018 بواسطه وائل أبو عبد الرحمن

[shreif mohamed]

بارك الله فيك وشكرا لكلماتك الطيبة  واسال الله العظيم ان ينفعنا بما علمنا انه هو العليم الحكيم

تفضل

 

فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

[ًعبد من عباد الله]

عاجز عن الشكر أستاذ  shreif mohamed

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

كل عام وأنتم علي طاعة كل عام وأنتم بخير 

عيد فطر سعيد بإذن الله والسلام

[shreif mohamed]

جزاك الله خيرا وكل عام وانتم بخير

[Hamdi Edlbi-khalf]

الان, shreif mohamed said:

بارك الله فيك وشكرا لكلماتك الطيبة  واسال الله العظيم ان ينفعنا بما علمنا انه هو العليم الحكيم

تفضل

 

فصل كلمات من سلسلة نصية بدلالة رمز.xlsm

السلام عليكم

عمل أكثر من رائع و لكن ماذا لو أردنا أن يكون التقسيم بناء على مجموعة من القيم في خلايا .

لقد حاولت مع الكود الذي وضعه الأخ ALI MOHAMED ALI

ومع الكود الذي وضعته مشكوراً لكن الأمر لم ينجح سوى مع خلية واحدة

var = Replace(rng2, Range("f1").Value, "\")

كيف أجعله يقبل نطاق من الخلايا

شكراً لك و كل عام و أنت بخير

[shreif mohamed]

8 ساعات مضت, Khalf said:

السلام عليكم

عمل أكثر من رائع و لكن ماذا لو أردنا أن يكون التقسيم بناء على مجموعة من القيم في خلايا .

لقد حاولت مع الكود الذي وضعه الأخ ALI MOHAMED ALI

ومع الكود الذي وضعته مشكوراً لكن الأمر لم ينجح سوى مع خلية واحدة

var = Replace(rng2, Range("f1").Value, "\")

كيف أجعله يقبل نطاق من الخلايا

شكراً لك و كل عام و أنت بخير

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

لم افهم طلبك اخي ارجو الاستفاضة في التوضيح وكل عام وانتم بخير

تم تعديل يونيو 15, 2018 بواسطه shreif mohamed

[Hamdi Edlbi-khalf]

الان, shreif mohamed said:

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

لم افهم طلبك اخي ارجو الاستفاضة في التوضيح وكل عام وانتم بخير

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

و أشكرك على سعة صدرك .

أخي الفاضل ..

ما أبجث عنه هو تحديد بعض الخلايا لتكون خلايا إدخال و عندما أضع فيها نصاً ما فإن الأمر في محرر الفيجول يعتبر قيمة هذه الحقول هي النصوص التي سيقسم محتويات الخلايا بناء عليها .

مثلاً الخلية :

f1 - g1 - h1 .....

أدخلت بالأولى : ؟

و في الثانية : 7

و الثالثة : |

و هكذا ...

 فسيقوم الأمر بتقسيم الخلية بناء على كل هذه النصوص .

فالخلية

a? 44 7gg|ee

ستصبح :

a

44

gg

ee

و هل يمكن أن يتم التقسيم دون حذف النصوص ؟

فمن الأمر قد وجدت أنه يقوم بعملية استبدال للنصوص ثم يعمل بالتقسيم .

وشكراً لكم .

تم تعديل يونيو 15, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

@shreif mohamed

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

شكراً لك من كل قلبي على المساهمة الطيبة التي قدمتها

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

[ًعبد من عباد الله]

أستاذ Khalf

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

تم تعديل يونيو 16, 2018 بواسطه وائل أبو عبد الرحمن

[Hamdi Edlbi-khalf]

14 ساعات مضت, وائل أبو عبد الرحمن said:

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

بانتظار رد الأستاذ 

@shreif mohamed

عن إمكانية فصل الخلايا دون حذف .

حتى يكون العمل مكتملاً .