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

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




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

Preview

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


نتائج البحث عن ردود العضو :أحمد يوسف
عدد النتائج (359) نتيجة
02-03-2021 02:18 مساء
icon كود لاضافة سطور حسب الشهر الحالي وعدد الاقساط | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 تم المطلوب من قبل الأستاذ حسين مأمون بكود جديد على منتدى أوفيسنا 
Sub test()

Dim lr, lr2, lrw

Dim x, w, dt, rg

Application.ScreenUpdating = False

lr = Cells(Rows.Count, 1).End(xlUp).Row

Range("n6:p10000").ClearContents

For x = 6 To lr

        Set rg = Cells(x, "c")

         dt = Cells(x, "b")

        If Cells(x, "c") >= 1 Then

        lr2 = Cells(Rows.Count, "n").End(xlUp).Row

        For w = 1 To rg

        lrw = Cells(Rows.Count, "p").End(xlUp).Row

         If dt = CDate(Range("p3")) Then GoTo 1

        Range("n" & lrw + 1) = Cells(x, 1)

        Range("O" & lrw + 1).Value = Format(DateAdd("m", 1, dt), "mm-yyyy")

        Range("p" & lrw + 1).Value = rg - 1

         dt = Format(DateAdd("m", 1, dt), "mm-yyyy")

         rg = rg - 1

        Next w

        End If

1: Next x

Application.ScreenUpdating = True



End Sub


 
   
 
 
 
Sub test() Dim lr, lr2, lrw Dim x, w, dt, rg Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row Range("n6:p10000").ClearContents For x = 6 To lr Set rg = Cells(x, "c") dt = Cells(x, "b") If Cells(x, "c") >= 1 Then lr2 = Cells(Rows.Count, "n").End(xlUp).Row For w = 1 To rg lrw = Cells(Rows.Count, "p").End(xlUp).Row If dt = CDate(Range("p3")) Then GoTo 1 Range("n" & lrw + 1) = Cells(x, 1) Range("O" & lrw + 1).Value = Format(DateAdd("m", 1, dt), "mm-yyyy") Range("p" & lrw + 1).Value = rg - 1 dt = Format(DateAdd("m", 1, dt), "mm-yyyy") rg = rg - 1 Next w End If 1: Next x Application.ScreenUpdating = True End Sub ​
 
 
19-01-2021 07:05 مساء
icon إشتقاق تاريخ التقاعد من الرقم القومى | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 أحسنت استاذ علي محمد اجابة ممتازة بارك الله فيك ووسع الله فى رزقك
أبو سجدة
أين الضغط على 
الإعــــــجـــــاب لهذه الإجابة الممتازة ... وهذا اقل ما يقدم بكثير لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!!!12328
16-01-2021 10:33 مساء
icon نقل اسم الكوموند بوتون الى خلية فى ورقة عمل | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 أحسنت استاذ ياسر اجابة ممتازة بارك الله فيك ووسع الله فى رزقك
حبيبتى دائم
أين الضغط على 
الإعــــــجـــــاب لهذه الإجابة الممتازة ... وهذا اقل ما يقدم بكثير لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!!!12328
 
Well, Mr. Yasser, an excellent answer, may God bless you and may God extend your livelihood My love is permanent Where is the pressure on admiration for this excellent answer ... and this is much less than what is offered to the one who is credited with you after our Lord for solving your problem and relieving your distress? !!!!!
 

30-12-2020 09:46 مساء
icon تعديل كود معرفة حالة الطالب حاضر أو غائب | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام ... كان عليك لزاما عدم عمل تشتيت ورفع مشاركتك هنا أيضاً , طالما انك تحصلت بالفعل على كود الحل من قبل استاذنا الكبير سليم حاصبيا ... له منا كل المحبة والإحترام


Private Sub CommandButton2_Click()

Dim ws As Worksheet: Set ws = Sheets("inpout1")

Dim lr As Integer

Dim R, Ahe3b$, Hather$

 Ahe3b = "غ": Hather = "حاضر"

 ws.Range("ai5:ai500").ClearContents

lr = ws.Range("b" & Rows.Count).End(xlUp).Row

 For R = 5 To lr

  If ws.Cells(R, "B") <> vbNullString Then

     If Application.CountIf(ws.Cells(R, "H").Resize(, 15), Ahe3b) >= 6 Then

        ws.Cells(R, "AI") = "غائب"

     Else

        ws.Cells(R, "AI") = Hather

     End If

  End If

 Next R

 End Sub

​




 




 


Salim Hasbaya


 










14-12-2020 01:30 مساء
icon مشكلة في زر التعديل لايعمل | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام - تفضل هذه هى الإجابة المطلوبة قدمت لك من قبل الأستاذ حسين مأمون , له منا كل المحبة والإحترام 
tEW6w_2
28-11-2020 10:35 مساء
icon تحديد اسم الشيت بدلالة الاسم المعرف | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 مراد
فين انت من كل هذه الإجابات الممتازة ,أين الضغط على الإعـــــــجــــاب ؟!!! وهل جزاء الإحسان الا الإحسان !!!12328
23-11-2020 10:03 مساء
icon مساعدة بارك الله فيكم | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام ... عنوان مخالف للمشاركة فلابد ان يكون العنوان معبر عن مضمون المشاركة
كما انه لابد لكل مشاركة طلب واحد وليس أكثر من ذلك
كما نبهنا مراراً وتكراراً انه لا يمكن المساعدة بدون ملف .... فرجاءاً لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة دون جدوى أو أهمية
08-07-2020 11:46 مساء
icon جلب بيانات من عدة اعمدة الى عمود واحد | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 Hassanask
فين انت من هذه الإجابة الممتازة.... بارك الله فيك استاذ سليم دائماً مبدع ؟!!!
أين الضغط على الإعجاب ؟!!!28123

07-07-2020 10:48 صباحا
icon كود يوزرفورم وربطه بزر لادراج الزر في كل اوراق العمل لاستعراض كل اوراق العمل | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام-تفضل لا يمكن عمل أكثر من هذا بهذا الكود
Sub SheetMenu()
    Application.CommandBars("Workbook tabs").ShowPopup
End Sub

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
24-06-2020 11:28 صباحا
icon فك حماية ملف | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام-بالطبع اخى الكريم هذا ممنوع فهذه حقوق ملكية لصاحبها فقط
فان كان يريد ان تكون مفتوحة ومكفولة للجميع فلما شفرها ؟!!!
فهذه جهود المبرمج وهو الوحيد الذى له الحق فى ذلك -فعليك بالإنصال مباشرة بمبرمج هذا العمل
15-06-2020 02:11 مساء
icon تغيير شكل msgbox | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ووضع شكل النتائج المرجوة
13-06-2020 11:05 صباحا
icon طلب مساعدة فى عمل ارقام عشوائية غير مكررة | الكاتب :أحمد يوسف |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك استاذ ياسر .. تم التنفيذ ووضع الملف بالمشاركة الموجودة بالمنتدى الأخر

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





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

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