لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة طلب استخراج بيانات متخصصة لصفحة مستقلة اكسل وpdfمن جدول فعاليات اكسيل اسئله واجابات



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







15-01-2020 05:01 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 89
الجنس :
تاريخ الميلاد : 5-2-1973
قوة السمعة : 112
الاعجاب : 2

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

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

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


اريد فى الخلية c 4 تكون تساوى الخلية 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
 
 
  wit.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(31.697) KB





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

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


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





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

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


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

CODE
[B2:B10].NumberFormat = "dddd"





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




look/images/icons/i1.gif استخدام حلقات تكرارية فى حالة عدم تساوى الاسطر
  15-01-2020 05:29 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
ربما هذا الكود في حدث الشيت يفي بالغرض
CODE
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





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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عمل كود واحد عن طريق الحلقات التكرارية لكل الأكواد الأخرى noureddine70
1 438 noureddine70
جمع مجموعة جداول بواسطة vba حلقات تكرارية احمد شريف
3 801 YasserKhalil
الحلقة الرابعة عشر الحلقات التكرارية Eslam Abdullah
10 2452 YasserKhalil
الحلقات التكرارية Loops مع شرح كيفية إعداد قائمة بأسماء أوراق العمل Worksheets عبدالجيد
3 2739 salim

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








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

الساعة الآن 03:44 PM.