توكل

عزيزي محمد طاهر

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

أنا بالفعل مسجل بإسم الحقيقي مع الشكر الجزيل, والشكر موصول لأعضاء الفريق في الدعم الفني وكل أعضاء منتدى أوفسنا الأعزاء.

دمتم بخير

هل هذا الملف يفي بالغرض أخي الكريم؟

جمع رقمين بعد الفاصلة فقط.rar

راجع الموضوع ده في المنتدى يمكن يكون فيه فائدة لك

أخي الخطأ عندك في المدى الذي تبحث فيه إذ يجب أن تكون الخلية التي هي المرجع في البحث هي أول خلية من اليسار في مدى البحث كما في المرفق

01.2017.rar

أخي الكريم جرب المرفق عسى أن يكون ما طلبته 

Book1.rar

جرب المرفق هل هو المطلوب

Book1.rar

9 ساعات مضت, ابوسلماان said:

صحيح وصلني وهو مضبوط ..  لكن بمجرد ما نقرت على الخلية ظهر الخطأ

 

مع ان النسخة اللي عندي اوفيس 2016 وقمت بشراءها من مايكروسوفت 

أخي أبا سلمان الملف يعمل وبشكل سليم أمس عملته في البيت وأنا أستخدم نسخة أوفس 2016 مرخصة من مايكروسوفت أيضا واليوم أنزلته من المنتدى في المكتب وهو يعمل ولامشكلة فيه لست أدرى أين المشكلة.

32 دقائق مضت, ابوسلماان said:

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

 

وشكرا لتفاعلك.

اخي جرب الملف المرفق 

date_errore.rar

المشكلة أخي الكريم أنك عندما تحول التاريخ بدالة (TEXT(C32;"M/D/YYYY") يصبح الشهر رقمه 13 وهذا طبعاً مستحيل لانه لا يوجد 13 شهر في السنة جرب أن تكتب الدالة اليوم ثم الشهر TEXT(C32;"dd/mm/YYYY") تنصلح معك الأمور إن شاء الله تعالى

جزاك الله خيراً أخي الحبيب الزباري على هذه الفائدة جعلها الله في صحائف حسناتك وغفر الله لنا ولك ولوالدينا جميعاً

أخي الكريم بحسب ما فهمت منك جرب المرفق عله يكون المطلوب

نموذج رواتب.rar

أخي الكريم المطلوب غير واضح الرجاء التكريم بتوضيح طلبك حتى يتمكن الإخوة من خدمتك جزاك الله خيراً

أخي الكريم جرب المرفق مع ملاحظة أن كل سنة هجرية بينها وبين الميلادية 11 يوماً لذلك سيكون هناك فرق في التاريخ، ولعل الأخوة لديهم حل أفضل من الذي ذكرته لك

2.rar

السلام عليكم 

بعد إذن الأستاذ محمد الريفي أليكم إخواني الملف المثال 

dynamic chart -Elrify.rar

الاستاذ سليم أعتقد أن المعادلة الأخيرة تحقق للأخ صلاح ما يريد ولكن هناك ملاحظة صغيرة وأعتقد أنه خطأ أثناء الكتابة ليس إلا الأ وهو أن 

ROWS($I$2:I11)

يجب أن يستبدل بـ

ROWS($I$2:I2)

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

جزاك الله خيراً وجعل ذلك في صحائف حسناتك وصحائف والديك

54 دقائق مضت, سليم حاصبيا said:

ممتاز

لكن حبذا عدم التقيد بالرقم 10 ودع المستخدم يختار الرقم الذي يريده

أخي سليم يمكن للكود التالي أن يجيب على سؤالك

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

1 ساعه مضت, الزباري said:

الأخ/ توكل  المحترم

أشكر اهتمامك في الموضوع

وعاوزين منك انه تروينا من الكراسة العجيبة الكود الذي يرتب الأرقم من 1 إلى 10 ولكن هذه المرة بشكل تنازلي كالشكل التالي:

أعتقد أن الكود البسيط هذا يحقق المطلوب

Sub z_to_a()
    Dim i As Integer
For i = 1 To 10
x = 11
   Cells(i, 1) = x - i
 Next i
End Sub

طبعاً نحن المستفيدون الأكبر من تلاقح هذه الأفكار

استمروا على هذا المنوال أنا أقوم بكتابة كل كود يتم إضافته في كراسة للإستفادة القصوى منه لاحقاً

أستاذي الزباري كل هذا بفضل علمك الذي تفضلت به علينا بارك الله فيك

أعتقد أنا هذا الكود سوف يقوم بالمطلوب ولكن قد يكون هناك شيء أفضل والعلم عند الله

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

2 ساعات مضت, الزباري said:

سؤالنا التالي: ما هو الكود المناسب لتلوين الأسطر من 1 إلى 100 لتحصل على هذه النتيجة :

علماً بأن كود التلوين هو :

Rows(i).Interior.Color = RGB(200, 200, 200)

 

أعتقد أن هذا الكود يفي بالغرض ويحقق الشرط المطلوب وهو تلوين سطر وترك سطرين 

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

هل أجبت الجواب الصحيح أم أن في جعبتكم شيء آخر؟

منذ ساعه, الزباري said:

بالراحة علينا يا أبو حنــــين

برافو عليك يا توكل

 

بس ممكن نكتب كود بدون function

ترقبونا

يا سيدي أنا لازلت أحبو في هذا المجال ومشاركة أبي حنين جزاك الله وإياه كل خير، هي يلي علمتني كيف أكتب الكود

41 دقائق مضت, الزباري said:

توكل .. جزيت خيرا وأنا أشهد بنباهتك

وتقبلوا تحياتي

هذا بعض من علمكم وعلم الأحبة في منتدانا الغالي

تجودون علينا بعلمكم ونحن نجود بعلمكم على غيرنا.

دمتم جميعاً بخير