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


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


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


نتائج البحث عن ردود العضو :YasserKhalil
عدد النتائج (1168) نتيجة
22-04-2018 09:14 مساء
icon الفلتر ب CHECKBOX و COMBOBOX | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام
أخي الكريم المطلوب غير واضح .. قم بتوضيح المطلوب ليشارك الأعضاء بفعالية في الموضوع ..
لا يوجد سوى صور ولا يوجد الأدوات التي تتحدث عنها ولا أدري ما هي شكل المخرجات المتوقعة؟
22-04-2018 09:09 مساء
icon كتابة المعادلات في محرر الاكواد | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وجزيت خيراً بمثل ما دعوت لي أخي العزيز علي ومشكور على مرورك العطر
22-04-2018 05:42 مساء
icon احصاء عدد الخلايا بطرق عديدة | الكاتب :YasserKhalil |المنتدى: اكسيل شروحات ودروس
 ربنا يوفقك يا إسلام وتطلع من التلاتة الأوائل على الدفعة وتتعين معيد وتاخد الدكتوراة ونيجي كلنا نبارك لك ، وساعتها متقوليش أرنب ، ساعتها هتدبح بجرة وإلا ... wink_3
22-04-2018 05:38 مساء
icon كتابة المعادلات في محرر الاكواد | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim a           As Variant
    Dim x           As Variant
    Dim y           As Double
    Dim c           As Long
    Dim i           As Long
    Dim j           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        a = ws.Range("C5:X" & ws.Cells(Rows.Count, 3).End(xlUp).Row).Value
    
        For i = LBound(a, 1) To UBound(a, 1)
            If a(i, 3) <> "" Then
                y = 0: c = 4
                x = Application.Match(a(i, 3), sh.Columns(3), 0)
    
                If Not IsError(x) Then
                    For j = 4 To 19 Step 3
                        a(i, j + 1) = sh.Cells(x, c).Value
                        a(i, j + 2) = Val(a(i, j)) + Val(a(i, j + 1))
                        If a(i, j + 2) = 0 Then a(i, j + 2) = ""
                        y = y + Val(a(i, j + 2))
                        c = c + 1
                    Next j
                    a(i, 22) = IIf(y = 0, "", y)
                Else
                    For j = 4 To 22
                        a(i, j) = ""
                    Next j
                End If
            End If
        Next i
    
        ws.Range("C5").Resize(UBound(a, 1), UBound(a, 2)).Value = a
    Application.ScreenUpdating = True
End Sub
22-04-2018 05:20 مساء
icon احصاء عدد الخلايا بطرق عديدة | الكاتب :YasserKhalil |المنتدى: اكسيل شروحات ودروس
 تسلم أخي الحبيب أبو يوسف
لكم أسعدتني مداخلتك اللطيفة ومشاركتنا في الموضوعات المختلفة 

وبالنسبة لإسلام أهو كلام وكل شوية بيرجع تاني ، قال ايه : بيريح نفسه من المذاكرة شوية ؟ بيريح ساعة ويذاكر دقيقة ونص smile
22-04-2018 05:17 مساء
icon اضافة كود جمع عمودين في الليست بوكس | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 كود ممتاز ورائع أخي العزيز علي .. بارك الله فيك وجزاك الله خيراً
مشكور على تفاعلك المثمر داخل المنتدى ، وجعله الله في ميزان حسناتك
22-04-2018 05:08 مساء
icon بحث باكثر من شرط | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 تم نقل الموضوع إلى القسم المناسب
الرجاء من الأخوة الأعضاء التفاعل مع استفسارات الأعضاء
22-04-2018 05:05 مساء
icon برنامج EMA 2018- احدث نسخه | الكاتب :YasserKhalil |المنتدى: تطبيقات محاسبيه بالاكسيل
 بارك الله فيك أخي الحبيب حسام وجعله الله في ميزان حسناتك يوم القيامة
22-04-2018 07:19 صباحا
icon مشكلة عند وجود عدة تبويبات Page فى اليوزرفورم | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 الرسالة معناها أن أداة التحكم TextBox2 غير مرئية أو غير ممكنة ... حاول إضافة سطر لإظهار الأداة أو تمكينها
22-04-2018 07:14 صباحا
icon تجديد الموقع | الكاتب :YasserKhalil |المنتدى: المنتدى العام
 بارك الله فيك أخي الغالي حسام وجعله الله في ميزان حسناتك يوم القيامة
21-04-2018 08:16 صباحا
icon الغاء حماية ورقة | الكاتب :YasserKhalil |المنتدى: اكسيل اسئله واجابات
 هل أوراق الحماية كلها بنفس كلمة السر؟ وهل المقصود بفك الحماية بإنك تعرف كلمة المرور مسبقاً وتريد فك الحماية لجميع الأوراق مرة واحدة بالكود أم أنك لا تعرف أصلاً كلمة المرور لفك الحماية؟
21-04-2018 08:13 صباحا
icon البحث بمجرد كتابه اول حرف من التكست بوكس | الكاتب :YasserKhalil |المنتدى: اكسيل شروحات فيديو
 بسم الله ما شاء الله ..بارك الله فيك أخي العزيز علي وسدد خطاك ووفقك لكل خير
موضوعات ذات صلة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 

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





الساعة الآن 05:38 صباحا

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