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

[سما محمد]

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

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

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

المطلوب :

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

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

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

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

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

 

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

 

 

 

 

تم تعديل أكتوبر 11, 2017 بواسطه سما محمد

[سما محمد]

للرفع 

[سما محمد]

للرفع

[حمادة عمر]

السلام عليكم

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

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

استخدمي هذا الكود في حدث 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

 

[سما محمد]

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

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

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

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

[بن علية حاجي]

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

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

بن علية حاجي

 

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

تم تعديل أكتوبر 12, 2017 بواسطه بن علية حاجي