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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil معادلة SUMIFS اكسيل اسئله واجابات


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


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





كتابة المعادلات بواسطة vba - application- formula

السلام عليكم الاستاذة الكرام لدى ملف اكسيل نفذت فهي بعض المعادلات بواسطة formula وكانت جميعها صحيحة ولكن عندما حاولت تنف ..



08-01-2020 11:19 صباحا
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 34
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 37
الاعجاب : 12
 offline 
السلام عليكم الاستاذة الكرام لدى ملف اكسيل نفذت فهي بعض المعادلات بواسطة formula وكانت جميعها صحيحة ولكن عندما حاولت تنفذيها بطريقة application الكثير منها لم ينجح مع انى فى اعتقادى نفذت المطلوب حرفيا فى تنفيذ المعادلة ولما بضظغط على زر run d يظهر لون اصفر على المعادلة وانا عاجز عن تحديد الخطاء فى اى جزئية فى المعادلة مرفق ملف تم نفيذة بالكامل بطريقة formula وكانت النتائج صحيحة ولما حاولت تنفيذ بعض منها ب application الكود مش عايز ينفذ الامر لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  mw.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(25.052) KB





08-01-2020 07:54 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 444
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 19
قوة السمعة : 3470
الاعجاب : 327
 offline 
look/images/icons/i1.gif كتابة المعادلات بواسطة vba - application- formula
الدالة DATEDIF لا يعترف بها الـــ vba

لأن له دالته الخاصة بهذا الأمر وهي DATEDIFF

يجب كتابة الكود بهذا الشكل

X = Sheets("WEIGT LOSS").[O5]
[P5] = Date - X

جرب هذا الكود لمعرفة كيفية عمل DATEDIFF

Sub DYAS_BETWEEN()
Dim dt1 As Date
Dim dt2 As Date
Dim nDays As Long
dt1 = #11/29/2015#
dt2 = #12/31/2015#
nDays = DateDiff("d", dt1, dt2)
MsgBox "THE NUMBRE OF DAYS BETWEEN " & dt1 & " AND " & dt2 & "  =  " & nDays & " DAYS"
End Sub






 

أثارت هذه المشاركة إعجاب: ali mohamed ali،



08-01-2020 08:33 مساء
مشاهدة مشاركة منفردة [2]
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 34
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif كتابة المعادلات بواسطة vba - application- formula
استاذ سليم اشكرك على هذه المعلومة جزاك الله كل خير انا عمرى ما كنت اتخيل ان المعادلة لا تتوافق مع vba بالأضافة الى ان المعادلة محتاجة متغير ويكتب بشكل معين لكن بعد اذنك عندى سؤال فى هذا المثال لو تكرر بشكل متعلق بالتاريخ او اخر لازم احسب مدة الايام وبتعمل كام شهر او كام سنه و شهر ثم اكتب التاريخ على هذه الشاكلة فى vba بالأضافة الى ان هذا الكود لا ينفذ الا فى حالة تطبيق application




08-01-2020 08:46 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 444
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 19
قوة السمعة : 3470
الاعجاب : 327
 offline 
look/images/icons/i1.gif كتابة المعادلات بواسطة vba - application- formula

أثارت هذه المشاركة إعجاب: YasserKhalil، احمد شريف،



09-01-2020 01:22 صباحا
مشاهدة مشاركة منفردة [4]
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 34
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 37
الاعجاب : 12
 offline 
look/images/icons/i1.gif كتابة المعادلات بواسطة vba - application- formula
استاذ سليم اشكر مجهودتك على تقديم الحلول لى لكن يبقى التسأول لماذا عند كتابة المعادلة بطريقة formula دون اضافة f على كلمة datedif
[P5].Formula = "=DateDif(Now() - O5, Now(), ""YM"")"
[Q5].Formula = "=DateDif(Now() - O5, Now(), ""MD"")"
[P6].Formula = "=DateDif(0, O5, ""ym"") & ""months"" & DateDif(0, O5, ""md"") & ""days"""
يظهر الناتج صحيحا تماما 
ولما استخدم طريقة application 
[P5] =application .DateDiff(Now() - O5, Now(), "YM")
[Q5]=application .DateDiff(Now() - O5, Now(), "MD")
[P6].=application .DateDiff(0, O5, "ym") & "months" & DateDiff(0, O5, "md") & ""days""
لا يستطيع الكود تنفيذه مع انى اضفت حرف ال f 
لماذانفذت بنجاح فى formula ولم تنفذ فى application معلش استاذ سليم لأنى بكرر سؤالى ما زلت مبتداء  وعارف ان حضرتك انك نوهت فى البداية ان vba لايعترف ب datedif ولكن يعترف ب datediff ارجو التفسير لأنه هام للغاية وشكرا لسعة صدرك




09-01-2020 06:21 صباحا
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 444
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 19
قوة السمعة : 3470
الاعجاب : 327
 offline 
look/images/icons/i1.gif كتابة المعادلات بواسطة vba - application- formula
هذا لانك تبتكرِArgument جديد للدالة  DateDiff و هو "YM"
لو نظرت الى العنوان الذي ذكرته  لك لا تجده 
هذا بالاضافة الى ان هذا المتغير الـــ Argument  يجب ان يكون في البداية (قبل التاريخين) ,و يكتب بأحرف صغيرة  "m"
ولا حاجة لكلمة Application   عند استعمال  DateDiff 

أثارت هذه المشاركة إعجاب: احمد شريف،






الكلمات الدلالية
formula ، application- ، بواسطة ، كتابة ، المعادلات ،


 







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

الساعة الآن 11:44 مساء

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