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

توكل

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

  • Posts

    315

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

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

 نوع المحتوي 

كل منشورات العضو توكل

  1. توكل
    عزيزي محمد طاهر السلام عليكم ورحمة الله أنا بالفعل مسجل بإسم الحقيقي مع الشكر الجزيل, والشكر موصول لأعضاء الفريق في الدعم الفني وكل أعضاء منتدى أوفسنا الأعزاء. دمتم بخير
  2. توكل
    هل هذا الملف يفي بالغرض أخي الكريم؟ جمع رقمين بعد الفاصلة فقط.rar
  3. توكل
    راجع الموضوع ده في المنتدى يمكن يكون فيه فائدة لك
  4. توكل
    أخي الخطأ عندك في المدى الذي تبحث فيه إذ يجب أن تكون الخلية التي هي المرجع في البحث هي أول خلية من اليسار في مدى البحث كما في المرفق 01.2017.rar
  5. توكل
    أخي الكريم جرب المرفق عسى أن يكون ما طلبته Book1.rar
  6. توكل
    جرب المرفق هل هو المطلوب Book1.rar
  7. توكل
    أخي أبا سلمان الملف يعمل وبشكل سليم أمس عملته في البيت وأنا أستخدم نسخة أوفس 2016 مرخصة من مايكروسوفت أيضا واليوم أنزلته من المنتدى في المكتب وهو يعمل ولامشكلة فيه لست أدرى أين المشكلة.
  8. توكل
    اخي جرب الملف المرفق date_errore.rar
  9. توكل
    المشكلة أخي الكريم أنك عندما تحول التاريخ بدالة (TEXT(C32;"M/D/YYYY") يصبح الشهر رقمه 13 وهذا طبعاً مستحيل لانه لا يوجد 13 شهر في السنة جرب أن تكتب الدالة اليوم ثم الشهر TEXT(C32;"dd/mm/YYYY") تنصلح معك الأمور إن شاء الله تعالى
  10. توكل
    جزاك الله خيراً أخي الحبيب الزباري على هذه الفائدة جعلها الله في صحائف حسناتك وغفر الله لنا ولك ولوالدينا جميعاً
  11. توكل
    أخي الكريم بحسب ما فهمت منك جرب المرفق عله يكون المطلوب نموذج رواتب.rar
  12. توكل
    أخي الكريم المطلوب غير واضح الرجاء التكريم بتوضيح طلبك حتى يتمكن الإخوة من خدمتك جزاك الله خيراً
  13. توكل
    أخي الكريم جرب المرفق مع ملاحظة أن كل سنة هجرية بينها وبين الميلادية 11 يوماً لذلك سيكون هناك فرق في التاريخ، ولعل الأخوة لديهم حل أفضل من الذي ذكرته لك 2.rar
  14. توكل
    السلام عليكم بعد إذن الأستاذ محمد الريفي أليكم إخواني الملف المثال dynamic chart -Elrify.rar
  15. توكل
    الاستاذ سليم أعتقد أن المعادلة الأخيرة تحقق للأخ صلاح ما يريد ولكن هناك ملاحظة صغيرة وأعتقد أنه خطأ أثناء الكتابة ليس إلا الأ وهو أن ROWS($I$2:I11) يجب أن يستبدل بـ ROWS($I$2:I2)
  16. توكل
    شكراً لك أخي الكريم ونفعنا الله بما تعلمنا وجعل هذا العلم حجة لنا لا حجة علينا ونتمنى على الله أن يلهمك موضوعاً جديداً بالقريب العاجل حتى نستفيد من علمك الجم وكذلك نتمنى على الإخوة الأفاضل أن يفتحوا مواضيع تعليمية وبخاصة في مجال معادلات الإكسل الموجودة في الإكسل فالكثير منا لا يعرف إلا النذر اليسير عن معادلات الإكسل المضمنة في البرنامج.
  17. توكل
    جزاك الله خيراً وجعل ذلك في صحائف حسناتك وصحائف والديك
  18. توكل
    أخي سليم يمكن للكود التالي أن يجيب على سؤالك Sub z_to_a() Dim i As Integer answer = Application.InputBox("type yourNumber") x = Abs(Val(answer)) For i = 1 To x x = Abs(Val(answer)) Cells(i, 1) = x + 1 - i Next i End Sub
  19. توكل
    أعتقد أن الكود البسيط هذا يحقق المطلوب Sub z_to_a() Dim i As Integer For i = 1 To 10 x = 11 Cells(i, 1) = x - i Next i End Sub
  20. توكل
    طبعاً نحن المستفيدون الأكبر من تلاقح هذه الأفكار استمروا على هذا المنوال أنا أقوم بكتابة كل كود يتم إضافته في كراسة للإستفادة القصوى منه لاحقاً
  21. توكل
    أستاذي الزباري كل هذا بفضل علمك الذي تفضلت به علينا بارك الله فيك
  22. توكل
    أعتقد أنا هذا الكود سوف يقوم بالمطلوب ولكن قد يكون هناك شيء أفضل والعلم عند الله Sub row_col() Dim Col As Long Dim Row As Long For Col = 1 To 4 For Row = 1 To 20 Step 3 Cells(Row, Col).Interior.Color = RGB(200, 200, 200) Next Row Next Col End Sub
  23. توكل
    أعتقد أن هذا الكود يفي بالغرض ويحقق الشرط المطلوب وهو تلوين سطر وترك سطرين Sub Rowscolor() Dim i As Integer i = 1 For i = 1 To 100 Step 3 Rows(i).Interior.Color = RGB(200, 200, 200) i = i Next i End Sub هل أجبت الجواب الصحيح أم أن في جعبتكم شيء آخر؟
  24. توكل
    يا سيدي أنا لازلت أحبو في هذا المجال ومشاركة أبي حنين جزاك الله وإياه كل خير، هي يلي علمتني كيف أكتب الكود
  25. توكل
    هذا بعض من علمكم وعلم الأحبة في منتدانا الغالي تجودون علينا بعلمكم ونحن نجود بعلمكم على غيرنا. دمتم جميعاً بخير
×
×
  • اضف...

Important Information

  I accept