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

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


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





اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس

اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


07-11-2020 08:50 مساء
red scorpin
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-12-2018
رقم العضوية : 9898
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 24-10-1969
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
 offline 

اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
 
 
  المكتبه 1.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(828.237) KB



أفضل إجابة مقدمة من hassona229 وهي:
تفضل اخى الكريم

عدل السطر في كل الاكواد
For j = 1 To 12


الي السطر في كل الاكواد
For j = 1 To 7


عدل السطر في كل الاكواد
For i = 1 To 12


الي السطر في كل الاكواد
For i = 1 To 7


عدل السطر
For Each ws In Worksheets


الى السطر
For Each ws In thisworkbook.Worksheets


عدل السطر
Cells(lastrow, 1) = TextBox1.Text


الى السطر
Cells(lastrow, 1) = Cells(lastrow - 1, 1) + 1


مع تعديل اسماء التيكست بوكس في الفورم وفي الكود مثل الصورة التاليه

NvySn_Untitled
عرض الإجابة




12-11-2020 12:52 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
اخى الكريم جرب هذا التعديل
الترقيم :
فى كود Private Sub CommandButton1_Click
عدل السطر
Cells(lastrow, 1) = TextBox1.Text

الى
Cells(lastrow, 1) = Cells(lastrow - 1, 1) + 1

بيانات الاسماء :
فى كود Private Sub TextBox13_Change
عدل السطر
If C Like  TextBox13.Value & "*" Then

الى
If C Like  TextBox13.Value & "*" Then

اسماء الصفحات :
في كود Private Sub UserForm_Initialize
عدل السطر
For Each ws In Worksheets

الى
For Each ws In ThisWorkbook.Worksheets

12-11-2020 04:38 مساء
مشاهدة مشاركة منفردة [2]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
وعليكم السلام
الاكواد التى قمت بتعديلها لك هل قمت بوضعها في ملفك الذي تريد ام لا ؟
ان كنت قد وضعتها فاين هذا الملف ؟
ان لم تكن وضعتها ضعها في ملفك وجربه اولا ثم ان كان يوجد مشكله ارفق الملف مع تحديد المشكله
 

12-11-2020 07:31 مساء
مشاهدة مشاركة منفردة [3]
red scorpin
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-12-2018
رقم العضوية : 9898
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 24-10-1969
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
نعم ولم تعمل .... واعطاني الخطأ التالي
JOtyf_emtLj_1
 
 


12-11-2020 07:38 مساء
مشاهدة مشاركة منفردة [4]
red scorpin
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-12-2018
رقم العضوية : 9898
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 24-10-1969
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
تم تعديل الملف انظر الان
 
 
  المكتبه 1 (2).xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(829.848) KB


13-11-2020 05:24 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
أخي الكريم هل لديك عدد 12 تكست بوكس باسم TextBox يليه رقم 1 و 2 و 3 وهكذا إلى 12
إذا كانت الإجابة بنعم وأنت متأكد من وجود الاداوات الـ 12 بهذا الاسم قم بإضافة كلمة Me يليها نقطة في بداية السطر الذي يظهر فيه الخطأ.

13-11-2020 12:33 مساء
مشاهدة مشاركة منفردة [6]
red scorpin
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 09-12-2018
رقم العضوية : 9898
المشاركات : 18
الجنس : ذكر
تاريخ الميلاد : 24-10-1969
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 21
 offline 
look/images/icons/i1.gif اريد مساعده بالترقيم التلقائي واظهار البيانات بالليست بوكس
السلام عليكم
اخي ياسر
التكست بوكس كان موجود وعدلت عليه واصبح يوجد مكانه كمبوبوكس
ولهذا حدثت معي هذه المشكله
يوجد عدد من التكست بوكس  وعدد من الكمبوبكس
انظر الي المرفق
 
 
  المكتبه 1 (2).xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(413.431) KB



الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
اريد ، مساعده ، بالترقيم ، التلقائي ، واظهار ، البيانات ، بالليست ، بوكس ،


 










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

الساعة الآن 10:19 صباحا