logo

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



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





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

<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />من المعروف أن دالة TRIM تقوم بتقليم أو تنظيف النص من المسافات الزائدة
ولكن ماذا لو أردنا التقليم على أساس حرف غير المسافة
أو حتى تحديد أماكن التنظيف بكامل النص أو بشكل جزئى
فى الغالب نلجأ لصيغ مركبة
<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />

<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />لذلك تم برمجة الدالة TrimPro والتى تقوم بتقليم النص وفقاً لتحديد حرف معين والأسلوب المتبع لذلك
ويمكن استخدام الدالة مع الصفيف وايضا نتائج الدالة كصفيف لا يشترط الضغط على Ctrl+Shift+Enter
الا فى حالة ادخلت الدالة مع صيغ اخرى تستعمل فيها المصفوفات


<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />الان بناء الدالة كالتالى
CODE
=TrimPro(string,[clean],[at])
<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
أول باراميتر اجبارى الادخال وهو النص المراد تقليم الحرف المحدد منه
ثانى باراميتر اختيارى الادخال وهو الحرف المراد تقليمة
ثالث باراميتر اختيارى الادخال وهو أسلوب التقليم [ 1- كلى ، 2- أيسر ، 3- أوسط ، 4- أيمن ، 5- أطراف]


<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " /> وكل ذلك له امثله عملية داخل ملف العمل

الان ناتى لمثال عملى بسيط كالتالى
اكتب رقم [ eslam abdullah ] فى الخلية A1 ثم اكتب الصيغة التالية





=TrimPro(A1," ",5) <br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
هنا سيتم التقليم على أساس المسافة من الأطراف فقط
وبإمكانك تجربة المزيد للدالة المعرفة
بالملف المرفق

<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />وكود الدالة كالتالى
CODE
Function TrimPro(str, Optional c$ = " ", Optional at As Byte = 1)
'Programming by Eslam Abdullah
On Error Resume Next
Dim arr$(), txt, rw&, cl%, x&, y%
If at > 0 And at < 6 Then c = String(1, c): str = str Else TrimPro = CVErr(xlErrNum): Exit Function
rw = UBound(str, 1) - 1: cl = UBound(str, 2) - 1
ReDim arr(rw, cl)
With CreateObject("VBScript.RegExp"): .Global = True
    .Pattern = Array("", "^" & c & "+|" & c & "+$|" & c & "+(" & c & ")", "^" & c & "+", "([^" & c & "])" & c & "+(?=[^" & c & "])", c & "+$", "^" & c & "+|" & c & "+$")(at * -(c <> ""))
    c = Array("", "$1", "", "$1" & c, "", "")(at * -(c <> ""))
    If rw + cl = 0 Then txt = str
    For Each txt In str
        arr(x, y) = .Replace(txt, c)
        x = (x + 1) * -(x < rw): y = y - (x = 0)
    Next txt
    TrimPro = arr
End With
End Function

<hr arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " /> كان معكم ومعنا ومعاهم برضوا biggrin2
أخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81
 
 
  TrimPro UDF.rar   تحميل rar مرات التحميل :(34)
الحجم :(17.539) KB


أثارت هذه المشاركة إعجاب: hassona229، محمد الدسوقى، abdulwahed catran، YasserKhalil، noureddine70، ali mohamed ali، محمد حسن المحمد، خالد الشاعر، علي بطيخ سالم،



look/images/icons/i1.gif الدالة المعرفة TrimPro
  26-01-2022 08:09 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 802
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3941
الاعجاب : 23
الله ينور يا ريس

عليك وعلى flashfil
اعملها داله علشان الناس اللى زعلانه اللى منزله اوفيس ٢٠١٠ زى حالاتى كده
وانا هعمل لك لايك كماااان كبيييير🤗

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



look/images/icons/i1.gif الدالة المعرفة TrimPro
  27-01-2022 05:23 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
تسلم أخي العزيز إسلام وجزاك الله كل خير على كل هذه الإبداعات اللامتناهية.

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



look/images/icons/i1.gif الدالة المعرفة TrimPro
  27-01-2022 05:40 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: hassona229 الله ينور يا ريس

عليك وعلى flashfil
اعملها داله علشان الناس اللى زعلانه اللى منزله اوفيس ٢٠١٠ زى حالاتى كده
وانا هعمل لك لايك كماااان كبيييير🤗
شوف ياغالى الـ Flash Fill عبارة عن تحسس للنمط Detect pattern ثم التنفيذ على الباقى النطاق
بمعنى أن تنفيذ الخطوات سهل لكن ما الخوارزمية المتبعة لتكوين أدق نمط !

على سبيل المثال مايكروسوفت بتكون مجهزة Dictionary بإحتمالات أولية
وبعد الإنتقال للحرف التالى تبدأ بتنبؤ الإحتمال الذى يليه
ففكرة الأداة كلها تكمن فى طريقة التنبؤ بالنمط الأقرب للصحة
وطبعاً الدقة هنا لا تساوى 100%
(وبالنسبالى الوقت أضيق من إنى أفكر فى أفضل خوارزمية لتحقيق أفضل نمط ممكن)

لكن رداً على سؤالك فدا مفتاح تنفيذ أداة مماثلة
ولو عرفت تطبق خوارزمية منطقية فمفيش مشكلة أساعدك بتطبيق الفكرة
لو مهتم بالأمر إبحث عن خوارزمية لتوليد نمط التعبير العادى
generate regular expression pattern أو generate regex pattern

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



look/images/icons/i1.gif الدالة المعرفة TrimPro
  28-01-2022 07:47 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 70
الدولة : الجزائر
الجنس :
تاريخ الميلاد : 6-12-1970
قوة السمعة : 110
الاعجاب : 2
بارك الله فيك و جزاك الله خيراً

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



look/images/icons/i1.gif الدالة المعرفة TrimPro
  29-01-2022 08:21 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذ اسلام وزادك الله من فضله

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


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif الدالة المعرفة TrimPro
  31-01-2022 09:16 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
السلام عليكم ورحمة الله وبركاته
بارك الله بكم وأنار طريقكم ونفع بعلمكم آمين
جزاكم الله خيراً أخي الحبيب إسلام
111

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


توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif الدالة المعرفة TrimPro
  05-02-2022 04:47 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 185
الجنس :
تاريخ الميلاد : 20-8-1989
قوة السمعة : 244
الاعجاب : 0
جزاكم الله خيرا

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



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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مدموج :نريد عمل دالة معرفة للدالة الجديدة VSTACK (برمجة الدالة) jjebril
3 333 jjebril
جمع وطرح أرقام بعدد خانات لا نهاية له بالدالة المعرفة Calc Eslam Abdullah
16 3269 YasserKhalil
الدالة المعرفة LSum Eslam Abdullah
6 1492 محمد أبو عبدو
الدالة vlookup alsaqr. بالفرنسية منجة فاتح
4 855 hassona229
وداعا للدالة vlookup واهلا بالدالة vlookup elsaqr الجديدة emad ghazi
50 14702 jjebril

الكلمات الدلالية
الدالة ، المعرفة ، TrimPro ،









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

الساعة الآن 12:18 PM