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



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





مساعدة في تعديل الكود

السلام عليكم اهل الخبرة وبيت الخبرة بعد تنفيذ الكود كنت اريد توسيع النطاق البحث في الشيت لا يعمل معي عندي توسيع النطا ..



24-09-2017 04:33 مساء
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 197
الاعجاب : 66
 offline 

السلام عليكم اهل الخبرة وبيت الخبرة 
بعد تنفيذ الكود  كنت اريد توسيع النطاق البحث في الشيت  لا يعمل معي عندي توسيع النطاق 
Sub TimoSah()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Dim Cell, Cell2, Cell3, Cell4 As Range
Dim X, Y, Z As Integer
For X = 4 To 6
Sheet2.Range("H" & X, "K" & X).Value = ""
Sheet2.Range("M" & X).Value = ""
Sheet2.Range("P" & X).Value = ""
Sheet2.Range("S" & X).Value = ""
Sheet2.Range("V" & X).Value = ""
Sheet2.Range("X" & X, "AA" & X).Value = ""
Sheet2.Range("AC" & X).Value = ""
Sheet2.Range("AE" & X).Value = ""
Sheet2.Range("AG" & X).Value = ""
Sheet2.Range("AI" & X).Value = ""
For Z = 6 To 33
For Y = 3 To 28
Rrs = Sheet1.Range("m" & Z).Row - 5
Rrt = Sheet3.Range("m" & Y).Row - 2
For Each Cell In Sheet1.Range("L" & Z).Cells
If Cell.Value = Sheet2.Range("B" & X).Value Then
For Each Cell2 In Sheet1.Range("n" & Z).Cells
Select Case Cell2.Value
Case Is = Sheet2.Range("F2").Value
Sheet2.Range("H" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("L2").Value
Sheet2.Range("M" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("O2").Value
Sheet2.Range("P" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("R2").Value
Sheet2.Range("S" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("U2").Value
Sheet2.Range("V" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("Y2").Value
Sheet2.Range("Z" & X).Value = Application.Index(Sheet1.Range("D6:D33"), Application.Large(Rrs, 1), 0)
Sheet2.Range("AA" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AC2").Value
Sheet2.Range("AC" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AE2").Value
Sheet2.Range("AE" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AG2").Value
Sheet2.Range("AG" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
Case Is = Sheet2.Range("AI2").Value
Sheet2.Range("AI" & X).Value = Application.Index(Sheet1.Range("m6:m33"), Application.Large(Rrs, 1), 0)
End Select
Next Cell2
End If
Next Cell
For Each Cell3 In Sheet3.Range("L" & Y).Cells
If Cell3.Value = Sheet2.Range("B" & X).Value Then
Sheet2.Range("X" & X).FormulaR1C1 = _
        "=LOOKUP(2,1/('ÝÑÚ ÇáÌíÒÉ'!R3C12:R28C12='ÊÞÑíÑ ÕíÇäÉ'!RC[-22]),('ÝÑÚ ÇáÌíÒÉ'!R3C4:R28C4))"
For Each Cell4 In Sheet3.Range("n" & Y).Cells
Select Case Cell4.Value
Case Is = Sheet2.Range("F2").Value
Sheet2.Range("I" & X).Value = Application.Index(Sheet3.Range("m3:m28"), Application.Large(Rrt, 1), 0)
Sheet2.Range("J" & X).Value = Application.Index(Sheet3.Range("D3:D28"), Application.Large(Rrt, 1), 0)
Sheet2.Range("K" & X).Value = Application.Max((Sheet2.Range("H" & X).Value), (Sheet2.Range("I" & X).Value)) + 12000
Case Is = Sheet2.Range("Y2").Value
Sheet2.Range("Y" & X).Value = Application.Index(Sheet3.Range("m3:m28"), Application.Large(Rrt, 1), 0)
End Select
Next Cell4
End If
Next Cell3
Next Y
Next Z
Next X

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

 
سبب التعديل : ضبط الكود







24-09-2017 07:44 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 2191
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 9
يتابعهم : 0
يتابعونه : 225
قوة السمعة : 6207
الاعجاب : 1856
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
وعليكم السلام
الموضوع غير مقبول شكلاً وموضوعاً وغير مطابق للمواصفات العالمية
العنوان غير معبر
الأكواد المدرجة في الموضوع غير موضوعة داخل أقواس الكود ولذا لا تظهر بشكل منضبط
لا يوجد ملف مرفق
لا يوجد تفاصيل كافية عن المشكلة
لا يوجد نتائج متوقعة
 ................
لا تعليق

أثارت هذه المشاركة إعجاب: ahmed moh، الصقر،




25-09-2017 09:17 صباحا
مشاهدة مشاركة منفردة [2]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 197
الاعجاب : 66
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبصباح الخير 
استاذ ياسر ابو البراء
مغذرة انني لاارفق الشيت 
اريد هنا توسيع النطاق الموجود بالكود الي اخر صف به بيانات في قاعدة البيانات 
حتي يستخرج معي تقرير صيانة 
 
 
  تحويل-المعادلة-الي-كود -VBA تجربة .rar   تحميل rar مرات التحميل :(2)
الحجم :(511.84) KB






25-09-2017 11:27 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
العضو غائب مشغول هذه الايام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 675
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 335
قوة السمعة : 4341
الاعجاب : 1088
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
ياعم رمضان والله احنا بنحاول نساعد الكل بس الاغلب مش بيحاول يساعدنا اننا نساعده
بعض النقاط الهامه تؤخذ في الحسبان
اللي قدامك دا مش شرط يكون بيعرف في مجالك فلازم توضح المسألة بصيغة الاكسيل الخلية كذا العمود كذا الناتج بيبقى كذا بالطريقة كذا توضيح عشان نفهم
عنصريين اساسيين مثال وتوضيح المطلوب
المثال يكون مثال مش شرط الملف كله محتاجين حاجات عينات كدا من الملف نقدر نركز عليها
توضيح المطلوب كالاتي لا إطالة مملة ولا اختصار مخل 
وكما يقال حسن السؤال شطر الإجابة
انا حاولت اشوف الملف بس موصلتش انا هعمل ايه وفي اي شيت واي نطاق!!!!
142

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


توقيع :Yasser Elaraby
663013020



25-09-2017 11:40 صباحا
مشاهدة مشاركة منفردة [4]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 197
الاعجاب : 66
 offline 
look/images/icons/i1.gif مساعدة في تعديل الكود
عليكم السلام استاذ ياسر ابو  اسيل 
اخي الافضل انا هنا في الشيت  يكود كود  يعمل هذا الكود  اخر صف في قاعدة البيانات  33
لكنني اريدة بعد توسيع قاعدة البيانات الي 6000 صف
يعطني النتيجة في التقرير  






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مطلوب معادلة تعديل ارصدة طبقا لاولوية ترتيب فروع Mory Ali
0 45 Mory Ali
تعديل كود جلب الاسماء و محرك البحث ابوعبدالواجد
2 34 ابوعبدالواجد
طلب مساعدة في تعديل كود فلترة جدول و جعله يقبل فلترة الارقام زياد عبد الجليل
3 56 YasserKhalil
كيفية التعديل علي قالب وردTemplateمن خلال يوزرفورم في الاكسل بإستخدام أدهBookmarks في قالب الورد إبراهيم محمد
8 65 إبراهيم محمد
تعديل على كود لجلب تقرير مبالغ حسب التاريخ ابوعبدالواجد
5 63 YasserKhalil

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


 








الساعة الآن 09:04 صباحا

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