مساعدة في تنسيق النص المرسل من التيكست بوكس الى الشيت

[حراثي تواتي]

السلام عليكم ايها الكرام الافاضل في ارجاء منتدانا الغالي

لدي مشكل بسيط هو عندي ترحيل البيانات من التيكست بوكس الى الشيت يختل التنسيق وتنزل النقاط الى السطر الموالي .

كما هو موضح بالصورة

اين المشكل ؟؟

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

وان كانت هناك طريقة اخرى افيدوني بها واجركم على الله

تواتي 50.xlsm

[سليم حاصبيا]

أولاً- لا ادري ما الغاية من دمج الخلايا  (من A  الى J ) في خلية واجدة كما في الصورة الأولى

ثانياُ يجب حذف المسافة الزائدة بين كلمة الأهداف والنقطتين (الاهداف ؟؟ 🙂

List_box50.xlsm

[حراثي تواتي]

اريد نفس التنسيق الموجود في التيكست بوكس هو نفسه على الخلية دون ادراج اسطر فارغة

[سليم حاصبيا]

الكود المطلوب

Dim st
Private Sub CommandButton1_Click()
  With Sheets("Salim").Range("A1")
    .Range("A1").ClearContents
    .Value = st
  End With
End Sub
'+++++++++++++++++++++++++++++++++

Private Sub UserForm_Initialize()
st = "الأهداف:" & Chr(10) & _
Space(5) & "1 - تحديد مفهومي مفاتيح الأداء و مفاتيح التأطير و دواعي العمل بهما" & Chr(10) & _
Space(5) & "2 - تحليل بعض الكفاءات الختامية باعتماد مفاتيح التأطير و مفاتيح الأداء" & Chr(10) & _
Space(5) & "3 - دواعي وضع مناهج جديدة ( مناهج الجيل الثاني ) "
TextBox1.Text = st
End Sub

الملف مرفق

List_box51.xlsm

[حراثي تواتي]

شكرا أستاذي سليم حاصبيا  لكن النص متغير في التيكست بوكس وليس ثابتا والذي عرضته هو مثال فقط ممكن يكون نص آخر في التيكست بوكس

[سليم حاصبيا]

و من أين لي ان اعرف ماذا تريد ان تكتب في التكست بوكس؟؟؟؟

على كل حال ضع النص الذي تريده داخل الكود 

[سليم حاصبيا]

تعديل

بالنسبة للغة الأجنبيىة كل شيء تمام (لا مشاكل في الاسطر الفارغة)

بالنسبة للغة العربيى هناك مشكلة بالصفوف الفارعة (ولا أعرف طريقة حلها)

List_box52.xlsm