احمد* قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 (معدل) السلام عليكم اخواني الكرام كيف يمكنني بمجرد كتابة درجة الطالب ان ينتقل الي الشيت الاخر مباشرة اسمه ودرجته وفقا لفئات الدرجات التي تم التقسيم بناءا عليها من 0الي 49 ومن 50 الي 64 وهكذا الي 100 بحيث تكتب اسماء الطلاب مقابل درجاتهم بالترتيب وفقا للدرجات تحت كل فئة دون ترك فراغات بين كل اسم وأخر وهي موضحه في الملف المرفق وجزاكم الله كل خير نقل البيانات مباشرة.rar تم تعديل ديسمبر 2, 2013 بواسطه احمد* 2
عبدالله باقشير قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم Sub Macro1() Dim Dr As Double Dim R As Long Dim MyColmn As Integer With Range("C9:N9") Range(.Cells, .Cells.End(xlDown)).ClearContents End With With ورقة1 For R = 6 To .Cells(.Rows.Count, 1).End(xlUp).Row Dr = Val(.Cells(R, "B")) Select Case Dr Case 0 To 49: MyColmn = 3 Case 50 To 64: MyColmn = 5 Case 65 To 74: MyColmn = 7 Case 75 To 84: MyColmn = 9 Case 85 To 99: MyColmn = 11 Case Else: MyColmn = 13 End Select Cells(Rows.Count, MyColmn).End(xlUp).Offset(1, 0).Resize(1, 2).Value = .Cells(R, "A").Resize(1, 2).Value Next End With End Sub المرفق 2010 نقل البيانات مباشرة.rar
فضل حسين قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم ورحمة الله وبركاته اكيد عمل رائع كالعادة فجميع أعمال العلامة الكبير عبدالله باقشير أعمال رائعة وأنا مشتاق لرؤية ومعرفة هذة الكنوز للعلامة الكبير ولكن المشكلة عندى اننى باستخدم اوفيس xp فأرجو من سيادتكم ألا تحرمونا من مشاهدة هذا العمل الرائع بان تضعوا نسخة للملف يعمل على اوفيس xp بارك الله للجميع وبارك الله لعالمنا الجليل عبدالله باقشير
عطاء الله قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم بعد إذن الأستاذ الكبير عبدالله بقشير هذا حل بواسطة حيل ومعادلاات إكسل لإثراء الموضوع تقبل تحياتي أستاذ بقشير نقل البيانات مباشرة.rar 1
عبدالله باقشير قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم ورحمة الله وبركاته اكيد عمل رائع كالعادة فجميع أعمال العلامة الكبير عبدالله باقشير أعمال رائعة وأنا مشتاق لرؤية ومعرفة هذة الكنوز للعلامة الكبير ولكن المشكلة عندى اننى باستخدم اوفيس xp فأرجو من سيادتكم ألا تحرمونا من مشاهدة هذا العمل الرائع بان تضعوا نسخة للملف يعمل على اوفيس xp بارك الله للجميع وبارك الله لعالمنا الجليل عبدالله باقشير جزاكم الله خيرا المرفق اوفيس 2003 نقل البيانات مباشرة.rar
حسين العصلوجى قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 اثراءا للموضوع كود اخر يقوم بالترحيل مباشرة بمجرد الادخال دون زر التحديث Private Sub Worksheet_Change(ByVal Target As Range) Set ws = Worksheets("ÏÑÌÇÊ ÇáØáÇÈ") Set ws2 = Worksheets("ÊÕäíÝ ÇáØáÇÈ") If Target.Column = 2 Then Select Case Target.Value Case 0 To 49: c = 3 Case 50 To 64: c = 5 Case 65 To 74: c = 7 Case 75 To 84: c = 9 Case 85 To 99: c = 11 Case Else: c = 13 End Select ws2.Cells(ws2.Cells(65536, c + 1).End(xlUp).Row + 1, c + 1) = Target.Value ws2.Cells(ws2.Cells(65536, c).End(xlUp).Row + 1, c) = ws.Cells(Target.Row, 1) End If End Sub نقل البيانات مباشرة H -.rar
احمد* قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 السلام عليكم بعد إذن الأستاذ الكبير عبدالله بقشير هذا حل بواسطة حيل ومعادلاات إكسل لإثراء الموضوع تقبل تحياتي أستاذ بقشير جزاكم الله كل خير جميعكم الاستاذ عبدالله باقشير والاستاذ عطاء الله والاستاذ حسين العصلوجي علي هذه الحلول والاجابات الرائعة ولكني اللذي فهمته ااكثر هو معادلات الاستاذ عطاء الله ولكن ساعدوني في اجراء بعض التعديلات عليها لان بعض الاسماء والدرجات بتكتب تحت فئة اخري وقد تكتب الاسم والدرجة تحت فئتين مختلفتين فلو تم ضبطها اكون شاكرا لكم تعاونكم واود كذلك الاستفسار عن مدلول العدد2 والعدد3 في المعادلة المستخدمة ولماذا تم تحديد C6 بالتحديد.واسأل الله ان تكون هذه الاعمال في ميزان حسناتكم فأنا تقريبا من اسبوعين اواكثر اسال عن هذا العمل ولم يستطع احد الاجابة علي فهذا المنتدي من اروع مارأيت بارك الله جهودكم
احمد* قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 جزاكم الله كل خير جميعكم الاستاذ عبدالله باقشير والاستاذ عطاء الله والاستاذ حسين العصلوجي علي هذه الحلول والاجابات الرائعة ولكني اللذي فهمته ااكثر هو معادلات الاستاذ عطاء الله ولكن ساعدوني في اجراء بعض التعديلات عليها لان بعض الاسماء والدرجات بتكتب تحت فئة اخري وقد تكتب الاسم والدرجة تحت فئتين مختلفتين فلو تم ضبطها اكون شاكرا لكم تعاونكم واود كذلك الاستفسار عن مدلول العدد2 والعدد3 في المعادلة المستخدمة ولماذا تم تحديد C6 بالتحديد. واذا تمكن الاستاذ حسين أو الاستاذ عبدالله ان يوضحوا لي بشئ من التفصيل علي الملف المرفق واظهار الدوال والمعادلات المستخدمه وكيف اعمل الماكرو المستخدم بالشرح علي الملف المرفق اكون شاكرا لكم تعاونكم واسأل الله ان تكون هذه الاعمال في ميزان حسناتكم فأنا تقريبا من اسبوعين اواكثر اسال عن هذا العمل ولم يستطع احد الاجابة علي فهذا المنتدي من اروع مارأيت بارك الله جهودكم
عطاء الله قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم أخي أحمد أخي الكريم المعادلة مضبوطة وجربتها وتعمل جيدا و لا تستدعي لتعديلات إنما الإسم المكرر ضع امام علامة كرقم1 أو لقبه أو نقطة أو مط فقط لأنك مكرر الإسم مرتين أو ثلاثة c6 فيهار حرف C مخفي هو الذي مؤخوذ كمجال لتحديد جرب وأخبرني
احمد* قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 السلام عليكم أخي أحمد أخي الكريم المعادلة مضبوطة وجربتها وتعمل جيدا و لا تستدعي لتعديلات إنما الإسم المكرر ضع امام علامة كرقم1 أو لقبه أو نقطة أو مط فقط لأنك مكرر الإسم مرتين أو ثلاثة c6 فيهار حرف C مخفي هو الذي مؤخوذ كمجال لتحديد جرب وأخبرني تسلم اياديكم جميعا فعلا جربتها يااستاذ عطاء الله وهي رائعة جدا بارك الله فيكم جميعا والله ماقصرتم في شئ لكن لدي استفسار هل C6 ثابت وكذلك العدد 2 والعدد 3 التي استخدمتهم في المعادلة ثابتين ام بيتغيرواجزاكم الله خيرا عن راحتي بمعرفتي هذه المعلومات وحل مشكلتي
عطاء الله قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 أخي الكريم c6- e6-g6-i6-k6-m6 هم في الصف6 مخفيين يقوم على اساسهم البحث في الجدول الأول وهم إستعملتهم كمعيار لحصر النتائج
احمد* قام بنشر ديسمبر 2, 2013 الكاتب قام بنشر ديسمبر 2, 2013 أخي الكريم c6- e6-g6-i6-k6-m6 هم في الصف6 مخفيين يقوم على اساسهم البحث في الجدول الأول وهم إستعملتهم كمعيار لحصر النتائج شكرا جزيلا لك اخي الكريم الاستاذ عطاء الله علي توضيحك الشديد والتعليم الميسر واذا اردت استفسار اخر ارجوا ان يتسع صدرك لذلك راجيا من الله ان يبارك فيك وفي اولادك علي هذا العمل الرائع كما اشكر جميع القائمين والاخوه الافاضل اللذين قدموا لي مساعداتهم سائلا المولي ان يزيدكم من فضله وييسر لكم اموركم
عطاء الله قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 أنا اخي الكريم في خدمت هذا المنتدى القيم اي إستفسار أنا موجود في هذا الملف أو في ملف آخر وبارك الله فيك عن هذه الحفاوة أما عن الأولاد فأنا لست متزوج مزال شكرا
عبدالله باقشير قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم بعد إذن الأستاذ الكبير عبدالله بقشير هذا حل بواسطة حيل ومعادلاات إكسل لإثراء الموضوع تقبل تحياتي أستاذ بقشير ما شاء الله عليك حل ذكي حدا جزاكم االله خيرا تقبلوا تحياتي وشكري
عطاء الله قام بنشر ديسمبر 2, 2013 قام بنشر ديسمبر 2, 2013 السلام عليكم أستاذنا الكبير بقشير هذه الشهادة من الشخص مثلك اعتز بها بارك الله فيك وجزاك الله كل خير-- دعوة والناس النيام-- تقبل تحياتي
احمد* قام بنشر ديسمبر 4, 2013 الكاتب قام بنشر ديسمبر 4, 2013 أنا اخي الكريم في خدمت هذا المنتدى القيم اي إستفسار أنا موجود في هذا الملف أو في ملف آخر وبارك الله فيك عن هذه الحفاوة أما عن الأولاد فأنا لست متزوج مزال شكرا أسأل الله ان يزوجك من الصالحات وان يرزقك الذرية الصالحة وان يبارك في جميع القائمين علي المنتدي تقبلوا تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.