اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نقل البيانات مباشرة بشروط


احمد*

الردود الموصى بها

السلام عليكم 

اخواني الكرام

 كيف يمكنني بمجرد كتابة درجة الطالب ان ينتقل الي الشيت الاخر مباشرة اسمه ودرجته وفقا لفئات الدرجات التي تم التقسيم بناءا عليها من 0الي 49 ومن 50 الي 64 وهكذا الي 100

بحيث تكتب اسماء الطلاب مقابل درجاتهم بالترتيب وفقا للدرجات تحت كل فئة دون ترك فراغات بين كل اسم وأخر

وهي موضحه في الملف المرفق  

وجزاكم الله كل خير 

 

 

 

نقل البيانات مباشرة.rar

تم تعديل بواسطه احمد*
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

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

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اكيد عمل رائع كالعادة فجميع أعمال العلامة الكبير عبدالله باقشير أعمال رائعة

وأنا مشتاق لرؤية ومعرفة هذة الكنوز للعلامة الكبير

ولكن المشكلة عندى اننى باستخدم اوفيس xp

فأرجو من سيادتكم ألا تحرمونا من مشاهدة هذا العمل الرائع

بان تضعوا نسخة للملف يعمل على اوفيس xp

بارك الله للجميع وبارك الله لعالمنا الجليل عبدالله باقشير

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

اكيد عمل رائع كالعادة فجميع أعمال العلامة الكبير عبدالله باقشير أعمال رائعة

وأنا مشتاق لرؤية ومعرفة هذة الكنوز للعلامة الكبير

ولكن المشكلة عندى اننى باستخدم اوفيس xp

فأرجو من سيادتكم ألا تحرمونا من مشاهدة هذا العمل الرائع

بان تضعوا نسخة للملف يعمل على اوفيس xp

بارك الله للجميع وبارك الله لعالمنا الجليل عبدالله باقشير

جزاكم الله خيرا

المرفق اوفيس 2003

نقل البيانات مباشرة.rar

رابط هذا التعليق
شارك

اثراءا للموضوع 

كود اخر يقوم بالترحيل مباشرة بمجرد الادخال دون زر التحديث

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

 

mpe2S.jpg

رابط هذا التعليق
شارك

السلام عليكم

بعد إذن الأستاذ الكبير عبدالله بقشير

هذا حل بواسطة حيل ومعادلاات إكسل لإثراء الموضوع

تقبل تحياتي أستاذ بقشير

جزاكم الله كل خير جميعكم الاستاذ عبدالله باقشير والاستاذ عطاء الله والاستاذ حسين العصلوجي علي هذه الحلول والاجابات الرائعة ولكني اللذي فهمته ااكثر هو معادلات الاستاذ عطاء الله ولكن ساعدوني في اجراء بعض التعديلات عليها لان بعض الاسماء والدرجات بتكتب تحت فئة اخري وقد تكتب الاسم والدرجة تحت فئتين مختلفتين فلو تم ضبطها اكون شاكرا لكم تعاونكم واود كذلك الاستفسار عن مدلول العدد2 والعدد3 في المعادلة المستخدمة ولماذا تم تحديد C6 بالتحديد.واسأل الله ان تكون هذه الاعمال في ميزان حسناتكم فأنا تقريبا من اسبوعين اواكثر اسال عن هذا العمل ولم يستطع احد الاجابة علي فهذا المنتدي من اروع مارأيت بارك الله جهودكم

رابط هذا التعليق
شارك

جزاكم الله كل خير جميعكم الاستاذ عبدالله باقشير والاستاذ عطاء الله والاستاذ حسين العصلوجي علي هذه الحلول والاجابات الرائعة ولكني اللذي فهمته ااكثر هو معادلات الاستاذ عطاء الله ولكن ساعدوني في اجراء بعض التعديلات عليها لان بعض الاسماء والدرجات بتكتب تحت فئة اخري وقد تكتب الاسم والدرجة تحت فئتين مختلفتين فلو تم ضبطها اكون شاكرا لكم تعاونكم واود كذلك الاستفسار عن مدلول العدد2 والعدد3 في المعادلة المستخدمة ولماذا تم تحديد C6 بالتحديد. واذا تمكن الاستاذ حسين أو الاستاذ عبدالله ان يوضحوا لي بشئ من التفصيل علي الملف المرفق واظهار الدوال والمعادلات المستخدمه وكيف اعمل الماكرو المستخدم بالشرح علي الملف المرفق اكون شاكرا لكم تعاونكم واسأل الله ان تكون هذه الاعمال في ميزان حسناتكم فأنا تقريبا من اسبوعين اواكثر اسال عن هذا العمل ولم يستطع احد الاجابة علي فهذا المنتدي من اروع مارأيت بارك الله جهودكم

رابط هذا التعليق
شارك

السلام عليكم أخي أحمد

أخي الكريم المعادلة مضبوطة وجربتها وتعمل جيدا

و لا تستدعي لتعديلات إنما الإسم المكرر ضع امام علامة كرقم1 أو لقبه أو نقطة أو مط فقط

لأنك مكرر الإسم مرتين أو ثلاثة

c6  فيهار حرف C مخفي هو الذي مؤخوذ كمجال لتحديد

جرب وأخبرني

رابط هذا التعليق
شارك

السلام عليكم أخي أحمد

أخي الكريم المعادلة مضبوطة وجربتها وتعمل جيدا

و لا تستدعي لتعديلات إنما الإسم المكرر ضع امام علامة كرقم1 أو لقبه أو نقطة أو مط فقط

لأنك مكرر الإسم مرتين أو ثلاثة

c6  فيهار حرف C مخفي هو الذي مؤخوذ كمجال لتحديد

جرب وأخبرني

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

رابط هذا التعليق
شارك

أخي الكريم

c6- e6-g6-i6-k6-m6

هم في الصف6 مخفيين يقوم على اساسهم البحث

في الجدول الأول وهم إستعملتهم كمعيار لحصر النتائج

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

رابط هذا التعليق
شارك

السلام عليكم

بعد إذن الأستاذ الكبير عبدالله بقشير

هذا حل بواسطة حيل ومعادلاات إكسل لإثراء الموضوع

تقبل تحياتي أستاذ بقشير

 

 

ما شاء الله عليك حل ذكي حدا

جزاكم االله خيرا

تقبلوا تحياتي وشكري

رابط هذا التعليق
شارك

أنا اخي الكريم في خدمت هذا المنتدى القيم

اي إستفسار أنا موجود في هذا الملف أو في ملف آخر

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

شكرا

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information