اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

احمد الحاوي

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    176

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه احمد الحاوي

    ترقيم حجرات الامتحان تلقائيا في الشيت

    في منتدى الاكسيل Excel

    قام بنشر

    الاستاذ / العيدروس ( ابو نصار ) جزيت الخير من رب العالمين  على اهتمامك بالرد

    فلك مني كل الشكر والتحية 

    استاذنا الاستاذ ياسر ( ابو البراء ) : ماشاء الله .. كود رائع يفي بالمطلوب تماما ..

    جزاك الله خيرا .. وزادك علما ونشاطا لخدمة الاعضاء ..لك كل التحية والتقدير

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

    ترقيم تلقائي.rar

    • Like 1

    برنامج اعداد كشف 1 سري

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه احمد الحاوي

    اخواني الاعزاء في المنتدى الغالي منتدى الاكسيل اوفيسنا 

    هذا برنامج بسيط جدا لعمل كشوف 1 سري للمدارس 

    وذلك بمناسبة قرب موعد الامتحانات

    نرجو ان ينتفع به الاخوة المهتمين بشئون العاملين في المدارس 

     

     

    برنامج كشف 1 سري .. الحاوي.rar

    بداية الطريق لإنقاذ الغريق

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه احمد الحاوي

    اقتباس
    نص مخفي
    نص مخفي

     

     

    انت فعلا تستحق الثناء .... يا ابا البراء

     ومشاركاتك المتميزة خير دليل ... يا اخي ياسر خليل 

    فجزاك الله خيرا.... وزادك توضعا وعلما 

     

    نص مخفي

     

     

    • Like 1

    إلغاء أى حماية لشيت إكسيل بخطوة واحدة

    في منتدى الاكسيل Excel

    قام بنشر · تم تعديل بواسطه احمد الحاوي

    السلام عليكم ورحمة الله وبركاته

    أحبائى فى الله

    أقدم لكم اليوم كود يوضع فى حدث الشيت المراد فك حمايته يقوم بإلغاء الحماية عن الشيت

    Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

     

    جزاكم الله خيرا اخي الفاضل .. فعلا كود متميز

    رسالة شكر معطرة إلى الأخ الفاضل ياسر خليل على مجهودة فى المنتدى

    في المنتدى المفتوح

    قام بنشر

    الاستاذان الكبيران .. رجب جاويش و ياسر خليل (ابو البراء): اعطيتمونا دروسا في رد الفضل لاهله .. وتبادل الحب والتقدير بين الاخوة .. فهناك من يشارك بمشاركات وموضوعات قليلة ولكنها متميزة .. اما انتما فقد جمعتما بين غزارة الموضوعات والمشاراكات وتميزها فشكر لكما وجعل كل ما تبذلانه في ميزاني حسناتكما  .. تعلمنا ونتعلم منكما ومن كل الاعضاء الكثير فجزاكم الله خيرا جميعا 

    • Like 1

    البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف)

    في منتدى الاكسيل Excel

    قام بنشر

    الاستاذ المبدع ياسر خليل 

    جزاكم الله خيرا 

    نرجو ان يتم ربط البحث بالفلترة بمعنى انني عندما احصل على نتيجة البحث يتم اخفاء جميع الصفوف ما عدا الصف الموجودة به نتيجة البحث 

    ولكم جزيل الشكر 

    الردود على موضوع (افتح الباب وادخل لعالم البرمجة)

    في منتدى الاكسيل Excel

    قام بنشر

    بسم الله الرحمن الرحيم

    الاستاذ ياسر خليل

    جزاك الله خيرا على هذه الشروح المتقنة والاسلوب الجميل المميز

    على ان اكثر ما اعجبني من دروسك اخي ( وكلها متميزة) هو الدرس الرابع ...الرابع نعم

    ( طمعا في كرمكم الزائد )نرجو استكمال السلسلة وتضمينها في كتاب الكتروني مدعومة بالامثلة 

    بارك الله في علمك وعملك ... احبك في الله

×
×
  • اضف...

Important Information

  I accept