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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :أشرف عبد المنعم
عدد النتائج (5) نتيجة
08-10-2017 06:22 مساء
icon مراقبه المخزن بشيت بسيط ونتائج احترافيه - حسام خطاب | الكاتب :أشرف عبد المنعم |المنتدى: تطبيقات محاسبيه بالاكسيل
 عمل رائع و اجمل ما فيه البساطة و السلاسة
 
06-09-2017 03:02 مساء
icon قاعدة بيانات بسيطة | الكاتب :أشرف عبد المنعم |المنتدى: اكسيل شروحات ودروس
 ملف مثير و مبتكر
بارك الله لك و اكثر من امثالك
06-09-2017 02:47 مساء
icon عمل فلتره باستخدام الماوس -أكاديمية الصقر للتدريب | الكاتب :أشرف عبد المنعم |المنتدى: اكسيل شروحات ودروس
 زي ما تفضلت و كتبت شرح الدالة في صورة 
ممكن تكتب الكود و جانبه شرح لكل سطر 
في صورة برضو او حتي ملف أكسل أو وورد
ليس الكل علي دراية عالية بكل دوال الأكسيل biggrin2
06-09-2017 02:33 مساء
icon حساب السن | الكاتب :أشرف عبد المنعم |المنتدى: اكسيل شروحات ودروس
 ماكرو جميل و مختصر بارك الله فيك
06-09-2017 02:23 مساء
icon دالة معرفة لفصل اسم الأب عن الابن | الكاتب :أشرف عبد المنعم |المنتدى: اكسيل شروحات ودروس
 الفكرة جيدة تحمد لك 
ولكن الدالة لا تتعامل مع الخطأ البشري في الأسماء المركبة 
فالبعض يضع بها مسافة فاصلة 
تقبل مني هذا الكود لعله يعجبك
Function fath(na As String) As String
nam = na
sta:
a = Len(nam)
If a = 0 Then GoTo nd2
i = 1
st:
    b = Mid(nam, i, 1)
    If b = " " Then
    k = a - i
    GoTo nd
    End If
   If i = a Then
      k = a - i
    GoTo nd
    End If
   i = i + 1
        k = a - i
    GoTo st
nd:
z = a - k
x = Left(nam, z)
If x = "عبد " Or x = "حسب " Or x = "ابو " Or x = "أبو " Or x = "ذو " Then
    z = z - 1
    gf = Left(nam, z)
    g = Right(nam, k)
    nam = gf + g
    GoTo sta
End If
otn = Right(nam, k)
f:
a = Len(otn)
If a = 0 Then GoTo nd2
i = 1
st2:
    b = Mid(otn, i, 1)
    If b = " " Then
    k = a - i
    GoTo nd1
    End If
   If i = a Then
      k = a - i
    GoTo nd1
    End If
   i = i + 1
        k = a - i
    GoTo st2
nd1:
z = a - k
x = Left(otn, z)
If x = "الدين " Or x = "الكريم " Or x = "الله " Or x = "بالله " Or x = "الحق " Or x = "الرحمن " Or x = "اليقين " Or x = "الاسلام " Or x = "الإسلام " Or x = "النصر " Or x = "الدولة " Or x = "الرسول " Or x = "النبي " Or x = "الخير " Then
    z = z - 1
    g = Right(nam, k)
    otn = g
End If
If x = "رب " Then
z = a - k
x = Left(otn, z)
z = z - 1
    gf = Left(otn, z)
    g = Right(otn, k)
    otn = gf + g
    GoTo f
End If
fath = otn
nd2:
End Function





الساعة الآن 04:43 صباحا