الشهابي

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

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

الأستاذ القدير / حمادة عمر الله لا يحرمنا من أعمالك ولا من أخلاقك عطاء مستمر لا ينقطع ليلا ولا نهار وزان العطاء الخلق الحسن في منتدانا حمادة عمر *** شمسٌ نهاراً وفي الليل قمر

أخي العزيز / goodfas يمكن الإكتفاء بنموذج فاتورة وادة بدلا من خمس أو الزيادة على ذلك بس ممكن توضيح على أي أساس يتم دلب البيانات في الفاتورة لإنها غيرواضح في الملف ممكن تذكر الشرط الذي يتم جلب البيانات من ورقة (Data) إلى ورقة (Invoic) هل على حسب تاريخ معين أو حسب اسم أو غير ذلك ومن ثم سيقوم الأحوة بوضع المعادلات أو الأكواد المنسبة لذلك ووضع كود طباعة أيضا والعفو فقط أردت التنويه لأن بعض الأخوة عندما يجدون شرح مفصل ماشاء الله يباشرون بالمساعدة بارك الله فيكم وفيهم وعلى فكرة كود أستاذنا الكبير أحمد زمان يعمل عندي دون أي خطأ والأوفيس عندي 2007 تقبل تحياتي

أخي العزيز /nasersaeed هناك دالة مستحدثة لأستاذنا الكبير عماد الحسامي وهي موجود ضمن المواضيع المثبتة وقدرفعتها على هذا الموصوع طلبا لأحد الإخوة الكرام http://www.officena.net/ib/index.php?showtopic=33649 وكذلك هذا كود لأستاد قدير من موقع الفريق العربي للبرمجة وهو عضو هنا ولكن له مشاركة واحدة فقط لا أدري ما السبب وقد عملها لي حسب طلب قبل ما اتعرف على هذا المنتدى وهو أخ من مصر المحروسة يدعى (sleve) بارك الله فيه وأهل مصر وهذا هو الكود يتم عمل الترتيب من خلال زر وقد عدلت فيه ليعطي ترتيب حتى (500) تلميذ إن شاء الله يلبي طلبك أهم نقطة في الكود هي هذه عدل فيه المدى والورقة التي سيتم في الترتيب ومدى الدرجات ويعطيك الترتيب رقما وكتابة '******************** هنا أهم نقطة حيث يتم تحديد النطاقات التى سيتم العمل عليها *********************** '******************** *********************** '***************************************************************************************************** Set vStdRange = Worksheets("شعب المسودة").Range("AW16:AW515") Set vRnkRange = Worksheets("شعب المسودة").Range("AY16:AY515") Set vRnkRangeNum = Worksheets("شعب المسودة").Range("AZ16:AZ515") '***************************************************************************************************** '***************************************************************************************************** '***************************************************************************************************** Option Explicit Option Base 1 Sub StudentRank_1() ' Dim vArrDgree(500) ' المصفوفة تحتوى على الدرجات Dim vArrDgreeOk(500, 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:AW515") Set vRnkRange = Worksheets("شعب المسودة").Range("AY16:AY515") Set vRnkRangeNum = Worksheets("شعب المسودة").Range("AZ16:AZ515") '***************************************************************************************************** '***************************************************************************************************** '***************************************************************************************************** '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 End Sub Function NumRank(vNumTxt) As String '* 'تجهيز مصفوفة من 50 متغير عبارة عن الترتيب المراد إدخاله Dim vRankTxt(500) 'إسناد المتغيرات للمصفوفة 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) = "المائة" vRankTxt(101) = "المائة وواحد" vRankTxt(102) = "المائة واثنان" vRankTxt(103) = "المائة وثلاثة" vRankTxt(104) = "المائة وأربعة" vRankTxt(105) = "المائة وخمسة" vRankTxt(106) = "المائة وستة" vRankTxt(107) = "المائة وسبعة" vRankTxt(108) = "المائة وثمانية" vRankTxt(109) = "المائة وتسعة" vRankTxt(110) = "المائة وعشرة" vRankTxt(111) = "المائة وأحد عشر" vRankTxt(112) = "المائة واثناعشر" vRankTxt(113) = "المائة وثلاثة عشر" vRankTxt(114) = "المائة وأربعة عشر" vRankTxt(115) = "المائة وخمسة عشر" vRankTxt(116) = "المائة وستة عشر" vRankTxt(117) = "المائة وسبعة عشر" vRankTxt(118) = "المائة وثمانية عشر" vRankTxt(119) = "المائة وتسعة عشر" vRankTxt(120) = "المائة والعشرون" vRankTxt(121) = "المائة والحادى والعشرون" vRankTxt(122) = "المائة والثانى والعشرون" vRankTxt(123) = "المائة والثالث والعشرون" vRankTxt(124) = "المائة والرابع والعشرون" vRankTxt(125) = "المائة والخامس والعشرون" vRankTxt(126) = "المائة والسادس والعشرون" vRankTxt(127) = "المائة والسابع والعشرون" vRankTxt(128) = "المائة والثامن والعشرون" vRankTxt(129) = "المائة والتاسع والعشرون" vRankTxt(130) = "المائة والثلاثون" vRankTxt(131) = "المائة والحادى والثلاثون" vRankTxt(132) = "المائة والثانى والثلاثون" vRankTxt(133) = "المائة والثالث والثلاثون" vRankTxt(134) = "المائة والرابع والثلاثون" vRankTxt(135) = "المائة والخامس والثلاثون" vRankTxt(136) = "المائة والسادس والثلاثون" vRankTxt(137) = "المائة والسابع والثلاثون" vRankTxt(138) = "المائة والثامن والثلاثون" vRankTxt(139) = "المائة والتاسع والثلاثون" vRankTxt(140) = "المائة والأربعون" vRankTxt(141) = "المائة والحادى والأربعون" vRankTxt(142) = "المائة والثانى والأربعون" vRankTxt(143) = "المائة والثالث والأربعون" vRankTxt(144) = "المائة والرابع والأربعون" vRankTxt(145) = "والمائة والخامس والأربعون" vRankTxt(146) = "المائة والسادس والأربعون" vRankTxt(147) = "المائة والسابع والأربعون" vRankTxt(148) = "المائة والثامن والأربعون" vRankTxt(149) = "المائة والتاسع والأربعون" vRankTxt(150) = "المائة والخمسون" vRankTxt(151) = "المائة والحادى والخمسون" vRankTxt(152) = "المائة والثانى والخمسون" vRankTxt(153) = "المائة والثالث والخمسون" vRankTxt(154) = "المائة والرابع والخمسون" vRankTxt(155) = "المائة والخامس والخمسون" vRankTxt(156) = "المائة والسادس والخمسون" vRankTxt(157) = "المائة والسابع والخمسون" vRankTxt(158) = "المائة والثامن والخمسون" vRankTxt(159) = "المائة والتاسع والخمسون" vRankTxt(160) = "المائة والستون" vRankTxt(161) = "المائة والحادى والستون" vRankTxt(162) = "المائة والثانى والستون" vRankTxt(163) = "المائة والثالث والستون" vRankTxt(164) = "المائة والرابع والستون" vRankTxt(165) = "المائة والخامس والستون" vRankTxt(166) = "المائة والسادس والستون" vRankTxt(167) = "المائة والسابع والستون" vRankTxt(168) = "المائة والثامن والستون" vRankTxt(169) = "المائة والتاسع والستون" vRankTxt(170) = "المائة والسبعون" vRankTxt(171) = "المائة والحادى والسبعون" vRankTxt(172) = "المائة والثانى والسبعون" vRankTxt(173) = "المائة والثالث والسبعون" vRankTxt(174) = "المائة والرابع والسبعون" vRankTxt(175) = "المائة والخامس والسبعون" vRankTxt(176) = "المائة والسادس والسبعون" vRankTxt(177) = "المائة والسابع والسبعون" vRankTxt(178) = "المائة والثامن والسبعون" vRankTxt(179) = "المائة والتاسع والسبعون" vRankTxt(180) = "المائة والثمانون" vRankTxt(181) = "المائة والحادى والثمانون" vRankTxt(182) = "المائة والثانى والثمانون" vRankTxt(183) = "المائة والثالث والثمانون" vRankTxt(184) = "المائة والرابع والثمانون" vRankTxt(185) = "المائة والخامس والثمانون" vRankTxt(186) = "المائة والسادس والثمانون" vRankTxt(187) = "المائة والسابع والثمانون" vRankTxt(188) = "المائة والثامن والثمانون" vRankTxt(189) = "المائة والتاسع والثمانون" vRankTxt(190) = "المائة والتسعون" vRankTxt(191) = "المائة والحادى والتسعون" vRankTxt(192) = "المائة والثانى والتسعون" vRankTxt(193) = "المائة والثالث والتسعون" vRankTxt(194) = "المائة والرابع والتسعون" vRankTxt(195) = "المائة والخامس والتسعون" vRankTxt(196) = "المائة والسادس والتسعون" vRankTxt(197) = "المائة والسابع والتسعون" vRankTxt(198) = "المائة والثامن والتسعون" vRankTxt(199) = "المائة والتاسع والتسعون" vRankTxt(200) = "المائتان" vRankTxt(201) = "المائتان وواحد" vRankTxt(202) = "المائتان واثنان" vRankTxt(203) = "المائتان وثلاثة" vRankTxt(204) = "المائتان وأربعة" vRankTxt(205) = "المائتان وخمسة" vRankTxt(206) = "المائتان وستة" vRankTxt(207) = "المائتان وسبعة" vRankTxt(208) = "المائتان وثمانية" vRankTxt(209) = "المائتان وتسعة" vRankTxt(210) = "المائتان وعشرة" vRankTxt(211) = "المائتان وأحد عشر" vRankTxt(212) = "المائتان واثناعشر" vRankTxt(213) = "المائتان وثلاثة عشر" vRankTxt(214) = "المائتان وأربعة عشر" vRankTxt(215) = "المائتان وخمسة عشر" vRankTxt(216) = "المائتان وستة عشر" vRankTxt(217) = "المائتان وسبعة عشر" vRankTxt(218) = "المائتان وثمانية عشر" vRankTxt(219) = "المائتان وتسعة عشر" vRankTxt(220) = "المائتان والعشرون" vRankTxt(221) = "المائتان والحادى والعشرون" vRankTxt(222) = "المائتان والثانى والعشرون" vRankTxt(223) = "المائتان والثالث والعشرون" vRankTxt(224) = "المائتان والرابع والعشرون" vRankTxt(225) = "المائتان والخامس والعشرون" vRankTxt(226) = "المائتان والسادس والعشرون" vRankTxt(227) = "المائتان والسابع والعشرون" vRankTxt(228) = "المائتان والثامن والعشرون" vRankTxt(229) = "المائتان والتاسع والعشرون" vRankTxt(230) = "المائتان والثلاثون" vRankTxt(231) = "المائتان والحادى والثلاثون" vRankTxt(232) = "المائتان والثانى والثلاثون" vRankTxt(233) = "المائتان والثالث والثلاثون" vRankTxt(234) = "المائتان والرابع والثلاثون" vRankTxt(235) = "المائتان والخامس والثلاثون" vRankTxt(236) = "المائتان والسادس والثلاثون" vRankTxt(237) = "المائتان والسابع والثلاثون" vRankTxt(238) = "المائتان والثامن والثلاثون" vRankTxt(239) = "المائتان والتاسع والثلاثون" vRankTxt(240) = "المائتان والأربعون" vRankTxt(241) = "المائتان والحادى والأربعون" vRankTxt(242) = "المائتان والثانى والأربعون" vRankTxt(243) = "المائتان والثالث والأربعون" vRankTxt(244) = "المائتان والرابع والأربعون" vRankTxt(245) = "المائتان والخامس والأربعون" vRankTxt(246) = "المائتان والسادس والأربعون" vRankTxt(247) = "المائتان والسابع والأربعون" vRankTxt(248) = "المائتان والثامن والأربعون" vRankTxt(249) = "المائتان والتاسع والأربعون" vRankTxt(250) = "المائتان والخمسون" vRankTxt(251) = "المائتان والحادى والخمسون" vRankTxt(252) = "المائتان والثانى والخمسون" vRankTxt(253) = "المائتان والثالث والخمسون" vRankTxt(254) = "المائتان والرابع والخمسون" vRankTxt(255) = "المائتان والخامس والخمسون" vRankTxt(256) = "المائتان والسادس والخمسون" vRankTxt(257) = "المائتان والسابع والخمسون" vRankTxt(258) = "المائتان والثامن والخمسون" vRankTxt(259) = "المائتان والتاسع والخمسون" vRankTxt(260) = "المائتان والستون" vRankTxt(261) = "المائتان والحادى والستون" vRankTxt(262) = "المائتان والثانى والستون" vRankTxt(263) = "المائتان والثالث والستون" vRankTxt(264) = "المائتان والرابع والستون" vRankTxt(265) = "المائتان والخامس والستون" vRankTxt(266) = "المائتان والسادس والستون" vRankTxt(267) = "المائتان والسابع والستون" vRankTxt(268) = "المائتان والثامن والستون" vRankTxt(269) = "المائتان والتاسع والستون" vRankTxt(270) = "المائتان والسبعون" vRankTxt(271) = "المائتان والحادى والسبعون" vRankTxt(272) = "المائتان والثانى والسبعون" vRankTxt(273) = "المائتان والثالث والسبعون" vRankTxt(274) = "المائتان والرابع والسبعون" vRankTxt(275) = "المائتان والخامس والسبعون" vRankTxt(276) = "والمائتان والسادس والسبعون" vRankTxt(277) = "المائتان والسابع والسبعون" vRankTxt(278) = "المائتان والثامن والسبعون" vRankTxt(279) = "المائتان والتاسع والسبعون" vRankTxt(280) = "المائتان والثمانون" vRankTxt(281) = "المائتان والحادى والثمانون" vRankTxt(282) = "المائتان والثانى والثمانون" vRankTxt(283) = "المائتان والثالث والثمانون" vRankTxt(284) = "المائتان والرابع والثمانون" vRankTxt(285) = "المائتان والخامس والثمانون" vRankTxt(286) = "المائتان والسادس والثمانون" vRankTxt(287) = "المائتان والسابع والثمانون" vRankTxt(288) = "المائتان والثامن والثمانون" vRankTxt(289) = "المائتان والتاسع والثمانون" vRankTxt(290) = "المائتان والتسعون" vRankTxt(291) = "المائتان والحادى والتسعون" vRankTxt(292) = "المائتان والثانى والتسعون" vRankTxt(293) = "المائتان والثالث والتسعون" vRankTxt(294) = "المائتان والرابع والتسعون" vRankTxt(295) = "المائتان والخامس والتسعون" vRankTxt(296) = "المائتان والسادس والتسعون" vRankTxt(297) = "االمائتان ولسابع والتسعون" vRankTxt(298) = "المائتان والثامن والتسعون" vRankTxt(299) = "المائتان والتاسع والتسعون" vRankTxt(300) = "الثلاثمائة" vRankTxt(301) = "الثلاثمائة وواحد" vRankTxt(302) = "الثلاثمائة واثنان" vRankTxt(303) = "الثلاثمائة وثلاثة" vRankTxt(304) = "الثلاثمائة وأربعة" vRankTxt(305) = "الثلاثمائة وخمسة" vRankTxt(306) = "الثلاثمائة وستة" vRankTxt(307) = "الثلاثمائة وسبعة" vRankTxt(308) = "الثلاثمائة وثمانية" vRankTxt(309) = "الثلاثمائة وتسعة" vRankTxt(310) = "الثلاثمائة وعشرة" vRankTxt(311) = "الثلاثمائة وأحد عشر" vRankTxt(312) = "الثلاثمائة واثناعشر" vRankTxt(313) = "الثلاثمائة وثلاثة عشر" vRankTxt(314) = "الثلاثمائة وأربعة عشر" vRankTxt(315) = "المائة وخمسة عشر" vRankTxt(316) = "الثلاثمائة وستة عشر" vRankTxt(317) = "الثلاثمائة وسبعة عشر" vRankTxt(318) = "الثلاثمائة وثمانية عشر" vRankTxt(319) = "الثلاثمائة وتسعة عشر" vRankTxt(320) = "الثلاثمائة والعشرون" vRankTxt(321) = "الثلاثمائة والحادى والعشرون" vRankTxt(322) = "الثلاثمائة والثانى والعشرون" vRankTxt(323) = "الثلاثمائة والثالث والعشرون" vRankTxt(324) = "الثلاثمائة والرابع والعشرون" vRankTxt(325) = "الثلاثمائة والخامس والعشرون" vRankTxt(326) = "الثلاثمائة والسادس والعشرون" vRankTxt(327) = "الثلاثمائة والسابع والعشرون" vRankTxt(328) = "الثلاثمائة والثامن والعشرون" vRankTxt(329) = "الثلاثمائة والتاسع والعشرون" vRankTxt(330) = "الثلاثمائة والثلاثون" vRankTxt(331) = "الثلاثمائة والحادى والثلاثون" vRankTxt(332) = "الثلاثمائة والثانى والثلاثون" vRankTxt(333) = "الثلاثمائة والثالث والثلاثون" vRankTxt(334) = "الثلاثمائة والرابع والثلاثون" vRankTxt(335) = "الثلاثمائة والخامس والثلاثون" vRankTxt(336) = "الثلاثمائة والسادس والثلاثون" vRankTxt(337) = "الثلاثمائة والسابع والثلاثون" vRankTxt(338) = "الثلاثمائة والثامن والثلاثون" vRankTxt(339) = "الثلاثمائة والتاسع والثلاثون" vRankTxt(340) = "الثلاثمائة والأربعون" vRankTxt(341) = "الثلاثمائة والحادى والأربعون" vRankTxt(342) = "الثلاثمائة والثانى والأربعون" vRankTxt(343) = "الثلاثمائة والثالث والأربعون" vRankTxt(344) = "الثلاثمائة والرابع والأربعون" vRankTxt(345) = "الثلاثمائة والخامس والأربعون" vRankTxt(346) = "الثلاثمائة والسادس والأربعون" vRankTxt(347) = "الثلاثمائة والسابع والأربعون" vRankTxt(348) = "الثلاثمائة والثامن والأربعون" vRankTxt(349) = "الثلاثمائة والتاسع والأربعون" vRankTxt(350) = "الثلاثمائة والخمسون" vRankTxt(351) = "الثلاثمائة والحادى والخمسون" vRankTxt(352) = "الثلاثمائة والثانى والخمسون" vRankTxt(353) = "الثلاثمائة والثالث والخمسون" vRankTxt(354) = "الثلاثمائة والرابع والخمسون" vRankTxt(355) = "الثلاثمائة والخامس والخمسون" vRankTxt(356) = "الثلاثمائة والسادس والخمسون" vRankTxt(357) = "الثلاثمائة والسابع والخمسون" vRankTxt(358) = "الثلاثمائة والثامن والخمسون" vRankTxt(359) = "الثلاثمائة والتاسع والخمسون" vRankTxt(360) = "الثلاثمائة والستون" vRankTxt(361) = "الثلاثمائة والحادى والستون" vRankTxt(362) = "الثلاثمائة والثانى والستون" vRankTxt(363) = "الثلاثمائة والثالث والستون" vRankTxt(364) = "الثلاثمائة والرابع والستون" vRankTxt(365) = "الثلاثمائة والخامس والستون" vRankTxt(366) = "الثلاثمائة والسادس والستون" vRankTxt(367) = "الثلاثمائة والسابع والستون" vRankTxt(368) = "الثلاثمائة والثامن والستون" vRankTxt(369) = "الثلاثمائة والتاسع والستون" vRankTxt(370) = "الثلاثمائة والسبعون" vRankTxt(371) = "الثلاثمائة والحادى والسبعون" vRankTxt(372) = "الثلاثمائة والثانى والسبعون" vRankTxt(373) = "الثلاثمائة والثالث والسبعون" vRankTxt(374) = "الثلاثمائة والرابع والسبعون" vRankTxt(375) = "الثلاثمائة والخامس والسبعون" vRankTxt(376) = "الثلاثمائة والسادس والسبعون" vRankTxt(377) = "الثلاثمائة والسابع والسبعون" vRankTxt(378) = "الثلاثمائة والثامن والسبعون" vRankTxt(379) = "الثلاثمائة والتاسع والسبعون" vRankTxt(380) = "الثلاثمائة والثمانون" vRankTxt(381) = "الثلاثمائة والحادى والثمانون" vRankTxt(382) = "الثلاثمائة والثانى والثمانون" vRankTxt(383) = "الثلاثمائة والثالث والثمانون" vRankTxt(384) = "الثلاثمائة والرابع والثمانون" vRankTxt(385) = "الثلاثمائة والخامس والثمانون" vRankTxt(386) = "الثلاثمائة والسادس والثمانون" vRankTxt(387) = "الثلاثمائة والسابع والثمانون" vRankTxt(388) = "الثلاثمائة والثامن والثمانون" vRankTxt(389) = "الثلاثمائة والتاسع والثمانون" vRankTxt(390) = "الثلاثمائة والتسعون" vRankTxt(391) = "الثلاثمائة والحادى والتسعون" vRankTxt(392) = "الثلاثمائة والثانى والتسعون" vRankTxt(393) = "الثلاثمائة والثالث والتسعون" vRankTxt(394) = "الثلاثمائة والرابع والتسعون" vRankTxt(395) = "الثلاثمائة والخامس والتسعون" vRankTxt(396) = "الثلاثمائة والسادس والتسعون" vRankTxt(397) = "الثلاثمائة والسابع والتسعون" vRankTxt(398) = "الثلاثمائة والثامن والتسعون" vRankTxt(399) = "الثلاثمائة والتاسع والتسعون" vRankTxt(400) = "الأربعمائة" vRankTxt(401) = "الأربعمائة وواحد" vRankTxt(402) = "الأربعمائة واثنان" vRankTxt(403) = "الأربعمائة وثلاثة" vRankTxt(404) = "الأربعمائة وأربعة" vRankTxt(405) = "الأربعمائة وخمسة" vRankTxt(406) = "الأربعمائة وستة" vRankTxt(407) = "الأربعمائة وسبعة" vRankTxt(408) = "الأربعمائة وثمانية" vRankTxt(409) = "الأربعمائة وتسعة" vRankTxt(410) = "الأربعمائة وعشرة" vRankTxt(411) = "الأربعمائة وأحد عشر" vRankTxt(412) = "الأربعمائة واثناعشر" vRankTxt(413) = "الأربعمائة وثلاثة عشر" vRankTxt(414) = "الأربعمائة وأربعة عشر" vRankTxt(415) = "الأربعمائة وخمسة عشر" vRankTxt(416) = "الأربعمائة وستة عشر" vRankTxt(417) = "الأربعمائة وسبعة عشر" vRankTxt(418) = "الأربعمائة وثمانية عشر" vRankTxt(419) = "الأربعمائة وتسعة عشر" vRankTxt(420) = "الأربعمائة والعشرون" vRankTxt(421) = "الأربعمائة والحادى والعشرون" vRankTxt(422) = "الأربعمائة والثانى والعشرون" vRankTxt(423) = "الأربعمائة والثالث والعشرون" vRankTxt(424) = "الأربعمائة والرابع والعشرون" vRankTxt(425) = "الأربعمائة والخامس والعشرون" vRankTxt(426) = "الأربعمائة والسادس والعشرون" vRankTxt(427) = "الأربعمائة والسابع والعشرون" vRankTxt(428) = "الأربعمائة والثامن والعشرون" vRankTxt(429) = "الأربعمائة والتاسع والعشرون" vRankTxt(430) = "الأربعمائة والثلاثون" vRankTxt(431) = "الأربعمائة والحادى والثلاثون" vRankTxt(432) = "الأربعمائة والثانى والثلاثون" vRankTxt(433) = "الأربعمائة والثالث والثلاثون" vRankTxt(434) = "الأربعمائة والرابع والثلاثون" vRankTxt(435) = "الأربعمائة والخامس والثلاثون" vRankTxt(436) = "الأربعمائة والسادس والثلاثون" vRankTxt(437) = "الأربعمائة والسابع والثلاثون" vRankTxt(438) = "الأربعمائة والثامن والثلاثون" vRankTxt(439) = "الأربعمائة والتاسع والثلاثون" vRankTxt(440) = "الأربعمائة والأربعون" vRankTxt(441) = "الأربعمائة والحادى والأربعون" vRankTxt(442) = "الأربعمائة والثانى والأربعون" vRankTxt(443) = "الأربعمائة والثالث والأربعون" vRankTxt(444) = "الأربعمائة والرابع والأربعون" vRankTxt(445) = "الأربعمائة والخامس والأربعون" vRankTxt(446) = "الأربعمائة والسادس والأربعون" vRankTxt(447) = "الأربعمائة والسابع والأربعون" vRankTxt(448) = "الأربعمائة والثامن والأربعون" vRankTxt(449) = "الأربعمائة والتاسع والأربعون" vRankTxt(450) = "الأربعمائة والخمسون" vRankTxt(451) = "الأربعمائة والحادى والخمسون" vRankTxt(452) = "الأربعمائة والثانى والخمسون" vRankTxt(453) = "الأربعمائة والثالث والخمسون" vRankTxt(454) = "الأربعمائة والرابع والخمسون" vRankTxt(455) = "الأربعمائة والخامس والخمسون" vRankTxt(456) = "الأربعمائة والسادس والخمسون" vRankTxt(457) = "الأربعمائة والسابع والخمسون" vRankTxt(458) = "الأربعمائة والثامن والخمسون" vRankTxt(459) = "الأربعمائة والتاسع والخمسون" vRankTxt(460) = "الأربعمائة والستون" vRankTxt(461) = "الأربعمائة والحادى والستون" vRankTxt(462) = "الأربعمائة والثانى والستون" vRankTxt(463) = "الأربعمائة والثالث والستون" vRankTxt(464) = "الأربعمائة والرابع والستون" vRankTxt(465) = "الأربعمائة والخامس والستون" vRankTxt(466) = "الأربعمائة والسادس والستون" vRankTxt(467) = "الأربعمائة والسابع والستون" vRankTxt(468) = "الأربعمائة والثامن والستون" vRankTxt(469) = "الأربعمائة والتاسع والستون" vRankTxt(470) = "الأربعمائة والسبعون" vRankTxt(471) = "الأربعمائة والحادى والسبعون" vRankTxt(472) = "الأربعمائة والثانى والسبعون" vRankTxt(473) = "الأربعمائة والثالث والسبعون" vRankTxt(474) = "الأربعمائة والرابع والسبعون" vRankTxt(475) = "الأربعمائة والخامس والسبعون" vRankTxt(476) = "الأربعمائة والسادس والسبعون" vRankTxt(477) = "الأربعمائة والسابع والسبعون" vRankTxt(478) = "الأربعمائة والثامن والسبعون" vRankTxt(479) = "الأربعمائة والتاسع والسبعون" vRankTxt(480) = "الأربعمائة والثمانون" vRankTxt(481) = "الأربعمائة والحادى والثمانون" vRankTxt(482) = "الأربعمائة والثانى والثمانون" vRankTxt(483) = "الأربعمائة والثالث والثمانون" vRankTxt(484) = "الأربعمائة والرابع والثمانون" vRankTxt(485) = "الأربعمائة والخامس والثمانون" vRankTxt(486) = "الأربعمائة والسادس والثمانون" vRankTxt(487) = "الأربعمائة والسابع والثمانون" vRankTxt(488) = "الأربعمائة والثامن والثمانون" vRankTxt(489) = "الأربعمائة والتاسع والثمانون" vRankTxt(490) = "الأربعمائة والتسعون" vRankTxt(491) = "الأربعمائة والحادى والتسعون" vRankTxt(492) = "الأربعمائة والثانى والتسعون" vRankTxt(493) = "الأربعمائة والثالث والتسعون" vRankTxt(494) = "الأربعمائة والرابع والتسعون" vRankTxt(495) = "الأربعمائة والخامس والتسعون" vRankTxt(496) = "الأربعمائة والسادس والتسعون" vRankTxt(497) = "الأربعمائة والسابع والتسعون" vRankTxt(498) = "الأربعمائة والثامن والتسعون" vRankTxt(499) = "الأربعمائة والتاسع والتسعون" vRankTxt(500) = "الخمسمائة" '** If vNumTxt > 500 Then GoTo NOTHERE NumRank = vRankTxt(vNumTxt) NOTHERE: End Function

