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

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


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


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





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

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



05-10-2019 08:26 مساء
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
قوة السمعة : 32
الاعجاب : 0
 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 مرات التحميل :(4)
الحجم :(33.742) KB





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




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




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




06-10-2019 07:18 مساء
مشاهدة مشاركة منفردة [4]
krimo145
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2019
رقم العضوية : 14610
المشاركات : 56
الجنس : ذكر
تاريخ الميلاد : 6-5-1980
قوة السمعة : 32
الاعجاب : 0
 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
المشاركات : 8551
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25158
الاعجاب : 49
 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
قوة السمعة : 32
الاعجاب : 0
 offline 
look/images/icons/i1.gif طلب تصحيح كود الادخال
اسف اخي لم اجدها انا عملت مثل ماهو موضح في شرح




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




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

الملف مرفق

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




07-10-2019 04:35 مساء
مشاهدة مشاركة منفردة [10]
الجموعي
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 530
المشاركات : 7
الجنس : ذكر
تاريخ الميلاد : 10-10-1985
قوة السمعة : 152
الاعجاب : 0
 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




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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تصحيح معادلة ايجاد نسبة عند وجود حرف معين احمد على
2 145 ali mohamed ali
طلب التعديل وتصحيح اليوزر فورم azzeddine
14 513 YasserKhalil
مطلوب تصحيح لكود معادلة if صلاح الصغير
12 245 صلاح الصغير
تصحيح صيغة الدالة IF mohammed_ali
3 244 mohammed_ali
تصحيح فى كود حفظ بصيغه PDF ahmed moh
4 280 YasserKhalil

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


 







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

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

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