حذف المسافات المكررة بالتكست بوكس

**Akram Galal** · أبريل 8, 2015

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

السادة أعضاء المنتدي الكرام

اريد زر يقوم بحذف المسافات المكررة بالتكست بوكس

فمثلاً اذا كان لدينا جملة ( محمد يقراء الكتاب )

وبين كلمة يقراء والكتاب عدد أكثر من مسافة واحدة

يتم حذف جميع المسافات وترك عدد 1 مسافة فقط لا غير

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

اليكم المرفقات

ياسر خليل أبو البراء · أبريل 8, 2015

تفضل أخي الكريم أكرم

Private Sub CommandButton1_Click()
    TextBox1.Text = Application.WorksheetFunction.Trim(TextBox1.Text)
End Sub

**Akram Galal** · أبريل 9, 2015

جزاك الله خيرا يا حبيب المنتدى

ياسر خليل أبو البراء · أبريل 9, 2015

لا تنسى التوجيهات أخي أكرم

**Akram Galal** · أبريل 9, 2015

عذرا أخي ياسر

ياسر خليل أبو البراء · أبريل 9, 2015

قصدت بالتوجيهات أخي أكرم أن تختار المشاركة التي تعجبك كأفضل إجابة ليظهر أن الموضوع منتهي ومجاب عليه

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