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

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


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





الترحيل لجدول به اعمدة متفرقة باستخدام For...Next

الإخوة الأفاضل / السلام عليكم مطلوب كود باستخدام الجملة For ... Next أو غيرها يرحل من اليوزر فورم الى الجدول الاصفر (ك ..


موضوع مغلق


11-12-2021 10:03 صباحا
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

الإخوة الأفاضل /  السلام عليكم

مطلوب كود باستخدام الجملة For ... Next
أو غيرها يرحل من اليوزر فورم الى الجدول الاصفر (كما بالصورة)
مع ملاحظة ان الترحيل  فى الخلايا الصفراء فقط
اى يرحل فى عمود ويترك عمود
عدد 20 خلية ( 5 اعمدة × 4 صفوف)

وشكرا لحضراتكم

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

MTE3NzYxfor%20..next
 



 
  for ..next.png   تحميل png for ..next.png مرات التحميل :(2)
الحجم :(45.299) KB
 
  عمل جدول باستخدام For ...Next.zip   تحميل zip مرات التحميل :(9)
الحجم :(14.554) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم أخي الكريم أبا الحسن
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub CommandButton1_Click()
    Dim i As Long, ii As Long, c As Long
    c = 1
    For i = 1 To 20 Step 4
        For ii = 1 To 4
            Cells(ii, c).Value = Me.Controls("TextBox" & i + ii - 1).Text
        Next ii
        c = c + 2
    Next i
    UserForm1.Hide
End Sub
عرض الإجابة




11-12-2021 11:02 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الترحيل لجدول به اعمدة متفرقة باستخدام For...Next
السلام عليكم أخي الكريم أبا الحسن
جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub CommandButton1_Click()
    Dim i As Long, ii As Long, c As Long
    c = 1
    For i = 1 To 20 Step 4
        For ii = 1 To 4
            Cells(ii, c).Value = Me.Controls("TextBox" & i + ii - 1).Text
        Next ii
        c = c + 2
    Next i
    UserForm1.Hide
End Sub

11-12-2021 04:40 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif الترحيل لجدول به اعمدة متفرقة باستخدام For...Next
الاخ الفاضل / الاستاذ ياسر خليل 
تم تطبيق الكود بنجاح 
مع تعديل بسيط 
كتابة اسم اليوزرفورم نفسه وليس Me ليصبح لهذا الشكل
            Cells(ii, c).Value = userform1.Controls("TextBox" & i + ii - 1).Text
 

فجزاكم الله خيرا 

 


11-12-2021 06:16 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الترحيل لجدول به اعمدة متفرقة باستخدام For...Next
بارك الله فيك والحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
اعمدة ، لجدول ، الترحيل ، متفرقة ، باستخدام ، For...Next ،


 










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

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