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

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


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


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





مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر

السلام عليكم الاستاذة الكرام لدى ملف اكسيل احاول عمل على انشاءه بالكامل vba تم تنفيذ 95 % من المعادلات ب vba ونفذتا بأكث ..



15-01-2020 05:01 مساء
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
قوة السمعة : 39
الاعجاب : 0
 offline 

السلام عليكم الاستاذة الكرام

لدى ملف اكسيل احاول عمل على انشاءه بالكامل vba تم تنفيذ 95 % من المعادلات ب vba ونفذتا بأكثر من طريقة تبقى لدى 3 معادلات اريد تنفيذها دون استخدام formula

لدى خليتن منفصلتين c3 بها تاريخ [30/11/2019] وg3 بها تاريخ ايضا [9/12/2019] المدى من c3:c12

اريد فى الخلية c4 تكون تساوى الخلية g3+1 ليصبح التاريخ فى الخلية [10/12/2019]طبعا مافيش كدة مشكلة

لما حاولت اعمل حلقة تكرارية تبداء من الصف 4 الى الصف 12تعطى ناتج 10/12/2019 مكررا الى الصف 12 المفروض بيكون بيعمل عملية جمع g4+1 ,g5+1 وهكذا الى نهاية اصف 12 هذا هو الكود

For s = 4 To 12
Cells(s, 3) = Cells(3, 7) + 1

Next s

وهذا هو الملف 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

  الموضوع مدموج من مواضيع متعدّدة
 
 
  wit.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(31.697) KB





07-01-2020 12:41 صباحا
مشاهدة مشاركة منفردة [1]
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
قوة السمعة : 39
الاعجاب : 0
 offline 
look/images/icons/i1.gif مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر

السلام عليكم الاستاذة الكرام احاول انشاء ملف اكسيل عبارة عن صفحتين الاولى بالمعادلات العادية والثانية نفس الصفحة الاولى لكن بواسطة vba للاختصار
1- تنفيذ معادلة لمعرفة اليوم انفذها بطريقة formula يظهر السطر بالكامل باللون الاحمر مع التعليم على التنسيق dddd
2- تنفيذ نفس المعادلة لكن بطريقة application ال vba لايظهر لى اى مشكلة بالكود لكن الناتج خطاء (حاجة تجنن)
3- الغريب فى الامر ان طريقة formula فى اول مرة انفذ فيها الكود كانت ناجحة بس تعمل ايه فى الطمع لما عرفت ان application بنطلع الناتج دون اظهار المعادلة فى شريط المعادلات عملت فبها بيل جيتس ونفذت ب application طلعت خطأ معايا قولت ارجع لأصلك يا واد يا احمد وخلينا فى الطريقة اللى نجحت معاك راح المعادلة بالكامل باللون الاحمر

4- معلش هطول عليكم شوية فى اخر نقطه عندى تاريخين تاريخ فى الخلية b3 والخلية g3 المفروض b4 =التاريخ الموجود فى g3 +1 وطبعا دى سهلة جدا بالطريقة العادية لكن عندما حاولت تطبيقها ب vba لم تنجح الا على خلية  واحدة فقط ولما عملت filldown اعطت نفس التاريخ مرفق لحضرتكم الملف
  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





07-01-2020 05:48 صباحا
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 501
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 3852
الاعجاب : 83
 offline 
look/images/icons/i1.gif مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر
الكود المطلوب (للحصول على نص)

[B2:B10] = Application.Text([B2:B10], "dddd")

او هذا ( للحصول على تاريخ حقيقي - يمكن التعامل معه بالعمليات الحسابية)

[B2:B10].NumberFormat = "dddd"

 




15-01-2020 05:22 مساء
مشاهدة مشاركة منفردة [3]
Excelawy
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 378
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 1
قوة السمعة : 631
الاعجاب : 9
 offline 
look/images/icons/i1.gif مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر
جزاك الله كل خير أ. سليم




15-01-2020 05:29 مساء
مشاهدة مشاركة منفردة [4]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 116
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 415
الاعجاب : 18
 offline 
look/images/icons/i1.gif مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر
ربما هذا الكود في حدث الشيت يفي بالغرض
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng
Set rng = Range("c3:c12")
If Not Intersect(Target, rng) Is Nothing Then
If Not IsDate(Target) = True Then
cancel = True
Else
Target.Offset(, 4) = Format(DateAdd("d", 1, Target), "yyyy-mm-dd")
End If
End If
End Sub
 
 
  wit.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(31.902) KB





16-01-2020 06:39 صباحا
مشاهدة مشاركة منفردة [5]
احمد شريف
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 37
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
قوة السمعة : 39
الاعجاب : 0
 offline 
look/images/icons/i1.gif مدموج :استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر
السلام عليكم استاذ حســـين ممكن حضرتك شرح مبسط للكود لأنى لم اتعامل بعد مع  Private Sub Worksheet_Change(ByVal Target As Range)
بالأضافة انى لم اتعامل مع offset ايضا 
شرح مبسط للكود عشان اقدر انفذه وشكرا لأهتمام حضرتك







الكلمات الدلالية
استخدام ، حلقات ، تكرارية ، حالة ، تساوى ، الاسطر ،


 







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

الساعة الآن 07:44 صباحا

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