أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil مشكلة في الكود اكسيل اسئله واجابات


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





منع المستخدم من ادراج مسافتين متتاليتين

السلام عليكم كثير من الناس يزاجهون مشاكل الاخطاء الإملائية عند كتابة البيانات ومن هذه الاخطاء إدراج مسافتين بين الاسم ال ..



28-08-2017 05:26 مساء
Kamel meraghni
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 650
 offline 

السلام عليكم
كثير من الناس يزاجهون مشاكل الاخطاء الإملائية عند كتابة البيانات ومن هذه الاخطاء إدراج مسافتين بين الاسم الاول والأخير
مثلا: 
عند كتابة اسم الزبون :كمال مرغني
نكتبه بالشكل التالي:كمال  مرغني
من الوهلة الأولى نلاحظ انه لا يوجد إختلاف بين الاسمين لكن لو دققنا نظر نجد أن الاختلاف يكمن في المسافة بين الأسمين .
في الإسم الأول بها مسافة واحدة أم الثاني فيه مسافتين.
و في هذه الحالة فإن الأكسل لا يتعرف على الزبون الثاني و هذا يحدث مشاكل كبيرة و الحل في هذه الحالة هو كالتالي:
​ننقر على تكس بوكس نقرتين ثم نختار حدث بعد التحديث نكتب الكود التالي:
Private sub textbox1_AfterUpdate
dim lr as string
lr=replase(textbox1.text, space(2), space(1))   textbox1.text=lr
end sub
ملاحظة يمكن استبدال التكس بوكس وجعل كومبو بوكس مكانه حسب الاحتياج.
ارجو ان يكون الموضوع مفيد وشكرا. smile
توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



28-08-2017 09:20 مساء
مشاهدة مشاركة منفردة [1]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif منع المستخدم من ادراج مسافتين متتاليتين
جزاكم الله خيرا
ويمكن ضبط الاسماء لو كانت فى خلايا بكود 
يقوم بذلك

28-08-2017 11:06 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif منع المستخدم من ادراج مسافتين متتاليتين
بارك الله فيك أخي الكريم كامل ومشكور على الموضوع المفيد
يمكن استخدام الدالة TRIM لإزالة المسافات الزائدة بهذا الشكل (على سبيل مثالك)
Private Sub textbox1_AfterUpdate()
    Dim str As String

    str = Application.WorksheetFunction.Trim(TextBox1.Text)
    TextBox1.Text = str
End Sub


يرجى وضع الأكواد بين قوسي الكود ليظهر بشكل منضبط ... للمزيد اطلع على الموضوع التالي لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

28-08-2017 11:18 مساء
مشاهدة مشاركة منفردة [3]
Kamel meraghni
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 106
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 650
 offline 
look/images/icons/i1.gif منع المستخدم من ادراج مسافتين متتاليتين
شكرا استاذ على التوضيح
توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142






الكلمات الدلالية
المستخدم ، ادراج ، مسافتين ، متتاليتين ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:00 صباحا