logo

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



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





12-09-2017 07:03 مساءً
اضافة بيانات من تكست بوكس الى ليست بوكس والترحيل من ليست بوكس الى شيت معين
بأكثر من طريقة
طريقة بسيطة للتوضيح
وطريقة بالحلقات التكرارية
MTU4MTQ2MQ8181MTM0OTUx132132123
الكود المستخدم
CODE
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
attachlistbox.rar
تحياتي
 
 
  listbox.rar   تحميل rar مرات التحميل :(163)
الحجم :(20.186) KB


أثارت هذه المشاركة إعجاب: ahmed.com،


توقيع :Yasser Elaraby
663013020

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




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




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




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




look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
  02-12-2018 08:36 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
وجزيتم خيرا اخواني
تحياتي



توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
  03-12-2018 12:42 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-10-2017
رقم العضوية : 1282
المشاركات : 153
الجنس :
تاريخ الميلاد : 0-4-1978
الدعوات : 1
قوة السمعة : 250
الاعجاب : 0
بارك الله فيك استاذ




look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
  05-12-2018 03:12 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-04-2018
رقم العضوية : 5550
المشاركات : 40
الجنس :
تاريخ الميلاد : 20-5-1985
قوة السمعة : 64
الاعجاب : 0
جزاك الله كل خير




look/images/icons/i1.gif ترحيل من تكست بوكس الى ليست بوكس الى شيت معين
  15-12-2018 09:12 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-01-2018
رقم العضوية : 3942
المشاركات : 24
الجنس :
تاريخ الميلاد : 8-11-1963
قوة السمعة : 30
الاعجاب : 0
اشكرك على هذا الشرح




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المسافة بين واخر الكلمات في التكست بوكس بليغ البتول
0 113 بليغ البتول
فورم ترحيل ايات القران الكريم من التكست بوكس الى خلية الاكسل باى عدد من الكلمات مجدى يونس
2 289 مجدى يونس
البحث باى حرف من الجملة او الاسم بالتكست بوكس مع الترقيم التلقائى OmarGad
11 3020 خالد الشاعر
اظهار بداية الاسم الاول في الليست بوكس والتكست بوكس  دون تغيير في حجمها ابو طيبه
5 1328 ابو طيبه
تنسيق الأرقام داخل التكست بوكس ayoub2007
3 1010 YasserKhalil

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









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

الساعة الآن 11:26 AM