الشهابي

أخي العزيز / qutubsi أظن والله أعلم أن خط القوائم المنسدلة وحجمها ثابت لايتغير ولكن ممكن تكبير القائمة المنسدلة من خلال تكبير حجم العرض وهذا كود للأستاد / أبو أسامة العينبوسي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveWindow.Zoom = 115 Else ActiveWindow.Zoom = 100 End If End Sub حاولت إرفاق ملف لكن توجهني مشكلة في الإتصال إن شاء الله سأرفقه في وقت لاحق

أستاذنا القدير/ يحياوي جزاك الله خير تعودنا منك دائماً الفائدة والمتعة تصدق من أوامر التشغيل التي وضعتها جعتلني أدخل فيها لأول مرة ولا أدري بوجودها في هذا الموقع خاصة في وندوز7 ربنا يبارك لنا فيك ويحفظك من كل مكروه

أخي الكريم / علي هذا ملف مرفق فيه الحل إن شاء الله تم الإستعانة بكود لأستاذنا الكبير / أبو أحمد عبد المجرب كم تم الإستعانة بدالة مستحدثة للأستاذ الكبير أيضا عماد الحسامي هذه الدالة في حالة التكرار لا تلغي المرتبة اللي بعدها هناك دالة معدلة له تقوم بذلك مثلاً : كما في ملفك تكرر الثالث والمرتبة الرابعة موجودة إذا أردت أن ينتقل مباشرة إلى المرتبة الخامسة سيتم تطبيق الدالة المعدلة وبالنسبة لموقع المجموع لابد أن يكون الخلية [ J18] بالتالي تم إضافة صف في الأوراق التي المجموع فيها في الخلية [ J17] حتى يتم المحافظة على النسق العام أضف ما شئت من أوراق على نفس النسق وسوف يتم إضافتها في ورقة الترتيب المسماه( Sheet1) وممكن تسميها بأي اسم تريد أخي العزيز لابد أن تجعل ورقة الترتيب هي الأولى في ترتيب الأوراق وذلك من خلال الضغط علىاسم الورقة باليمين ثم اختر نقل أو نسخ وقم بنقلها إلى أعلى حتى تصبح هي الأولى وألا سيضيفها الكود ضمن السلسلة وإن شاء الله يكون هذا مطلوبك والعفو 1علامات التلاميذ - Copy.rar

أخي العزيز / أبو أحمد الحضرمي أهلا وسهلا بك في منتدى أوفسينا بالنسبة لطلبك وددت أن أشرح لك ولكن أجد صعوبة وبطء في الإتصال لكن أخي راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=36117

أستاذنا طارق الفكرة وصلت وحل جميل وفائدة كبيرة مر رجل كبير وعلى فكرة معرفتي بالرسوم البيانية ضئيلة جداً بس لماذ لا يظهر المدى الدناميكي في مربع الأسماء ثم لماذا يجب كتابة اسم الملف في قيمة السلسلسة ='رسم آخر 7.xls'!Y_Rg لماذا لا يكتفي باسم المدى جزاكم الله خير مزيداً من الفوائد أستاذنا

الأخ العزيز / نور سعيد عندما تعمل حماية للورقة ضع إشارة صح أمام المربع المقابل لتنسيق الخلايا وبالنسبة لجعل الخلية بدون تعبئة يمكنك استخدام التنسيق الشرطي في ذلك والعفو

ما شاء الله أستاذنا الكريم طارق تصدق حاولت أن أبحث عن حلك في كافة علامات التبويب إلا التنسيق الشرطي لم يخطر ببالي هذا ما توقعته منكم إستاذنا الكريم درر ثمينة تنثرونها لنا زادكم الله علما ورفعة منتظرين المزيد

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

أخي / ولد حسن عقواً أخي سبقتني بالحل وقد أرفقت مشاركتي ولم أطلع على مشاركتك رقم 18 الحمد لله على المشكلة ولآ أوقفك الله على مشكلة مرة أخرى تحياتي أخوك الشهابي

جرب أخي/ ولد حسن عمل استعادة للنظام والله يعينك كما قال أستاذنا القدير أبو أحمد

أخي / mostafa albatrawy ممكن تخفي الأرقام من خلال التنسيق الشرطي بأن تجعل لون الخط للأرقام في الأعمدة الأربعة أبيض وقد جعلتها هنا باللون الأبيض تبعاً لقيمة الخلية (A1) = " إخفاء " ومن خلال حماية الورقة سوف تمنع التعديل على التنسيق الشرطي أو معرفة الخلية وقيمنها التي تؤدي إلى إخفاء القيمة وتحوليها باللون الأبيض لاحظ الملف المرفق Total sheet - Copy1.rar

