اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تقسيم الاسم من 3 تكستات الي 26 تكست بوكس حرف حرف .. التوضيح بالموضوع ؟؟


إذهب إلى أفضل إجابة Solved by حمادة عمر,

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

السلام عليكم اساتذتي الكرام

لا اعلم ان كان طلبي ممكن التنفيذ ام لا ... ولكني بصدق معكم لم اجد مستحيلا في الاكسيل

لدي فورم به 3 تكست بوكس يكتب بهم اسم الطالب كما يلي ( الاسم الاول - الاسم الثاني - باقي الاسم )

المطلوب :

 احتاج لفصل حروف الاسم كما هو مبين في الفورم في الملف وفي الصورة في الاسفل في التكستات الصغيرة الموجودة بالاسفل

مع الآخذ في الاعتبار ( المسافات بين الاسماء" المسافة تعتبر حرفا "  - والفصل يتم بحد اقصي 26 حرف )  …

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

ليمكنني بعد ذلك ترحيلهم لشيت الاكسيل في الخلايا المحددة باللون الاصفر في الشيت

( لا داعي للعمل علي الترحيل فيمكنني تنفيذ ذلك ولا اريد ان اضيع وقتكم في ذلك ولكن ذكر الترحيل لايضاح الفكرة فقط )

Untitled.jpg.e6fada124a41d89efa6a6dc64d81f0bf.jpg

 

فصل حروف الاسم لتكستات بوكس حرف حرف.rar

 

 

 

 

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

  • أفضل إجابة

السلام عليكم

الاخ الفاضلة / سما محمد

بارك الله فيكي

استخدمي هذا الكود في حدث UserForm_MouseMove  اي النتيجة بالتكستات الصغيرة

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

واليكي الكود والملف المرفق به الحل

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox30.Value = TextBox1.Value + TextBox2.Value + TextBox3.Value

TextBox4.Value = Mid(TextBox30, 1, 1)
TextBox5.Value = Mid(TextBox30, 2, 1)
TextBox7.Value = Mid(TextBox30, 3, 1)
TextBox6.Value = Mid(TextBox30, 4, 1)
TextBox9.Value = Mid(TextBox30, 5, 1)
TextBox8.Value = Mid(TextBox30, 6, 1)
TextBox11.Value = Mid(TextBox30, 7, 1)
TextBox10.Value = Mid(TextBox30, 8, 1)
TextBox12.Value = Mid(TextBox30, 9, 1)
TextBox13.Value = Mid(TextBox30, 10, 1)
TextBox15.Value = Mid(TextBox30, 11, 1)
TextBox14.Value = Mid(TextBox30, 12, 1)
TextBox17.Value = Mid(TextBox30, 13, 1)
TextBox16.Value = Mid(TextBox30, 14, 1)
TextBox19.Value = Mid(TextBox30, 15, 1)
TextBox18.Value = Mid(TextBox30, 16, 1)
TextBox20.Value = Mid(TextBox30, 17, 1)
TextBox21.Value = Mid(TextBox30, 18, 1)
TextBox23.Value = Mid(TextBox30, 19, 1)
TextBox22.Value = Mid(TextBox30, 20, 1)
TextBox24.Value = Mid(TextBox30, 21, 1)
TextBox25.Value = Mid(TextBox30, 22, 1)
TextBox27.Value = Mid(TextBox30, 23, 1)
TextBox26.Value = Mid(TextBox30, 24, 1)
TextBox29.Value = Mid(TextBox30, 25, 1)
TextBox28.Value = Mid(TextBox30, 26, 1)

End Sub

 

فصل حروف الاسم لتكستات بوكس حرف حرف.rar

 

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

والله دائما استاذنا كبيييير

هذا هو ما اريده تماما ولكن نحتاج وجودك هذه الايام بالمنتدى..  غيابكم طاااال عنا 

بالفعل كم انت راااائع استاذنا القدير / حمادة عمر 

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

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

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

أعرف أن الموضوع تم بفضل الله ثم بفضل أخي الكريم حمادة عمر، لكني فضلت أن أشارك بهذا الرد حيث قمت بالتعديل على الكود بتبسيطه باستعمال الحلقات FOR.....NEXT بعد التعديل في الترتيب في مواضع كل التكسات في الفورم (من TextBox4 إلى TextBox29) ثم إضافة كود الترحيل إلى الخلايا في الصف 2 من العمود 1 إلى العمود 26... أرجو أن تكون هذه التعديلات مفيدة...

بن علية حاجي

 

فصل حروف الاسم لتكستات بوكس حرف حرف.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information