logo

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



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





26-06-2020 02:47 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
السلام عليكم ورحمة الله وبركاته

أهلاً ومرحباً بكم مع فقرة سؤال وجواب من جديد

السؤال فى جروب فيس بوك وهو كالتالى


Jao5x_2020-06-26_143157 من غير مقدمات اداة تنسيق الارقام فى الاكسل سواء هتستخدم دالة Text أو من الأداة نفسها
فلا يمكن تقسم النص بالشكل دا @@@-@@@ مثلاً زى الشكل دا لو للأرقام 000-000
دى قصور فى تلك الأداة فتركيزها الأكبر فى التعامل مع الأرقام فقط


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

CODE
Function Text2(str As String, Pattern As String) As String
    Text2 = Format(str, Pattern)
End Function

وعشان استخدمها زى ما السؤال واضح فى أول الموضوع
وبإفتراض النص فى الخلية A1 كالتالى

CODE
=text2(A1,REPT("@@@@-",7)&"@@")

استخدمت Rept عشان بدل ما اكتب النص دا "@@@@-" 7 مرات لا أكثر

جميل قول جميل ، طيب ملاحظات كدا على السريع ومعلومات إضافية

أكيد ممكن استخدم دوال النصوص زى Mid و Left و Right وأساليب أخرى برضوا كل مشكله ليها ألف حل
لكن أنا بضيف معلومة لإستخدام النمط زى تنسيق الأرقام بالإكسل بأسلوب سهل وبسيط (وبرضوا منعاً للفزلكه biggrin2)


ملاحظة تانية على السريع برضوا عشان عايز أتغدى
مش كل اللى بتعمله دالة Text يمكن القيام به بدالة Text2 أو بالأحرى دالة Format بالـ VBA
وعلى النقيض سيدى القاضى ​مش كل اللى بتعمله دالة Text2 أو دالة Format بالـ VBA يمكن القيام به بدالة Text


إزاى وكيف ولماذا وهل ومتى وعلل وفسر ، لا مش فاضى لتفسير الأمر الصراحة وكمان دا مش صلب الموضوع

وأرجوا أن يكون ذلك الحل وافى للسائل وشكراً لحسن المتابعة
والسلام عليكم ورحمة الله وبركاته 81
 
 


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، hassona229، noureddine70، محمد أبو عبدو،



look/images/icons/i1.gif دالة تنسيق النص Text2
  26-06-2020 02:54 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي الحبيب إسلام وعوداً حميداً للدرر التي تقدمها ..
ومن كتر كلامك ع الغدا تصدق جعت :)

تقبل تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، noureddine70،



look/images/icons/i1.gif دالة تنسيق النص Text2
  26-06-2020 03:02 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
ملحوظة كدا حبيت أنبهك ليها :
حاول لما تستخدم متغيرات متستخدمش كلمات موجودة سواء Attributes أو Methods .. يعني مثلا إنت هنا استخدمت Str كبارامتر أول والكلمة دي دالة Function ..

أثارت هذه المشاركة إعجاب: Eslam Abdullah، noureddine70، محمد أبو عبدو،



look/images/icons/i1.gif دالة تنسيق النص Text2
  26-06-2020 08:25 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مرورك الغالى أستاذى الحبيب ، انت ابو الدرر كلها

انا واخد بالى من نقطة str دى ومعاك حق

بس تلميذك مخدرم عارف امتى يستخدمها وامتى لا biggrin2

سريعا كدا:

مثلا دالة format انا استخدمتها داخل الدالة المبرمجة فبالتالى لن يقبل تسمية الدالة بـ format
اما لو مستخدمتش الدالة format داخل الدالة بتاعتى ستعمل الدالة بشكل طبيعى
ولو اردت استخدام الدالة format سيتم استدعاء الدالة المبرمجة وليست المخزنة فى الVBA اى ان الاولوية للاسطر المدخله من قبل المطور
لذلك يفضل عدم استخدام اسم دالة لدالة اخرى
اما ما فعلته هو استخدام اسم دالة كمتغير
ودا معناه انى لما استدعى الاسم str داخل الScope او فى حدود الدالة دى فقط سيتم استدعاء المتغير ولا يمكن نداء الدالة
ودا داخل الBlock دا بس خارج البلوك مفيش اى تاثير على الدالة دى وانا اللى كاتب السطرين وعارف انى مش محتاجها فعديتها عادى

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif دالة تنسيق النص Text2
  26-06-2020 09:19 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
الفكرة مش في كدا .. الفكرة في الأفضلية في التعامل مع المتغيرات ..
Be adhere to good habits.

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif دالة تنسيق النص Text2
  26-06-2020 09:43 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil الفكرة مش في كدا .. الفكرة في الأفضلية في التعامل مع المتغيرات ..
Be adhere to good habits.
well, okay

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 01:21 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
تسلموا يا غالين
المفيد يعنى نستخدم الداله ولا نكبر

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،



look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 08:24 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
أخي الحبيب حسونة
الاختلاف مش على الدالة ..الدالة رائعة ، الاختلاف على استخدام مسميات المتغيرات ..
يعني البارامتر Str المستخدم في الدالة دي دالة موجود بالفعل في الـ VBA .. لذلك يفضل عدم استخدام الاسم دا واستخدام اسم تاني وليكن sStr أو txt أو أي شيء آخر.

أثارت هذه المشاركة إعجاب: hassona229، Eslam Abdullah، noureddine70،



look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 09:29 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

الله ينور يا غالى افكار رائعه 123


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، noureddine70،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 11:09 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
عوداً حميداً أخي وحبيبي حسام وأرجو ألا تغيب عن المنتدى ..

أثارت هذه المشاركة إعجاب: Eslam Abdullah،



look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 11:28 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

حبيبى يابوبراء
مشغول والله يا غالى فى عمل عدة برامج تفيد الناس


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 05:56 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مرورك الكريم أستاذ حسونه
استخدمها عادى ياعم حسونه مش هتزعل biggrin2
كود تانى اهو عشان مسميات المتغير ، اى خدعه ياحسونه biggrin2

CODE

Function Text2(txt As String, Pattern As String) As String
    Text2 = Format(txt, Pattern)
End Function

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229، noureddine70،



look/images/icons/i1.gif دالة تنسيق النص Text2
  27-06-2020 05:58 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مرورك الأروع أستاذى الغالى حسام 81
جهز جهز انت ، دماغ شغاله مبتنامش
ما شاء الله يعنى biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر، hassona229،



اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >





الكلمات الدلالية
دالة ، تنسيق ، النص ، Text2 ،









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

الساعة الآن 11:05 AM