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

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


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





ترحيل من تكست بوكس الى ليست بوكس الى شيت معين

اضافة بيانات من تكست بوكس الى ليست بوكس والترحيل من ليست بوكس الى شيت معين بأكثر من طريقة طريقة بسيطة للتوضيح وطريقة با ..



12-09-2017 07:03 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

اضافة بيانات من تكست بوكس الى ليست بوكس والترحيل من ليست بوكس الى شيت معين
بأكثر من طريقة
طريقة بسيطة للتوضيح 
وطريقة بالحلقات التكرارية
MTU4MTQ2MQ8181MTM0OTUx132132123
الكود المستخدم
Private Sub CommandButton1_Click()
    With Sheets("sheet1")
        Z = 3
        For v = 0 To ListBox1.ListCount - 1
            .Cells(Z, 1).Value = ListBox1.List(v, 0)
            .Cells(Z, 2).Value = ListBox1.List(v, 1)
            .Cells(Z, 3).Value = ListBox1.List(v, 2)
            .Cells(Z, 4).Value = ListBox1.List(v, 3)
            .Cells(Z, 5).Value = ListBox1.List(v, 4)
            .Cells(Z, 6).Value = ListBox1.List(v, 5)
            .Cells(Z, 7).Value = ListBox1.List(v, 6)
            .Cells(Z, 8).Value = ListBox1.List(v, 7)
            .Cells(Z, 9).Value = ListBox1.List(v, 8)
            Z = Z + 1
        Next
    End With
End Sub
Private Sub CommandButton2_Click()
    v = ListBox1.ListCount
    ListBox1.AddItem
    ListBox1.List(v, 0) = TextBox1.Text
    ListBox1.List(v, 1) = TextBox2.Text
    ListBox1.List(v, 2) = TextBox3.Text
    ListBox1.List(v, 3) = TextBox4.Text
    ListBox1.List(v, 4) = TextBox5.Text
    ListBox1.List(v, 5) = TextBox6.Text
    ListBox1.List(v, 6) = TextBox7.Text
    ListBox1.List(v, 7) = TextBox8.Text
    ListBox1.List(v, 8) = TextBox9.Text
End Sub
Private Sub CommandButton3_Click()
    ii = 1
    v = ListBox1.ListCount
    ListBox1.AddItem
    For i = 0 To Me.ListBox1.ColumnCount - 1
        Me.ListBox1.List(v, i) = Me.Controls("TextBox" & ii).Value
        ii = ii + 1
    Next
End Sub
Private Sub CommandButton4_Click()
    With Sheets("sheet1")
        Z = 3
        For v = 0 To ListBox1.ListCount - 1
            For x = 0 To 8
                .Cells(Z, x + 1).Value = ListBox1.List(v, x)
            Next x
            Z = Z + 1
        Next v
    End With
End Sub


VBA
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تحياتي
 
 
  listbox.rar   تحميل rar مرات التحميل :(167)
الحجم :(20.186) KB

توقيع :Yasser Elaraby
663013020


12-09-2017 07:15 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
جزاكم الله خيراً أخي الغالي ياسر العربي .. مع تمنياتي لكل بالتوفيق

06-11-2018 10:54 صباحا
مشاهدة مشاركة منفردة [2]
امين فاضل
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-11-2018
رقم العضوية : 8897
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 10-10-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 16
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
شكرا جزيلا على المجهود الطيب

22-11-2018 06:47 مساء
مشاهدة مشاركة منفردة [3]
Bjn3000
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9305
المشاركات : 2
الجنس : ذكر
تاريخ الميلاد : 10-7-1976
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
جزاك الله خير على هذا العمل الرائع

28-11-2018 05:24 مساء
مشاهدة مشاركة منفردة [4]
fady_dd
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس : ذكر
تاريخ الميلاد : 27-6-1985
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 110
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
جزاك الله خير ا

02-12-2018 08:36 صباحا
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
وجزيتم خيرا اخواني
تحياتي
توقيع :Yasser Elaraby
663013020


03-12-2018 11:41 صباحا
مشاهدة مشاركة منفردة [6]
abdelrahmandahy
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 29-09-2017
رقم العضوية : 747
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 11-4-1995
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 14
 offline 
look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
بارك الله فيك




الكلمات الدلالية
ترحيل ، تكست ، بوكس ، ليست ، بوكس ، معين ،


 










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

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