أخي العزيز / أبو أحمد الحضرمي هذه دالة للأستاذ الحسامي وفها ما طلبت إن شاء الله TOPTEN.rar

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

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

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

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

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

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

أخي العزيز / عبد الله بلال ضع المعادلة التالية في الخلية (F33) =IF(OR(AND(C10="متزوج";E10=0;M9="ماكثة / بطال");AND(C10="متزوجة";E10=0;M9="ماكثة / بطال"));5.5;IF(OR(AND(C10="متزوج";E10>0;M9="ماكثة / بطال");AND(C10="متزوجة";E10>0;M9="ماكثة / بطال"));800;IF(OR(AND(C10="متزوج";M9="عاملة / عامل");AND(C10="متزوجة";M9="عاملة / عامل");AND(C10="أعزب";C10="عزبة"));0;0))) لكن يجب الإنتباه لتسمية القوائم في الخلايا المحددة للشروط لأنها لم تظهر لإرتباطها بنطاقات غير موجودة في الملف المرفق خاصة الخلية (C10) والخلية (M9) فعلى سبيل المثال في الخلية (M9) التي تحدد وضعية الزوج والزوجة جعلتها مشتركة (ماكنة/بطال) كذلك جعلتهاأنا في الشرط الثاني (عاملة/عامل) أرجو الإنتباه لذلك والتعديل على ما هو مكتوب عندك بالضبط حتى تكون النتائج مضبوطة واإن شاء الله يكون هو المطلوب وإذا في أي خطأ ممكن الإشار إليه لتصحيحه والعفو كشف.rar

