أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه محمود ابو الدهب-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تعديل على كود

[code]U3ViIFRlc3QoKTxiciAvPg0KJm5ic3A7ICZuYnNwOyBEaW0gaSBBcyBJbnRlZ2VyPGJyIC8+DQo8YnIgLz4NCiZuYnNwOyAmbmJzcDsgV2l0aCBBY3 ..



08-07-2019 12:23 مساء
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 

Sub Test()
    Dim i As Integer

    With ActiveSheet
        For i = .Range("T4").Value To .Range("T5").Value
             .Range("C9").Value = i
'             .PrintPreview
              .PrintOut
         
        Next i
        
        Range("C9:D9").Select
    ActiveCell.FormulaR1C1 = "=MAX('قاعدة البيانات'!R[-6]C[-1]:R[1991]C[-1])"
    
      
      Range("c" & [c2].End(xlDown).Row + 1).Select
    End With
End Sub


السلام عليكم 
مطلوب تعديل بسيط على هذا الكود
و هو السطر الخاص بالنطاق c9:d9 و لصق المعادلة
المطلوب تنفيذ المعادلة على هذا النطاق من نفس الورقة و هو ما يحدث بالفعل عند تنفيذ الكود من نفس الورقة
و لكن عند تنفيذه من ورقة اخرى عن طريق سطر كود application.onkey "^e" , "macro2"
يتم لصق المعادلة فى الورقة الفعالة
و شكرا
 
 
  test.rar   تحميل rar مرات التحميل :(5)
الحجم :(153.298) KB







08-07-2019 01:04 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
جرب التعديل التالي
Sub Test()
    Dim i As Integer

    With Sheet3
        For i = .Range("T4").Value To .Range("T5").Value
             .Range("C9").Value = i
'             .PrintPreview
              .PrintOut
         
        Next i
        
        .Range("C9:D9").FormulaR1C1 = "=MAX('قاعدة البيانات'!R[-6]C[-1]:R[1991]C[-1])"
        .Range("C" & .Range("C2").End(xlDown).Row + 1).Select
    End With
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، محمد الدسوقى،




08-07-2019 01:29 مساء
مشاهدة مشاركة منفردة [2]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
للاسف
بيروح يلصق معادلات فى ورقة قاعدة البيانات c9 و d9
 





08-07-2019 02:57 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
المفترض أن المعادلات توضع في الشيت Sheet3 (الاسم الكودي)
 With Sheet3


جرب تحديد اسم ورقة العمل بالضبط من خلال السطر السابق

أو جرب السطر التالي
.Range("C9:D9").FormulaR1C1 = "=MAX('" & .Parent.Name & "'!R[-6]C[-1]:R[1991]C[-1])"


حيث تم إزالة اسم ورقة العمل واستبدالها بالورقة التي سيتم التعامل معها

أثارت هذه المشاركة إعجاب: ali mohamed ali،




09-07-2019 11:12 صباحا
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
تمام السطر الاخير 
بس هو عمل معادلة على sheet2
و المطلوب sheet3  قاعدة البيانات
عايزين نغير دى بقى من =MAX(Sheet2!B3:B2000)
الى =MAX(Sheet3!B3:B2000)





09-07-2019 02:07 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
هل المطلوب التعامل مع ورقة عمل ثابتة (ورقة عمل محددة) أم أن المطلوب في الكود أن يكون مرن للتعامل مع أي ورقة عمل نشطة؟؟





09-07-2019 02:43 مساء
مشاهدة مشاركة منفردة [6]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
المطلوب ان يتم تنفيذ الكود من اى ورقة عمل
يعنى مثلا لو انا على ورقة قاعدة البيانات اتمكن من طباعة الصفحةة اللى موجودة فى ورقة التاشيرة من خلال الاختصارات المبرمجة هى المشكلة بس فى تنفيذ ال sub test اخر تعديل حضرتك عملته صح بس المعادلة غلط هى بتعمل max من ورقة ٢ و المطلوب ورقة قاعدة البيانات





09-07-2019 06:28 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
رجع المعادلة زي ما كانت قبل التعديل ليصبح التعامل في المعادلة مع ورقة قاعدة البيانات





10-07-2019 09:02 صباحا
مشاهدة مشاركة منفردة [8]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
بيلصق المعادلة فى c9 ورقة قاعدة البيانات
و المفروض تكون ورقة التأشيرة c9:d9
Sub Test()
    Dim i As Integer

    With Sheet4
        For i = .Range("T4").Value To .Range("T5").Value
             .Range("C9").Value = i
'              .PrintPreview
              .PrintOut
         
        Next i
        
        Range("C9:D9").Select
'    ActiveCell.FormulaR1C1 = "=MAX('قاعدة البيانات'!R[-6]C[-1]:R[1991]C[-1])"
    .Range("C9:D9").FormulaR1C1 = "=MAX('" & .Parent.Name & "'!R[-6]C[-1]:R[1991]C[-1])"
      
      Range("c" & [c2].End(xlDown).Row + 1).Select
    End With
End Sub

الكود على الوضع ده بيلصق المعادلة فى مكانها الصحيح فى ورقة التأشيرة أو sheet4
لكن معادلة max بتجيب من sheeet2 و المفروض تكون من sheet3  او قاعدة البيانات
 





10-07-2019 09:24 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
جرب التعديل التالي ....
Sub Test()
    Dim i As Integer

    With Sheet4
        For i = .Range("T4").Value To .Range("T5").Value
             .Range("C9").Value = i
              .PrintOut
        Next i

        .Range("C9:D9").FormulaR1C1 = "=MAX('قاعدة البيانات'!R[-6]C[-1]:R[1991]C[-1])"
        Application.Goto .Range("C" & .Range("C2").End(xlDown).Row + 1)
    End With
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali،




10-07-2019 09:46 صباحا
مشاهدة مشاركة منفردة [10]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
تمام المعادلة ظبطت و فى مكانها الصحيح
بس مش بيروح على اخر صف فى ورقة قاعدة البيانات
بيفضل واقف على ورقة التأشيرة سواء طبعت منها او من ورقة قاعدة البيانات
 





10-07-2019 11:39 صباحا
مشاهدة مشاركة منفردة [11]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 209
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 161
الاعجاب : 52
 offline 
look/images/icons/i1.gif تعديل على كود
الاخ الكريم / ياسر
تم استرجاع هذا السطر و العملية تمت بنجاح
Range("c" & [c2].End(xlDown).Row + 1).Select


الف شكر

أثارت هذه المشاركة إعجاب: YasserKhalil،




10-07-2019 01:32 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7372
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 offline 
look/images/icons/i1.gif تعديل على كود
بارك الله فيك أخي صلاح
والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: صلاح الصغير،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على كود تجميع بيانات الشيتات في شيت رئيسي مداد_1423
3 15 YasserKhalil
التعديل على كود حفظ نسخة للفاتورة ashraf_hertlion
5 30 YasserKhalil
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
8 60 مجدى يونس
فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة مجدى يونس
7 95 مجدى يونس
مساعدة في تعديل كود جمع القيم المبتدأ
8 70 YasserKhalil

الكلمات الدلالية
تعديل ،


 







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



الساعة الآن 08:17 مساء

أعلن هنا
أعلن هنا
أعلن هنا