saeedmg قام بنشر نوفمبر 15, 2007 قام بنشر نوفمبر 15, 2007 السلام عليكم آمل الاطلاع على ملفي وفيه يوجد استفساري ولكم الشكر _____________.rar
عبدالله باقشير قام بنشر نوفمبر 16, 2007 قام بنشر نوفمبر 16, 2007 السلام عليكم تفضل المرفق ان شاء الله يكون طلبك خبور خير _____________.rar
saeedmg قام بنشر نوفمبر 17, 2007 الكاتب قام بنشر نوفمبر 17, 2007 اشكرك اخي خبور اريد لوتكرمت ان توضح لي الكود لإني وقعت في مشكلة اختيار مكان وضع الدرجة فربما يختلف بمعنى انه اذا كانت الدرجة من صفحة( البيانات) توجد في c7 واريد ان اضعها في (ورقة تسجيل الدرجات ) في اي احقل اختاره انا وليس بشرط ان تكون متسلسله بمعنى آخر ان يكون لي حرية اختيار مكان رصد الدرجة وفقك الله
saeedmg قام بنشر نوفمبر 18, 2007 الكاتب قام بنشر نوفمبر 18, 2007 تراني منتظر اخي خبور انا محتاج تفهمني وتحل المشكلة بارك الله لك في علمك
عبدالله باقشير قام بنشر نوفمبر 18, 2007 قام بنشر نوفمبر 18, 2007 السلام عليكم انظر الى المرفق ان شاء الله يكون طلبك لك حرية اختيار الجداول في ورقة الترحيل واختيار موقعها في ورقة البيانات خبور خير _____________1.rar
saeedmg قام بنشر نوفمبر 18, 2007 الكاتب قام بنشر نوفمبر 18, 2007 اخي خبور جزاك الله خيرا والله اني عاجز عن الشكر اخي الطريقه هذه متعبه جدا لو اتبعتها وربما لم تعرف ما كنت اعني انا اقصد بأن يكون لي الا ستطاعة بأن اعدل بداخل الكود وليس اثناء الادخال بمعنى آخر ان يوضح بالكود الحقل(c7) في ورقة (تسجيل الدرجات) ان اسجل في اي حقل بورقة (البيانات) وليكن حقل (h2) سامحني على تعبك وآمل تلبية طلبي
عبدالله باقشير قام بنشر نوفمبر 18, 2007 قام بنشر نوفمبر 18, 2007 السلام عليكم اخي العزيز لم اعرف المطلوب بالضبط ارجوا المعذرة خبور خير
saeedmg قام بنشر نوفمبر 19, 2007 الكاتب قام بنشر نوفمبر 19, 2007 (معدل) والله اني عاجز عن الشكر وسامحنا على تعبك اخي تجد برفقه المستند الاصلي ولقد وضحة فيه المطلوب بالتفصيل ولك الشكر والدعاء بالتوفيق 321.rar تم تعديل نوفمبر 19, 2007 بواسطه saeedmg
عبدالله باقشير قام بنشر نوفمبر 20, 2007 قام بنشر نوفمبر 20, 2007 السلام عليكم تفضل ان شاء الله يكون المطلوب خبور خير _____________2.rar
saeedmg قام بنشر نوفمبر 20, 2007 الكاتب قام بنشر نوفمبر 20, 2007 جزاك الله خيرا هذا ما اردته لاعدمناك يا استاذ خبور خير هل لي ان استوضح منك ان توضح لي بعض الامور : .Cells(F, 21) = Range("F9").Value هل تشرح هذه الجملة ولو اردت ان اغير في مكان الحقول التي تذهب (ترحل) اليها الدرجات فكيف اعمل وماذا اعدل بالكود بارك الله في علمك
saeedmg قام بنشر ديسمبر 2, 2007 الكاتب قام بنشر ديسمبر 2, 2007 السلام عليكم ورحمة الله وبركاته اخواني هذا الملف ساهم اخي خبور خير في حل بعض الاشكاليات ولقد وضعنا زر امر ترحيل الدرجات الى صفحة البيانات المطلوب : تفعيل هذا الزر وتوضيح سبب المشكلة لكي نستفيد والله يعطيكم الفففففففففففففففففف عافية 11111111.rar
saeedmg قام بنشر ديسمبر 4, 2007 الكاتب قام بنشر ديسمبر 4, 2007 س: هل الموضوع صعب ؟ ج: والله ليس صعب عليكم لإنكم اساتذتنا ومنكم تعلمنا . اخواني سبق ان حل المشكلة مشرفنا خبور خير وفقه الله على هذا الرابط لكن عندما نقلت الحل الى مستندي الاصل لم يعد يعمل زر الترحيل . وهذا رابط الحل هنـــــــــــــــــــــــــــــــــــــــــــــــــــا فوضحوا لنا اين المشكلة جزاكم الله خيراً
عبدالله باقشير قام بنشر ديسمبر 17, 2007 قام بنشر ديسمبر 17, 2007 السلام عليكم انا حرسل الملف ان شاء الله اليوم عصرا ان شاء الله مش عارف فين الاقيه خبور خير
saeedmg قام بنشر ديسمبر 17, 2007 الكاتب قام بنشر ديسمبر 17, 2007 جزاك الله خيرا علمني ماهي المشكلة وماذا حدث للزر من خلل حتى لايعمل وفقك الله
عبدالله باقشير قام بنشر ديسمبر 17, 2007 قام بنشر ديسمبر 17, 2007 السلام عليكم اخي العزيز انت غيرت موقع اسم المدرس و غيرت مواقع الاعمدة في الكود تفضل الملف 11111111.rar
عبدالله باقشير قام بنشر ديسمبر 17, 2007 قام بنشر ديسمبر 17, 2007 السلام عليكم بامكانك ايضا استخدام هذا الكود اكثر مرونة وسهولة Sub Khboor_n() On Error Resume Next Dim Mycelle As Range 'الخلايا التي تريد نقلها من ورقة تسجيل الدرجات Set Mycelle = Range("F9,I16,I24,I34,C17,C35,F26,C7,F16,C25,F34,I8") Application.ScreenUpdating = False With Sheets("البيانات") W = .Cells(.Rows.Count, "B").End(xlUp).Row N = 21 'اول عمود في ورقة البيانات S = 12 'عدد الخلايا المنقولة For R = 1 To S For F = 2 To W If .Cells(F, 2) = Range("اسم_المدرس").Value Then .Cells(F, N - 1 + R) = Mycelle.Areas(R) T = F End If Next Next .Select End With Application.ScreenUpdating = True Range("U" & T).Select On Error GoTo 0 End Sub اخوك خبور خير
saeedmg قام بنشر ديسمبر 17, 2007 الكاتب قام بنشر ديسمبر 17, 2007 (معدل) السلام عليكم بامكانك ايضا استخدام هذا الكود اكثر مرونة وسهولة Sub Khboor_n() On Error Resume Next Dim Mycelle As Range 'الخلايا التي تريد نقلها من ورقة تسجيل الدرجات Set Mycelle = Range("F9,I16,I24,I34,C17,C35,F26,C7,F16,C25,F34,I8") Application.ScreenUpdating = False With Sheets("البيانات") W = .Cells(.Rows.Count, "B").End(xlUp).Row N = 21 'اول عمود في ورقة البيانات S = 12 'عدد الخلايا المنقولة For R = 1 To S For F = 2 To W If .Cells(F, 2) = Range("اسم_المدرس").Value Then .Cells(F, N - 1 + R) = Mycelle.Areas(R) T = F End If Next Next .Select End With Application.ScreenUpdating = True Range("U" & T).Select On Error GoTo 0 End Sub اخوك خبور خير اخوي خبور خير الله يوفقك دنيا وآخره طبقت الكود الجديد بس ابغي اعرف كيف وضعنا الدرجات في الحقول من (U الى AF) (بورقة البيانات) كيف تم ذلك بحت عنها في الكود وماعرفت !!! (N = 21 'اول عمود في ورقة البيانات ) فهمني على هذا السطر ماذا يعني !! بالله عليك توضحها لي بالكود جزاك الله خيرا تم تعديل ديسمبر 17, 2007 بواسطه saeedmg
عبدالله باقشير قام بنشر ديسمبر 17, 2007 قام بنشر ديسمبر 17, 2007 السلام عليكم انظر الى المرفق ___.rar
saeedmg قام بنشر ديسمبر 18, 2007 الكاتب قام بنشر ديسمبر 18, 2007 استاذي اسأل الله العلي القدير ان يكتب لك بكل حرف وبكل رقم حسنة ويضاعفها لك ولجميع المسلمين ويبارك لك في علمك
ناصر سعيد قام بنشر ديسمبر 19, 2007 قام بنشر ديسمبر 19, 2007 استاذي اسأل الله العلي القدير ان يكتب لك بكل حرف وبكل رقم حسنة ويضاعفها لك ولجميع المسلمين ويبارك لك في علمك آمين يارب العالمين
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.