الأخوين / الخالدي ورجب جاويش مبروك أخوي ووفقكم الله دائماً لخدمة إخوانكم في هذا المنتدى العظيم إن شاء الله في ترقي دائماً بإذن الله

الأستاذ القدير : أبو نصار جزاك الله كل خير أنت واستاذنا الكبير عبد الله باقشير قمت بتحميل الملف المرفق في المشاركة رقم 10 وفتحت الملف وتم عمل اللازم ولكن عند وجود ملف آخر ويطلب منك الحفظ أوعدمه أوإلغاء الأمر وتلغي أمر الإغلاق يظهر شريط المهام ويمكن الإغلاق بالضغط على زر أكس والعفو منكم

الأستاذيين الكريمين الخالدي ودغيدي جزاكم الله خير على سرعة الرد بارك الله فيكم وزادكم الله علما ورفعة

أخي بغي العلم هناك عدة طرق لذلك هذه طريقة بواسطة دالة VLOOKUP جرب الملف ex1.rar

السلام عليكم ورحمة الله وبركاته هل توجد معادلة من خلالها يتم وضع اسم الورقة في خلية معينة تلقائيا بحيث لو تغير اسم الورقة يتغير تبعه النص في الخلية حسب اسم الورقة الجديد هذا وجزكم الله خير اخوكم الشهابي

أخي / أحمد البحيري مبروك والى الأمام دائماً إن شاء الله ربنا يزيدك ترقي في جميع أمورك دائماً

<p> </p> <p><strong>أستاذنا / أبو أحمد </strong></p> <p><strong>عذرك مقبول و إن لم تعتذر </strong></p> <p><strong>بالعكس تسيانك ساعدنا في الوصول إلى محاولة الفهم بأن

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