جزاك الله خير أستاذ / حمادة عمر على تشجيعك ومرورك العطر تقبل تحياتي

الأخ العزيز / أبوجيداء على فكرة الكود المرفق يحدد أول خلية فارغة في العمود بعد آخر خلية بها بيانات وهذا كود يحدد أو خلية في الصف فارغة بعد آخر خلية بها بيانات Range("iv7").End(xlToLeft).Column + 1 وللأستفادة أكثر ارجع لهذا الدرس لأستاذنا الكبيرالحسامي http://www.officena.net/ib/index.php?showtopic=33588

أخي العزيز /foular هذا كود أخدته من ملف لأخي العزيز / أحمد غانم وتم التعديل فيه ليتناسب مع طلبك إن شاء الله يكون هو مطلوبك تقبل تحياتي Janvier++.rar

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

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

أخي العزيز / عبد الله بلال ممكن توضح ما هي النتائج المطلوبة في الخلية وماهي الشروط لكل ناتج وهل الخلية هي الخلية المحددة عند فتح الملف (F33) أو خلية أخرى حتى يتمكن إخواننا الإعزاء من مساعدتك والعفو

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

أخي العزيز / fawze01 مرحبا بك عضوا جديدا في منتدى أوفيسينا ونتمنى لك طيب الإقامة بين أخوتك وهذه محاولة مني للحل إن شاء الله يكون هو المطلوب سجلات.rar

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

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

عظم الله أجركم وأحسن عزاكم وغفر لميتكم وأسكنه الله فسيح جناته

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