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

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


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





مشكلة خطا في ترحيل بيانات من اليوزرفورم الى الورقة

السلام عليكم يوجد لدي مشكلة غريبة حيث هذا الكود كان يعمل معي لا ادري اذا كان بسبب اختلاف اماكن وح ..



03-07-2020 08:13 مساء
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 

السلام عليكم 
يوجد  لدي  مشكلة    غريبة  حيث  هذا   الكود  كان  يعمل  معي    لا  ادري  اذا  كان  بسبب  اختلاف  اماكن  وحجم  البيانات   حاولت  معه  كثيرا  
الخطا  يظهر  في  هذا  السطر   object  required 424 
Range("a" & lasrow + 1).Value.Offset(0, 1) = Me.TextBox2

If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And TextBox4.Value <> "" And TextBox5.Value <> "" And TextBox6.Value <> "" And TextBox7.Value <> "" And TextBox8.Value <> "" And TextBox9.Value <> "" Then
Sheets(1).Activate
Range("a" & lastrow + 1).Value = Me.TextBox1.Value
Range("a" & lastrow + 1).Value.Offset(0, 1) = Me.TextBox2.Value
Range("a" & lastrow + 1).Value.Offset(0, 2) = Me.TextBox3.Value
Range("a" & lastrow + 1).Value.Offset(0, 3) = Me.TextBox4.Value
Range("a" & lastrow + 1).Value.Offset(0, 4) = Me.TextBox5.Value
Range("a" & lastrow + 1).Value.Offset(0, 5) = Me.TextBox6.Value
Range("a" & lastrow + 1).Value.Offset(0, 6) = Me.TextBox7.Value
Range("a" & lastrow + 1).Value.Offset(0, 7) = Me.TextBox8.Value
Range("a" & lastrow + 1).Value.Offset(0, 8) = Me.TextBox9.Value
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.TextBox8 = ""
Me.TextBox9 = ""

End If

03-07-2020 09:01 مساء
مشاهدة مشاركة منفردة [1]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة خطا في ترحيل بيانات من اليوزرفورم الى الورقة
شكر ا  لقد  تم  حل  المشكلة   كلمة  value قبل  offset هي  التي سببت  المشكلة 

03-07-2020 09:04 مساء
مشاهدة مشاركة منفردة [2]
omhamzh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-05-2020
رقم العضوية : 19308
المشاركات : 137
الجنس : أنثى
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 225
 offline 
look/images/icons/i1.gif مشكلة خطا في ترحيل بيانات من اليوزرفورم الى الورقة
ارفق لنا ملف بعد حل المشكلة استاذ المبتدأ
مشكور

03-07-2020 09:26 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif مشكلة خطا في ترحيل بيانات من اليوزرفورم الى الورقة
شكرا  على  تفاعلك  اخت  ام حمزة   على  الرغم   من  ان  البرنامج    لا زال  في  بداياته     لقد  قمت   بتعديل   الملف  يمكنك  الاطلاع  عليه 




الكلمات الدلالية
مشكلة ، ترحيل ، بيانات ، اليوزرفورم ، الورقة ،


 










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

الساعة الآن 01:41 صباحا