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

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




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

Preview

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


نتائج البحث عن ردود العضو :yousef_kaf
عدد النتائج (104) نتيجة
01-03-2021 01:38 مساء
icon كود لاضافة سطور حسب الشهر الحالي وعدد الاقساط | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
كنت قد طرحت الموضوع فى منتدي اخر
وقام الاستاذ حسين مأمون بالرد عليا
تم ارفاق الكود 
Dim lr, lr2, lrw
Dim x, w, dt, rg
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("n6:p100000").ClearContents
For x = 6 To lr
        Set rg = Cells(x, "c")
        If Cells(x, "c") >= 1 Then
        lr2 = Cells(Rows.Count, "n").End(xlUp).Row
        Range("n" & lr2 + 1).Resize(, 3).Value = Cells(x, 1).Resize(, 3).Value
        For w = 1 To rg
        lrw = Cells(Rows.Count, "p").End(xlUp).Row
'        If Format(Cells(w, "o"), "m") = Format(Range("p3"), "m") Then GoTo 1
        Range("n" & lrw + 1) = Cells(x, 1)
        dt = Range("o" & lrw)
        Range("O" & lrw + 1).Value = Format(DateAdd("m", 1, dt), "mm-yyyy")
        Range("p" & lrw + 1).Value = Range("p" & lrw) - 1
         dt = Format(DateAdd("m", 1, dt), "mm-yyyy")
         If dt = CDate(Range("p3")) Then GoTo 1
        Next w
        End If
1: Next x
Application.ScreenUpdating = True
14-03-2020 08:25 مساء
icon استخراج تقرير من بيانات بشروط | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 للرفع
05-11-2019 06:27 صباحا
icon عند تحديث قيمة خليه يتم وضعها بأخر خليه بالعمود | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 كود جميل استاذ سليم
جزاك الله خيرا
كلا الكودين يؤدون العمل بكفاءة
شكرا لكم جميعا
04-11-2019 07:30 مساء
icon عند تحديث قيمة خليه يتم وضعها بأخر خليه بالعمود | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 بعد التجربة وصلت لهذا الحل
اكرر شكري استاذ مالك
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b2")) Is Nothing Then
Dim X As Long
lr = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & lr + 1).Value = Sheets(1).Range("b2").Value
Sheets(1).Range("b2").Value = ""
End If
End Sub

04-11-2019 07:22 مساء
icon عند تحديث قيمة خليه يتم وضعها بأخر خليه بالعمود | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 جزاك الله خيرا استاذ مالك
هذا الكود هو المطلوب
ولكن هل يمكن ان يعمل مباشرة بدون زر اي بعد الادخال مباشرة والضغط انتر
Sub trhil()

Dim X As Long
lr = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & lr + 1).Value = Sheets(1).Range("b2").Value
Sheets(1).Range("b2").Value = ""

End Sub

12-10-2019 09:28 صباحا
icon إظهار صورة الموظف وبياناته حسب رقمه Insert Picture From Folder In Worksheet SelectionChange Event | الكاتب :yousef_kaf |المنتدى: موضوعات ياسر خليل أبو البراء
  جزاك الله خيرا استاذ ياسر
03-10-2019 03:22 مساء
icon استخراج الأرقام الناقصة Extract Missing Numbers | الكاتب :yousef_kaf |المنتدى: موضوعات ياسر خليل أبو البراء
 الكود رائع وسريع جدا
بارك الله فيك استاذ ياسر
28-09-2019 09:47 صباحا
icon التنسيق الشرطي لتلوين صفوف تتوافق مع شروط محددة Conditional Formatting Tutorial | الكاتب :yousef_kaf |المنتدى: موضوعات ياسر خليل أبو البراء
 جزاك الله خيرا استاذ ياسر
24-09-2019 06:52 صباحا
icon استخراج القيم الفريدة مع كل القيم المرتبطة بها List Unique Concatenate Corresponding Values | الكاتب :yousef_kaf |المنتدى: موضوعات ياسر خليل أبو البراء
 ما شاء الله فكرة جميلة جدا
03-09-2019 08:41 صباحا
icon سلسلة دروس مستفادة عن فيجوال بيزك اكسل_ كاملة | الكاتب :yousef_kaf |المنتدى: قسم السلاسل والدورات التدريبية
 جزيت خيرا استاذنا لغالي
31-07-2019 09:09 صباحا
icon تقريب ارقام بشروط | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 شكرا استاذي الفاضل وبالفعل المعادلات ادت المطلوب تماما حسب المنطق ولكن الطلب غريب نوعا ما
اكرر شكري وتقديري لشخصكم الكريم
29-07-2019 03:47 مساء
icon تقريب ارقام بشروط | الكاتب :yousef_kaf |المنتدى: اكسيل اسئله واجابات
 استاذ حسام اعذرني ان اثقلت عليك
البيانات اللي المفروض هتوضع في الفاتورة من b5:F10
اللي اقدر اعدل عليه فيها هو البيانات من E5:E10 فقط (بشرط الفرق بينها وبين الاسعار من i5:i10 لكل بند لا تتجاوز90)
البيانات اللي موجوده في E5:E10 من ناتج المعادلة الخاصة بحضرتك والظاهرة بعلامتين عشريتين لما بكتبها بنفس الارقام الظاهرة بتعطيني فرق
لما اخدتها نسخ ولصق كقيم لقيت انها بتظهر كالتالي علي سبيل المثال 9446.69816564758 عشان كده لما بكتب9446.70 وهكذا علي باقي البنود
بيظهر فرق ما بين الناتج الاجمالي والناتج المطلوب
المطلوب : اني اكتب الرقم بعلامتين عشريتين فقط (دون تقريب) ليعطي الناتج المطلوب
اتمني اكون قدرت اوصل الفكرة لحضرتك

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





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

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