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

أبو حنــــين

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2845

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

  • Days Won

    9

 نوع المحتوي 

كل منشورات العضو أبو حنــــين

  1. أبو حنــــين
    أخي جرب المرفق 2Adel.rar
  2. أبو حنــــين
    بالنسبة لكود التشغيل من السهل عمله لكن التوقيف المؤقت اعتقد انه من الصعب عمل ذلك لانه اثناء القراءة لا يعطيك الفرصة لعمل اي شيئ حتى تكتمل القراءة
  3. أبو حنــــين
    العفو أخي عيدكم مبارك و كل عام و انتم بخير
  4. أبو حنــــين
    جرب المرفق اخي تكتب الحرف الاول من الكلمة و تضغط على : أنتر 1Adel.rar
  5. أبو حنــــين
    أرجو ان ترسل الملف الذي تريد التعديل عليه
  6. أبو حنــــين
    لا يوجد مرفق أخي
  7. أبو حنــــين
    هذه محاولة ارجو ان تقوم بتجربتها و تخبرني بالنتائج لاني لم اجرب كما ينبغي القسط الثاني22.rar
  8. أبو حنــــين
    أخي عباد جرت الكود الذي قدمته و هو يعمل و قمت بتعديل طفيف كالتالي Private Sub Worksheet_Change(ByVal Target As Range) Dim Ali_Spec As Object Set Ali_Spec = CreateObject("SAPI.SpVoice") Ali_Spec.Rate = 0 Ali_Spec.Speak Target.Text Set Ali_Spec = Nothing End Sub
  9. أبو حنــــين
    عمل ممتاز و مفيد و مهم جدا أخي عباد جزاك الله خيرا
  10. أبو حنــــين
    جزاك الله خيرا أخي : الأستاذ هاني عدلي و لقد اضفت للمعادلة التي ادرجتها الدالة AND =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"md");"") =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"ym");"") =IF(AND(B6<>"";C6<>"");DATEDIF(B6;C6;"y");"")
  11. أبو حنــــين
    فرق الايام يساوي تكتب في الخلية D4 =DATEDIF(B4;C4;"md") فرق الاشهر يساوي ثم تكتب في الخلية E4 =DATEDIF(B4;C4;"ym") فرق السنوات يساوي ثم تكتب في الخلية F4 =DATEDIF(B4;C4;"y") حيث تكتب في الخلية B4 تاريخ البداية و في الخلية C4 تاريخ النهاية
  12. أبو حنــــين
    يمكن عمل الكود التالي لكنه لا يسمح أي بحذف ورقة او اضافة ورقة Private Sub Workbook_Open() ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False End Sub
  13. أبو حنــــين
    السلام عليكم أخي الكريم الدهشوري إنا لله و إنا اليه راجعون عظم الله اجركم واسكن فقيدكم الفردوس الاعلى و غفر له ذنبه
  14. أبو حنــــين
    حسبت حسب خانة متوسط الفصلين الصف الخامس بنات عربي 2013.rar
  15. أبو حنــــين
    بالفعل كانت هناك أخطاء لانني لم اجرب البرنامج قمت بالتعديل جرب و اخبرني بالنتيجة بالنسبة لورقة Imp فقط هي اضافية حيث يمكنك من خلالها معرفة عدد الاجهزة المباعة بين فترتين مثلا جهاز Black IPhone4 تخنار التاريخ من ....... الى ........ ثم تضغط على OK القسط.rar
  16. أبو حنــــين
    السلام عليكم و عيدكم مبارك اجريت تعديلات جذرية على الملف القسط.rar
  17. أبو حنــــين
    *.*.*.*-----------------*.*.*.*.*.*.*----------------*.*.*.* *.*.*.* عيدكم مبارك * و كل عام * و أنتم بخير *.*.*.* *.*.*.*--------------------------------------------------*.*.*.* *.* أعاده الله على الأمة الإسلامية كافة بالخير و اليمن و البركات *.*.* *.*.*.*-----------------*.*.*.*.*.*.*----------------.*.*.*.*
  18. أبو حنــــين
    لا ادري اين المشكلة عندك لقد غيرت بعض الشيئ و كتبت لك بعض التوضيحات حاول تطبيقها لاحظ ان الخلايا و الصفوف و الاعمدة يجب ان تبقى مثل الملف الذي سأرسله لك الآن 2بيع بالتقسيط.rar
  19. أبو حنــــين
    السلام عليكم هذه محاولة ارجو ان تستفيد منها بيع بالتقسيط.rar
  20. أبو حنــــين
    جزاك الله خيرا أخي مجدي و هذه هي البداية و بالمناسبة : أهنئكم بمناسبة عيد الاضحى المبارك أعاده الله علينا و على الامة الاسلامية بالخير و الامن و السلام
  21. أبو حنــــين
    اخي تم عمل المطلوب Q2.rar
  22. أبو حنــــين
    جزاك الله خيرا أخي رعد
  23. أبو حنــــين
    العفو أخي
  24. أبو حنــــين
    تم تعديل الملف نقل بفورمات جديد.rar
  25. أبو حنــــين
    تستطيع استعمال هذا Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim Ar Ar = Array("1", "2", "3", "4") ComboBox1.List = Ar End Sub
×
×
  • اضف...

Important Information

  I accept