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

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

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



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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمود ابو الدهب
عدد النتائج (352) نتيجة
18-12-2018 10:49 مساء
icon كنترول ابو مينا الاسيوطى للمرحلة الابتدائية حسب القرار 360 لسنة 2018 شامل الدورين معا | الكاتب :محمود ابو الدهب |المنتدى: اكسيل مشاريع جاهزه
 بارك الله فيكم وزادكم الله من فضلة
 
18-12-2018 10:47 مساء
icon حصرياً : Windows 10 19H1 [18252.1000.180928-1410] Extend Version en-us (x86x64) AIO [30in1] | الكاتب :محمود ابو الدهب |المنتدى: منتدى برامج الكمبيوتر
 بارك الله فيك استاذنا العزيز محمد الدسوقى ما نحن الا نقطة في بحر علمكم الكبير
 
18-12-2018 10:46 مساء
icon اظهار قيم خلايا من شيت أخر بناءاً علي عدة شروط | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 تفضل التعديل التالى وبه 
1- يبحث عن ارقام الشركات كلها مش مربوط بعدد معين لو كانوا واحده او مائة او الف او اى عدد وليس 200 فقط كما طلبت
2- تم العمل على بعض التعديلات علية واضافة حلقة تكرارية اخرى فلو زادة الشركات وزادة قاعدة البيانات قد تثقل الملف قليلا وليس كثيرا وللعلم اعمل فيه اضا بالمصفوفات لسرعة البيانات

جرب ومنظر ردك بالكود التالى

Option Explicit

Sub abodahab()
    Dim myArray, lr, X, targt, rw, lr2, xx
    Dim SERCH As Worksheet, DATA As Worksheet
    Dim nowd  As Date
    Dim oldd  As Date
    '____________________________________________
    Set DATA = Worksheets("data")    'اسم شيت قاعدة البيانات
    Set SERCH = Worksheets("main")    'اسم الشيت الخاص بالبحث
    lr2 = SERCH.Cells(Rows.Count, 3).End(xlUp).Row   'اخر صف بيانات في صفحة البحث
    '____________________________________________
    lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row    'اخر صف به بيانات
    myArray = DATA.Range("A4:f" & lr)     'نطاق قاعدةالبيانات الذي سيتم البحث فيه
    '____________________________________________
    ReDim Y(1 To lr, 1 To 6)
    For xx = 3 To lr2
targt = SERCH.Range("c" & xx).Value    'خلية البحث
    rw = rw + 1
    For X = 1 To lr - 3
       If myArray(X, 2) = targt Then
          nowd = myArray(X, 1)
          If oldd = 0 Or nowd > oldd Then
             If myArray(X, 3) <> "" Then Y(rw, 1) = myArray(X, 3)
             If myArray(X, 4) <> "" Then Y(rw, 2) = myArray(X, 4)
             If myArray(X, 5) <> "" Then Y(rw, 3) = myArray(X, 5)
             If myArray(X, 6) <> "" Then Y(rw, 4) = myArray(X, 6)
             oldd = myArray(X, 1)
        End If
       End If
    Next X
    nowd = 0
    oldd = 0
    Next xx
    If rw > 0 Then SERCH.Cells(2, 8)(2, 1).Resize(rw, 6).Value = Y()
End Sub

تقبل تحياتى وتقديري
18-12-2018 10:08 مساء
icon حصرياً : Windows 10 19H1 [18252.1000.180928-1410] Extend Version en-us (x86x64) AIO [30in1] | الكاتب :محمود ابو الدهب |المنتدى: منتدى برامج الكمبيوتر
 شكرا بكار
18-12-2018 10:06 مساء
icon جمع المتشابة برقم الكود في عمود B وبينهم صف فارغ | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك والحمد لله على تمام طلبك
 
18-12-2018 10:04 مساء
icon كيف يتم تحديد الشيت المراد التعديل عليه من خلال كود التعديل | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: aljathmai »
استاتذتي الكرام بارك الله فيكم حاولت بشتى الطرق ما نفعت معي الا يكون الشيت التابع للفورم هو اللي مفتوح . اذا كنت مثلاً باعدل من الفورم 1 علي ورقة 1 وفاتح ورقة 3 قبل الدخول على اليوزر فورم يعدل لي بالفورم 1 على ورقة 3 .. اظن أنني بحاجة الا اربعين دقيقة يومياً مكثفة كي افهم .g

ثانياً استاذي الفاضل محمود اطال المولى بعمرك على طاعته وبر والديك هذا السؤال الثاني لك  Dim ws      As Worksheet   Set ws = Worksheets("sheet1"wink_3 ws.Range("a1"wink_3.Value = Me.textbox1.Value

اضنك تقصد بـ A1هو المكان الذي كتبنا فيه اسم الشيت . صح
وهل ينفع اضيفه لاي كود تعديل مثل الكود الذي اضفته 
والا لازم كود يصاغ على اسم المتغير


لانى مش فاهم طلبك قوى يفضل وضع ملف مصغر لعمل وبه كود اعدل عليه في حالة لم تفهمنى من المشاركة السابقة وبعدها لاحظ الفرق وانته تفهم قصدى

تقبل تحياتى وتقديرىي
18-12-2018 10:02 مساء
icon كيف يتم تحديد الشيت المراد التعديل عليه من خلال كود التعديل | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 الغى  ActiveCell
ثم نفذ الخطوه الى اخبرتنى بها في اخر تعليق 
وبدلا من  ActiveCell  ضع
ifws.cells(i,1) = textbox1.text then
ws.cells(i,1).select
exit for
end if
next i
ws.cell.offset(0,1)= textbox2.text


ثم اكمل باقي الكود عادى

 
18-12-2018 09:55 مساء
icon ماعاهدنا منكم التأخير في الرد | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 ان شاء الله اعملك كود اسرع من هذا ولكنى على سفر الان عند الرجوع
 
18-12-2018 06:04 مساء
icon اظهار قيم خلايا من شيت أخر بناءاً علي عدة شروط | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 الى حضرتك طالبة شغل تانى وكان المفروض توضح طلبك جيدا على العموم لما ارجع هنظر فيه ان شاء


تقبل تحياتي وتقديرى
18-12-2018 05:47 مساء
icon كارته صنف مخزن | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 يرجى تيل الموضوع وتوضيح ما تريد عملة وبدقة وايضا اختيار رآس للموضوع مناسب حتى يكون مرجع لغيرك 


تقبل تحياتى وتقديرى
18-12-2018 12:27 صباحا
icon طلب المساعدة في تعديل كود | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 صراحتا المطلوب مش واضح بالنسبة ليا مع احساسي انه سهل عمله ان شاء الله 
ارجوا مزيد من التوضيح



تقبل تحياتي وتقديري
18-12-2018 12:17 صباحا
icon ضبط مسافه النهايه | الكاتب :محمود ابو الدهب |المنتدى: اكسيل اسئله واجابات
 اعتقد فيه بس مرهقة لتنفيذها واسف لن استطيع عملها إنتظر باقي ردود الاعضاء وان شاء اللة تجد ما تريد
 

الصفحة 1 من 30 < 1 2 3 4 30 > الأخيرة »





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

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