فضل حسين قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 الاساتذة الافاضل سلام الله عليكم ورحمته وبركاته مرفق ملف موضح به المطلوب وجزاكم الله كل خير على ماتقدموه من علم جعله الله فى ميزان حسناتكم وشكرا معرفة الصف.rar رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 (معدل) اخى الكريم الاستاذ / فضل حسين جرب هذا الكود فى الملف المرفق هل هو طلبك تقبل تحياتى ---------------------------------------- معرفة الصف.zip تم تعديل يناير 6, 2016 بواسطه الصـقر 1 رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 6, 2016 الكاتب مشاركة قام بنشر يناير 6, 2016 اساتذى واخى العزيز الفاضل / الصقر تسلم الايادى ياحبيبى وتسلم العقول النيرة الجميلة . ومن حق المسلمين ان يفخروا بأنك أحدهم بارك الله فيك . وصدقنى انا سعيد بهذة المداخلة ومرورك الكريم على طلبى وعلى هذا الكود القيم مثلك . ولكن يوجد ملحوظة بسيطة يجب ان يتداركها الكود وهو عندما كتبت حرف ( غ ) ضمن درجات العربى كمثال لطالب غائب الكود لايعمل أرجو من سيادتك حل هذة المشكلة ولكن فى النهاية تسلم الايادى والعقول وربنا يباركلنا فيك وفى انتظار حل هذة الملحوظة جزاك الله كل خير فضل حسين 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 اخى واستاذى الفاضل انا اسعد بمشاركة حضرتك فى اعمالك جرب المرفق ان شاء الله يعجبك تقبل تحياتى ---------------------------------------------------- معرفة الصف.zip 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 (معدل) جرب هذا الملف دون أكواد و لك حرية اختيار المرتبة معرفة الصف salim.rar تم تعديل يناير 6, 2016 بواسطه سليم حاصبيا رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 6, 2016 الكاتب مشاركة قام بنشر يناير 6, 2016 استاذى واخى العزيز الفاضل / الصقر بعد التحية قمنا بتجربة ملفك الاخير عند تشغيل الكود يعطى رسالة بسبب حرف ( غ ) ولايعمل الكود ولاادرى ماهو السبب . النقطة الثانية اريد استفسر من سيادتك من نقطة مهمة وهى الخاصة بسطر الكود الاتى " (Formula = "=RANK(RC[-1],R2C2:R1000C2)" انا اعرف انى R هى اختصار للصف و C هى اختصار للعمود ولكن عندما تم وضع [1-] ماذا تعنى ولماذا عندما اقوم بتغيير هذا الرقم فى الكود لايعمل. ومن اين تم تحديد المكان الذى يخرج فيه مخرجات الدالة RANK قبل قيام الكود بمسحها . استئذنك فى شرح هذا السطر من الكود حتى استطيع اطوع هذا الكود الجميل مثلك فى اعمالى شاكر لسيادتكم واهتمامكم وان دل على شئ دل على حسن خلقكم وحرصكم على تعلم العلم اخى الفاضل / سليم حاصبيا بالطبع معادلات رائعة ولكن المشكلة عندى انا عندى كم بيانات كبير وبالتالى علشان افضى ورقة خاصة للمعادلة واخذ النتيجة منها مش عارف اظن يأخذ وقت وجهد . واظن انا محتاج كود بضغطة واحدة ينهى المطلوب . لكن ياحبيبى هذا لايقلل من معادلاتك وملفك الرائع وانا شاكر لك ياحبيبى وجزاك الله كل خير ياحبيبى والف مليوم شكر للاستاذان الكرام الافاضل حسام خطاب سليم حاصبيا وشكرا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 اخى الكريم الكود يعمل تمام والنتيجة مظبوطه 100 % عندى حتى وان كان فى خلايا بها حرف غ ما هى نسخة الاوفيس لديك ؟ تفضل شرح الكود بالتفصيل Sub alsaqer() ' اخى الكريم اليك شرح الكود ' السطر التالى لايقاف اهتزاز الشاشه عند تنفيذ الكود Application.ScreenUpdating = False ' تعريف متغير اخر سطر من النوع لونج Dim lr As Long ' A عمل سطر لمعرفه اخر سطر به بيانات فى العمود lr = ورقة1.Cells(Rows.Count, "a").End(xlUp).Row ' RANK تحديد النطاق للصق معادلات الداله With ورقة1.Range("c2:c" & lr) ' c2 على سبيل المثال فى الخليه RC[-1] شرح هذا الجزء كما طلبت 'b2 انا عايزه يبص على الرقم اللى بالخليه المجاوره وهى 'c2 فهى على نفس السطر للــ b2 فعلشان اشير الى الخليه ' ولكن ليست نفس العمود فهى فى العمود اللى قبله R لذالك كتبت ' C[-1] لذالك كتبت .Formula = "=IFERROR(RANK(RC[-1],R2C2:R1000C2),0)" ' بعد لصق المعادلات فى النطاق المذكور يتم تحويل النتيجة من المعادله الى قيمه .Value = .Value End With ' مسح المحتوى لاستقبال بيانات جديده Range("i2:k50").ClearContents ' وقلت ان قيمته فى البدايه 2 b عمل متغير وسميته 'i2 الماذا 2 لان انا عايزه يلصق النتائج فى الخليه b = 2 'A عمل حلقه تكرارية بدأ من الصف الثانى الى اخر صف به بيانات بالعمود For i = 2 To lr 'هل هى اكبر من 0 واقل من 11 c لعمل اختبار للخليه اللى موجوده بالعمود if هنا استخدمت If Cells(i, 3) > 0 And Cells(i, 3) < 11 Then 'i & j & k فى حال تحقق الشرط ينسخ الخلايا فى العمود Cells(b, 9).Value = Cells(i, 1) Cells(b, 10).Value = Cells(i, 2) Cells(b, 11).Value = Cells(i, 3) 'بمقدار 1 كل لفه للحلقه b زياده المتغير b = b + 1 ' End If بــ if اغلاق End If ' عمل التالى للحلقه الى ان تنتهى من النطاق المحدد لها Next 'K2 بدأ من الخلية K وتحديد معيار الترتيب هو العمود i2:k50 عمل ترتيب تصاعدى للنطاق من ورقة1.Range("i2:k50").Sort Key1:=ورقة1.Range("k2"), Order1:=xlAscending ' لعدم الاحتياج له K مسح محتوى النطاق العمود Range("k2:k50").ClearContents ' لعدم الاحتياج له c مسح محتوى النطاق العمود Range("c2:c" & lr).ClearContents Application.ScreenUpdating = True End Sub شاهد المرفق تقبل تحياتى ---------------------------------------------------------- معرفة الصف.zip 1 رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 6, 2016 الكاتب مشاركة قام بنشر يناير 6, 2016 استاذى واخى العزيز الفاضل / حسام خطاب حبيب قلبى انا اسف انا حاسس انى تعبتك فأنا والله متأسف انا عندى اوفيس XP وغيرت فى الكود من دالة IFERROR إلى ISERORR ولكن وللاسف الكود يعطى رسالة خطأ اكرر اسفى وشكرى لسيادتكم وان تعذرنى اذا اثقلت على سيادتكم ربنا يخليك لنا ياحبيبى وبارك الله فيك وانا هاراجع شرح الكود ولو فيه اى استفسار اقول لسيادتكم شكرا رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 (معدل) اخى الكريم جرب هذا المرفق تقبل تحياتى -------------------------------------------------------------- معرفة الصف.zip تم تعديل يناير 6, 2016 بواسطه (حسام خطاب) الصقر 1 رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 6, 2016 الكاتب مشاركة قام بنشر يناير 6, 2016 حبيب قلبى / حسام خطاب وهو المطلوب اثباته هو ده المطلوب ياباشا والله مش عارف اشكر ازاى غير انى عايز اقولك اذان المغرب يؤذن الان ودعوت لك ولكل امثالك سواء فى المنتدى او غيره ان يزيدكم الله علما ويزيدكم الله من فضله ويكرمكم الله ويوفقكم اللهم امين . وان تكون هذة الاعمال بمثابة الصدقة الجارية لكم على طول العمر. شكرا ياحبيبى وعذرا اذا كنت ارهقتك شوية سعدت جدا بمرورك الكريم وبمشاركتك استمتعت بها ويارب نتقابل فى مشاركات اخرى شكرا ياحبيبى وجزاك الله عنا كل خير فضل حسين 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر يناير 6, 2016 مشاركة قام بنشر يناير 6, 2016 4 ساعات مضت, (حسام خطاب) الصقر said: اخى الكريم الاستاذ / فضل حسين جرب هذا الكود فى الملف المرفق هل هو طلبك تقبل تحياتى ---------------------------------------- معرفة الصف.zip أخي الحبيب حسام السلام عليكم ورحمة الله وبركاته أشكرك على هذه الرسائل المرفقة والتي تفيد بشكل مواز للردود جزاك الله خيرا....فكرة مبهرة ورائعة...تقبل تحياتي العطرة.. 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 7, 2016 مشاركة قام بنشر يناير 7, 2016 استاذى الحبيب ابويوسف مرورك هو الاروع والاجمل هذا ما تعلمناه منكم للعلم الصورالتى ارفقها غير مرتبطه بصاحب الموضوع ولا بنوع المشاركه ولا مضمونها حتى لا يفهم الموضوع بشكل شخصى من بعض الاخوه بالمنتدى تقبل تحياتى -------------------------------------------------------------------------------------- 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.