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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


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



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





تعديل على كود

[code]U3ViIFRlc3QoKTxiciAvPg0KJm5ic3A7ICZuYnNwOyBEaW0gaSBBcyBJbnRlZ2VyPGJyIC8+DQo8YnIgLz4NCiZuYnNwOyAmbmJzcDsgV2l0aCBBY3 ..



08-07-2019 12:23 مساء
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 98
الاعجاب : 22
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 98
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل على كود
للاسف
بيروح يلصق معادلات فى ورقة قاعدة البيانات c9 و d9
 





08-07-2019 02:57 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 98
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل على كود
تمام السطر الاخير 
بس هو عمل معادلة على sheet2
و المطلوب sheet3  قاعدة البيانات
عايزين نغير دى بقى من =MAX(Sheet2!B3:B2000)
الى =MAX(Sheet3!B3:B2000)





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





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





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





10-07-2019 09:02 صباحا
مشاهدة مشاركة منفردة [8]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 98
الاعجاب : 22
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6582
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 400
قوة السمعة : 18172
الاعجاب : 620
 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]
صلاح الصغير
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 3
قوة السمعة : 98
الاعجاب : 22
 offline 
look/images/icons/i1.gif تعديل على كود
تمام المعادلة ظبطت و فى مكانها الصحيح
بس مش بيروح على اخر صف فى ورقة قاعدة البيانات
بيفضل واقف على ورقة التأشيرة سواء طبعت منها او من ورقة قاعدة البيانات
 





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


الف شكر

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




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

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعديل على كود ترحيل احمد على
2 53 احمد على
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
144 3382 مالك ماريه
تعديل ملف اكسل lahbib
7 535 lahbib
تعديل في الفورم 3 عصام حنيش
5 94 محمد الدسوقى
تعديل في كود حدف البيانات لمكررة المبتدأ
2 95 المبتدأ

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


 







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



الساعة الآن 10:57 مساء

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