اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

تفضل

 

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

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

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

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

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

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

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

الان, shreif mohamed said:

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

تفضل

 

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

السلام عليكم

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

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

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

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

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

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

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

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

السلام عليكم

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

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

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


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

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

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

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

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

تم تعديل بواسطه shreif mohamed
  • Thanks 1
رابط هذا التعليق
شارك

الان, shreif mohamed said:

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

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

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

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

أخي الفاضل ..

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

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

f1 - g1 - h1 .....

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

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

و الثالثة : |

و هكذا ...

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

فالخلية

a? 44 7gg|ee

ستصبح :

a

44

gg

ee

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

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

وشكراً لكم .

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

@shreif mohamed

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

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

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

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

أستاذ Khalf

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

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

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

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

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

@shreif mohamed

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

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

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

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