logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





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



توقيع :Kamel meraghni

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


142

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




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

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



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




look/images/icons/i1.gif منع المستخدم من ادراج مسافتين متتاليتين
  28-08-2017 11:18 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
شكرا استاذ على التوضيح



توقيع :Kamel meraghni

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


142

اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تغيير اسم االمستخدم حسين الحمادي
2 9 حسين الحمادي
ترحيل بشرط يحدد المستخدم في خلية صقر
4 281 YasserKhalil
اظهار اسم المستخدم حسين الحمادي
3 1242 hassona229
مساعدة فى صلاحيات المستخدم moonlight
2 1294 moonlight
منع المستخدم من تسمية المصنف الحالي Prevent User From Renaming Workbook YasserKhalil
6 2037 YasserKhalil

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









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

الساعة الآن 04:06 PM