تم إضافة السطرين التاليين في الكود لتسريعه Application.ScreenUpdating = False Application.Calculation = xlCalculationManua ومن ثم في آخره تم إضافة السطرين التاليين لإرجاع اهتزاز الشاشة وإرجاع الحساب تلقائي Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic لكن الحساب بقى يدوي ولم يعد تلقائي طبعا الكود مرتبط بالدالة التالية له والكود هو Option Explicit Option Base 1 Sub StudentRank_1() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' Dim vArrDgree(100) ' المصفوفة تحتوى على الدرجات Dim vArrDgreeOk(100, 3) ' المصفوفة التى تحتوى على الترتيب Dim vStdRange As Range 'النطاق الأصل Dim vRnkRange As Range 'النطاق الهدف للترتيب الحرفى Dim vRnkRangeNum As Range 'النطاق الهدف للترتيب الرقمى Dim vStdCount 'عدد الخلايا التى تحتوى على درجات (عدد الطلاب) Dim vStrtCell 'الخلية التى سيبدأ عندها الترتيب Dim vRnkNo As Integer 'الرقم المراد ترتيبه Dim vRnkTxt As String 'الترتيب Dim N1 As Integer, N2 As Integer, N As Integer 'لتحديد المتكرر فى المصفوفة Dim i, C, V, T, x 'للاستخدام فى عمليات التكرار '***************************************************************************************************** '******************** *********************** '******************** هنا أهم نقطة حيث يتم تحديد النطاقات التى سيتم العمل عليها *********************** '******************** *********************** '***************************************************************************************************** Set vStdRange = Worksheets("شعب المسودة").Range("AW16:AW115") Set vRnkRange = Worksheets("شعب المسودة").Range("AY16:AY115") Set vRnkRangeNum = Worksheets("شعب المسودة").Range("AZ16:1Z515") '***************************************************************************************************** '***************************************************************************************************** '***************************************************************************************************** 'vStdCount = WorksheetFunction.CountA(vStdRange) 'فى حالة عدم وجود أى قيمة فى الخلية vStdCount = WorksheetFunction.CountIf(vStdRange, ">0") 'فى حالة احتواء الخلية على قيم صفرية For i = 1 To vStdCount vArrDgree(i) = WorksheetFunction.Large(vStdRange, i) Next i '---------\* Find The position of a value in array 'Range("L4").Value = WorksheetFunction.Match(415, vArrDgree) '---------/* vRnkRange.ClearContents vRnkRangeNum.ClearContents i = 1 'The first Cell T = 0 ' The number of Repeats For Each C In vArrDgree If i = 1 Then vArrDgreeOk(i, 1) = C vArrDgreeOk(i, 2) = NumRank(i) vArrDgreeOk(i, 3) = i ' vRnkRange.Cells(I) = vArrDgreeOk(I, 2) ' vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3) End If If i 1 Then If vArrDgree(i) = vArrDgree(i - 1) Then T = T + 1 V = NumRank(i - T) & " م" vArrDgreeOk(i, 1) = C vArrDgreeOk(i, 2) = V vArrDgreeOk(i, 3) = i - T vArrDgreeOk(i - 1, 2) = V vArrDgreeOk(i - 1, 3) = i - T ' vRnkRange.Cells(I) = vArrDgreeOk(I, 2) ' vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3) ' vRnkRange.Cells(I - 1) = vArrDgreeOk(I, 2) ' vRnkRangeNum.Cells(I - 1) = vArrDgreeOk(I, 3) GoTo Nooo End If If vArrDgree(i) = 0 Then GoTo Ended vArrDgreeOk(i, 1) = C vArrDgreeOk(i, 2) = NumRank(i - T) vArrDgreeOk(i, 3) = i - T ' vRnkRange.Cells(I) = vArrDgreeOk(I, 2) ' vRnkRangeNum.Cells(I) = vArrDgreeOk(I, 3) End If Nooo: i = i + 1 Next C Ended: '---------\* Find The position of a value in array 'Range("N3").Value = WorksheetFunction.Index(vArrDgreeOk, 1, 2) '---------/* i = 1 For Each C In vStdRange 'T = C.Address(0, 0) ' ----> B4 T = C.Row ' ----> 4 'vRnkNo = WorksheetFunction.Index(vArrDgreeOk, I, 1) 'Find the Degree ' ---->i=1 415 'vRnkTxt = WorksheetFunction.Index(vArrDgreeOk, I, 2) 'Find the Order ' ---->i=1 الأول If C = 0 Then End V = WorksheetFunction.VLookup(C, vArrDgreeOk(), 2, 0) x = WorksheetFunction.VLookup(C, vArrDgreeOk(), 3, 0) vRnkRange.Cells(i, 1).Value = V vRnkRangeNum.Cells(i, 1).Value = x i = i + 1 Next C Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Function NumRank(vNumTxt) As String '* 'تجهيز مصفوفة من 50 متغير عبارة عن الترتيب المراد إدخاله Dim vRankTxt(100) 'إسناد المتغيرات للمصفوفة vRankTxt(1) = "الأول" vRankTxt(2) = "الثانى" vRankTxt(3) = "الثالث" vRankTxt(4) = "الرابع" vRankTxt(5) = "الخامس" vRankTxt(6) = "السادس" vRankTxt(7) = "السابع" vRankTxt(8) = "الثامن" vRankTxt(9) = "التاسع" vRankTxt(10) = "العاشر" vRankTxt(11) = "الحادى عشر" vRankTxt(12) = "الثانى عشر" vRankTxt(13) = "الثالث عشر" vRankTxt(14) = "الرابع عشر" vRankTxt(15) = "الخامس عشر" vRankTxt(16) = "السادس عشر" vRankTxt(17) = "السابع عشر" vRankTxt(18) = "الثامن عشر" vRankTxt(19) = "التاسع عشر" vRankTxt(20) = "العشرون" vRankTxt(21) = "الحادى والعشرون" vRankTxt(22) = "الثانى والعشرون" vRankTxt(23) = "الثالث والعشرون" vRankTxt(24) = "الرابع والعشرون" vRankTxt(25) = "الخامس والعشرون" vRankTxt(26) = "السادس والعشرون" vRankTxt(27) = "السابع والعشرون" vRankTxt(28) = "الثامن والعشرون" vRankTxt(29) = "التاسع والعشرون" vRankTxt(30) = "الثلاثون" vRankTxt(31) = "الحادى والثلاثون" vRankTxt(32) = "الثانى والثلاثون" vRankTxt(33) = "الثالث والثلاثون" vRankTxt(34) = "الرابع والثلاثون" vRankTxt(35) = "الخامس والثلاثون" vRankTxt(36) = "السادس والثلاثون" vRankTxt(37) = "السابع والثلاثون" vRankTxt(38) = "الثامن والثلاثون" vRankTxt(39) = "التاسع والثلاثون" vRankTxt(40) = "الأربعون" vRankTxt(41) = "الحادى والأربعون" vRankTxt(42) = "الثانى والأربعون" vRankTxt(43) = "الثالث والأربعون" vRankTxt(44) = "الرابع والأربعون" vRankTxt(45) = "الخامس والأربعون" vRankTxt(46) = "السادس والأربعون" vRankTxt(47) = "السابع والأربعون" vRankTxt(48) = "الثامن والأربعون" vRankTxt(49) = "التاسع والأربعون" vRankTxt(50) = "الخمسون" vRankTxt(51) = "الحادى والخمسون" vRankTxt(52) = "الثانى والخمسون" vRankTxt(53) = "الثالث والخمسون" vRankTxt(54) = "الرابع والخمسون" vRankTxt(55) = "الخامس والخمسون" vRankTxt(56) = "السادس والخمسون" vRankTxt(57) = "السابع والخمسون" vRankTxt(58) = "الثامن والخمسون" vRankTxt(59) = "التاسع والخمسون" vRankTxt(60) = "الستون" vRankTxt(61) = "الحادى والستون" vRankTxt(62) = "الثانى والستون" vRankTxt(63) = "الثالث والستون" vRankTxt(64) = "الرابع والستون" vRankTxt(65) = "الخامس والستون" vRankTxt(66) = "السادس والستون" vRankTxt(67) = "السابع والستون" vRankTxt(68) = "الثامن والستون" vRankTxt(69) = "التاسع والستون" vRankTxt(70) = "السبعون" vRankTxt(71) = "الحادى والسبعون" vRankTxt(72) = "الثانى والسبعون" vRankTxt(73) = "الثالث والسبعون" vRankTxt(74) = "الرابع والسبعون" vRankTxt(75) = "الخامس والسبعون" vRankTxt(76) = "السادس والسبعون" vRankTxt(77) = "السابع والسبعون" vRankTxt(78) = "الثامن والسبعون" vRankTxt(79) = "التاسع والسبعون" vRankTxt(80) = "الثمانون" vRankTxt(81) = "الحادى والثمانون" vRankTxt(82) = "الثانى والثمانون" vRankTxt(83) = "الثالث والثمانون" vRankTxt(84) = "الرابع والثمانون" vRankTxt(85) = "الخامس والثمانون" vRankTxt(86) = "السادس والثمانون" vRankTxt(87) = "السابع والثمانون" vRankTxt(88) = "الثامن والثمانون" vRankTxt(89) = "التاسع والثمانون" vRankTxt(90) = "التسعون" vRankTxt(91) = "الحادى والتسعون" vRankTxt(92) = "الثانى والتسعون" vRankTxt(93) = "الثالث والتسعون" vRankTxt(94) = "الرابع والتسعون" vRankTxt(95) = "الخامس والتسعون" vRankTxt(96) = "السادس والتسعون" vRankTxt(97) = "السابع والتسعون" vRankTxt(98) = "الثامن والتسعون" vRankTxt(99) = "التاسع والتسعون" vRankTxt(100) = "المائة" If vNumTxt > 100 Then GoTo NOTHERE NumRank = vRankTxt(vNumTxt) NOTHERE: End Function

أستاذنا الكبير/ عبد الله المجرب أبو أحمد أستأذنك في شرح دالة RoudFun ( دالة التقريب) التي عملتها أنت وإن شاء الله أن أكون موفق في شرحها وأرجو منكم تصحيح الأخطاء جزاكم الله خير فلنبدأ الشرح Function RoudFun(MyCel As String) في هذا السطر تم عمل الدالة باسم RoudFun ولها بارومتر واحد وهو المتغير MyCel وتم تعريفه من نوع String أي نص If MyCel = Empty Then RoudFun = "": Exit Function في هذا السطر وضع شرط بدالة If وهو أنه إذا كانت الخلية المستهدفة فارغة تكون نتيجة الدالة فارغة ثم الخروج من الدالة MyCel_Int = Int(MyCel) في هذا السطر تم وضع متغير باسم MyCel_Int وهو يساوي الرقم الصحيح فقط للرقم الكسري الموضوع في في MyCel بارومتر الدالة MyCel2 = Round(MyCel - MyCel_Int, 3) هنا تم وضع متغير باسم MyCel2 وهو يساوي تقريب MyCel لثلاث خانات ناقص الرقم الصحيح لـ MyCel والنتيجة هي الكسر مكون من ثلاث خانات أو أقل إذا كان الرقم خاناته أقل من ثلاث If Len(MyCel2) = 1 Then RoudFun = MyCel: Exit Function هنا إذا كان عدد السلسة النصية في نتيجة المتغير MyCel2 مكونة من رقم واحد فنتيجة الدالة تساوي نفس الرقم ومن ثم الخروج من الدالة If Len(MyCel2) = 3 Then هنا إذا كان عدد السلسة النصية في نتيجة المتغير MyCel2 مكونة من ثلاثة أرقام فقم بتنفيد الآتي : Select Case MyCel2 هنا تم استعمال Select Case مع المتغير MyCel2 Case 0 To 0.4: RoudFun = MyCel_Int هنا إذاكان نتيجةالمتغير MyCel2 من صفر إلى أربعة فإن نتيجة الدالة تساوي نتيجة المتغير MyCel_Int المحددة أعلاه Case 0.5 To 0.5: RoudFun = MyCel_Int + 0.5 هنا نتيجة الدالة تساوي نتيجة المتغير MyCel_Int زايد 0.5 أستاذ عبد الله على الرغم من إعجابي بالفكرة بس مارأيك بهكذا Case 0.5 To 0.5: RoudFun = MyCel Case 0.6 To 0.9: RoudFun = MyCel_Int + 1 End Select End If هنا إذا كان MyCel2 من ستة من عشرة(0.6) إلى تسعة من عشرة (0.9) فإن النتيجة تساوي MyCel_Int زايد 1 ومن ثم إنها Select Case وإنهاء الدالة If If Len(MyCel2) = 4 Then هنا إذا كان عدد السلسة النصية في نتيجة المتغير MyCel2 مكونة من أربعةأرقام فقم بتنفيد الآتي : Select Case Val(Mid(MyCel2, 4, 1)) Case 0 To 4: RoudFun = MyCel_Int + Val(Mid(MyCel2, 1, 3)) تم استخدام دالتين دالة Val مع دالة Mid لتحديد العدد الرابع في MyCel2 هنا إذا كان عددواحد من بدايةالعدد الرابع في السلسة النصيةMyCel2 وترتيبه هنا سوف يكون 4 في السلسة نتيجته من صفر إلى أربعة فإن نتيجة الدالة تساوي نتيجة المتغير MyCel_Int زايد ثلاثة أرقام في MyCel2 من بداية السلسلة وهي مثلاً (0.0) Case Is = 5: RoudFun = MyCel_Int + Val(Mid(MyCel2, 1, 3)) + "0.0" & Val(Mid(MyCel2, 4, 1)) إذا كانت نتيجة Val(Mid(MyCel2, 4, 1)) تساوي خمسة فإن النتيجة تساوي MyCel_Int زايد ثلاثة أرقام في MyCel2 زايد " 0.0" مع الرقم الرابع في MyCel2 وتم وضع ( "0.0")حتى يكون موضع الرقم في السلسة 4 أي موضعه نفسه مع عدم تغير في الأرقام السابقة وهنا لا يتم تغير شيء Case 6 To 9: RoudFun = MyCel_Int + Val(Mid(MyCel2, 1, 3)) + "0.1" End Select End If End Function هنا إذا كانت نتيجةVal(Mid(MyCel2, 4, 1)) من 6 إلى 9 فإن النتيجة تساوي نتيجة المتغير MyCel_Int زايد ثلاثة أرقام في MyCel2 من بداية السلسلة زايد "0.1" هنا يتم إضافة رقم 1 إلى الرقم الثالث في السلسة فيزيد بمقدار واحد ومن ثم إنها Select Case وإنهاء الدالة If و إنتهاء الدالة المستحدثة Function أستأذي عبد الله ما رأيك لو كان السطر If Len(MyCel2) >= 4 Then فمهما زادت الأعداد بعد الفاصلة عن ثلاثة أرقام تكون النتيجة نفسها لكن إذا حددنها بأربعة فبمجرد إضافة رقم خامس تكون النتيجة صفر أعتذر عن الشرح اللمل فهو شرح متعلم وهذا الشرح لي ولإمثالي من المبتدئين في هذا المجال لأنني طلبت منك أستاذي الشرح ولكن حاولت أن أفهم الدالة بنفسي وإن شاء الله يكون فهمي سليما أعتذر مرة أخرى عن الإطالة تلميذكم الشهابي

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

أستاذ / عبد الله معلومات مفيدة جزاك الله خير

ماشاء الله عليك ألأستاذ الخالدي حل بالمعادلات روعة

الأخ / sellami طلبك مفهوم إن شاء الله هذه دالة الأستاذ الكبير عبد الله باقشير بعد إضافة ما طلبت وطلب آخر لي ممكنك أيضاً أنت التعديل في الدالة وتضيف أسماء أخرى مركبة إذا كان التركيب من البداية تجعل فراغ ثم الكلمة مثلاً " الحق" وإذا كان التركيب من نهاية الكلمة تكتب الكلمة ثم فراغ هكذا "بن " وتفصل بين الكلمات بالكومة وموقع التعديل في الدالة التالي MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", "بن ", "مولى ") وهذه ملف الدالة مرفق بعد التعديل تجزئة الاسماء من اسم طويل.rar