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

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


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



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





طلب تصحيح كود الادخال

السلام عليكم اخواني لدي مشكلة في كود الادخال [code]PGJyIC8+DQpQcml2YXRlIFN1YiBDb21tYW5kQnV0dG9uMV9DbGljaygpPGJyIC8+DQ ..



05-10-2019 08:26 مساء
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 

السلام عليكم   اخواني لدي مشكلة في كود الادخال


Private Sub CommandButton1_Click()
Sheets(caisse).Activate
lrow = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & lrow + 1).Value = ComboBox1.Value
Range("d" & lrow + 1).Offset(0, 1).Value = TextBox2.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox3.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox4.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox5.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox6.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox7.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox8.Value
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
End Sub



صورة الخطا


6C5so_Sans titre




الملف
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  11 (1).xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(33.742) KB







05-10-2019 09:18 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
توضع أسماء أوراق العمل بين اقواس تنصيص ..

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




06-10-2019 07:55 صباحا
مشاهدة مشاركة منفردة [2]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
شكرا انا واضع بين القوسين اسم الورقة





06-10-2019 08:41 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
أقواس تنصيص وليست أقواس عادية 
أي بهذا الشكل
ٍSheets("Sheet1")

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




06-10-2019 07:18 مساء
مشاهدة مشاركة منفردة [4]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
شكرا  استاذي الفاضل   نجحت ولكن  ظهر خطا  اخر

الكود 


Private Sub CommandButton1_Click()
Sheets("caisse").Activate
lrow = Range("d" & Rows.Count).End(xlUp).Row
Range("d" & lrow + 1).Value = ComboBox1.Value
Range("d" & lrow + 1).Offset(0, 1).Value = TextBox2.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox3.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox4.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox5.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox6.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox7.Value
Range("d" & lrow + 1).Offset(0, 2).Value = TextBox8.Value
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
End Sub




XCtta_Sans titre
 
 
 






06-10-2019 08:08 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
هل التكست بوكس 8 موجود؟
راجع الكود جيداً حيث أنك تقوم بالإزاحة لعمودين في أكثر من سطر وتضع قيم مختلفة في نفس الخلية ..





06-10-2019 09:56 مساء
مشاهدة مشاركة منفردة [6]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
اسف اخي لم اجدها انا عملت مثل ماهو موضح في شرح





06-10-2019 10:07 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
إذاً قم بإنشاء تكست بوكس برقم 8 أو قم بحذف السطر الذي لا داعي له ..
يبدو أن تطبيق الشرح غير صحيح إلى حد كبير .. راجع الشرح مرة أخرى وحاول التركيز لتصحيح الأخطاء

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




07-10-2019 07:40 صباحا
مشاهدة مشاركة منفردة [8]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
شكرا استاذي  تابعت  الشرح من جديد وقمت بتصحيح  لكن ظهرت مشكلة اخرى  وهي عند كتابة التاريخ يظهر في خانة الزبون

الملف مرفق

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  11 (1).xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(30.865) KB






07-10-2019 07:41 صباحا
مشاهدة مشاركة منفردة [9]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
شكرا استاذي  تابعت  الشرح من جديد وقمت بتصحيح  لكن ظهرت مشكلة اخرى  وهي عند كتابة التاريخ يظهر في خانة الزبون

الملف مرفق

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





07-10-2019 04:35 مساء
مشاهدة مشاركة منفردة [10]
الجموعي
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 530
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 10-10-1985
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 147
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
أخي الكريم انت مبتدىء وليس عندك دراية بخاصية الازاحة offset اقترح عليك الكود التالي للتعامل مع القيم في النطاق المراد ترحيل البيانات له
Private Sub CommandButton1_Click()
Sheets("caisse").Activate
LRow = Range("D" & Rows.Count).End(xlUp).Row + 1
Range("D" & LRow).Value = ComboBox1.Value
Range("E" & LRow).Value = TextBox1.Value
Range("F" & LRow).Value = TextBox2.Value
Range("G" & LRow).Value = TextBox3.Value
Range("H" & LRow).Value = TextBox4.Value
Range("I" & LRow).Value = TextBox5.Value
Range("J" & LRow).Value = TextBox6.Value
Range("K" & LRow).Value = TextBox7.Value

ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""

End Sub

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




07-10-2019 04:55 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
بارك الله فيك أخي الحبيب الجموعي
عوداً حميداً فقد طالت غيبتك عنا .. ولعل المانع خير إن شاء الله





07-10-2019 07:56 مساء
مشاهدة مشاركة منفردة [12]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 32
الاعجاب : 11
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
شكرا تمام  اخي بارك الله فيك  يغلق

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصحيح صيغة الدالة IF mohammed_ali
3 73 mohammed_ali
تصحيح فى كود حفظ بصيغه PDF ahmed moh
4 110 YasserKhalil
دورة استخدام الاكسيل في تحليل البيانات - الصيغ -1- صيغ التصحيح عبدالجيد
0 12 عبدالجيد
تصحيح معادلة ayoub2007
2 213 ayoub2007
مطلوب تصحيح معادلة الارتباط التشعبي لخلية يظهر الاسم في الخلية وهو متغير ابوعلي الحبيب
10 339 ابوعلي الحبيب

الكلمات الدلالية
تصحيح ، الادخال ،


 







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



الساعة الآن 01:04 مساء

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