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

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


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





زيادة عدد الاعمده اكثر من10 فى الترحيل للست

السلام عليكم اخوانى هل يمكن زيادة الاعمده اكثر من 10 اعمده اعلم انه ممكن بمصفوفه وانا افعلها فى البحث من الورقة ولكن لم ..


موضوع مغلق

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


26-11-2020 01:50 مساء
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 

السلام عليكم اخوانى
هل يمكن زيادة الاعمده اكثر من 10 اعمده
اعلم انه ممكن بمصفوفه وانا افعلها فى البحث من الورقة ولكن لم استطع تنفيذها هنا
Private Sub CommandButton7_Click()
With Me.ListBox1
If .ListCount = 0 Then GoTo 8
8 i = .ListCount
.AddItem i + 1
.List(i, 0) = Me.a1.Value
.List(i, 1) = Me.a2.Value
.List(i, 2) = Me.a3.Value
.List(i, 3) = Me.a4.Value
.List(i, 4) = Me.a5.Value
.List(i, 5) = Me.a6.Value
.List(i, 6) = Me.a7.Value
.List(i, 7) = Me.a8.Value
.List(i, 8) = Me.a9.Value
.List(i, 9) = Me.a10.Value
.List(i, 10) = Me.a11.Value
.List(i, 11) = Me.a12.Value
.List(i, 12) = Me.a13.Value
.Selected(i) = True
End With
End Sub
 
 
  inv.xlsb   تحميل xlsb مرات التحميل :(8)
الحجم :(19.751) KB



أفضل إجابة مقدمة من salim وهي:
لعل هذا ما تريده
ساعة ما تريد يمكنك تفريغ ListBox & TexteBoxes 
بالضغط على الزر Clear List an Boxes


Private Sub Cmd_Clear_Click()
Dim k As Long
Me.ListBox1.Clear
For k = 1 To 13
   Me.Controls("a" & k) = vbNullString
 Next
End Sub
'++++++++++++++++++++++++++++++++++++++++++

Private Sub To_sheet_Click()
Dim k As Long, lr As Long
lr = ActiveSheet.Cells(Rows.Count, 1).End(3).Row + 1
 If lr = 1 Then lr = 2
 For k = 1 To 13
   ActiveSheet.Cells(lr, k) = Me.Controls("a" & k)
 Next
    With Me.ListBox1
        If .ListCount = 0 Then
            FirstRow
        Else
            NextRow
        End If
    End With

End Sub
'+++++++++++++++++++++++++++++++++

Private Sub FirstRow()

    Dim arr() As Variant
    Dim i As Long

With Me.ListBox1
        ReDim arr(1 To 1, 1 To .ColumnCount)
    For i = LBound(arr, 2) To UBound(arr, 2)
        arr(1, i) = Me.Controls("a" & i).Value
    Next i

   .List = arr()
End With
End Sub
'""""""""""""""""""""""""""""""""

Private Sub NextRow()

    Dim arr() As Variant
    Dim i As Long

    With Me.ListBox1
        arr() = Application.Transpose(.List())
       ReDim Preserve arr(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 1)
         For i = LBound(arr, 1) To UBound(arr, 1)
            arr(i, UBound(arr, 2)) = Me.Controls("a" & i).Value
        Next i
       .List = Application.Transpose(arr())
    End With

End Sub


الملف مرفق
 
عرض الإجابة




26-11-2020 02:05 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
السلام عليكم أخي العزيز سعد
يوجد موضوع للأخ ياسر العربي يحل هذه المشكلة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

26-11-2020 02:21 مساء
مشاهدة مشاركة منفردة [2]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
اخى العزيز ياسر خليل
بعد تحياتى السلام عليكم ورحمة الله وبركاته
موضوع اخى ياسر العربى مختلف وهو استدعاء بيانات من الورقه 
ام هنا ترحيل 13تكست(اسميتهم a1 :a13)  الى صف فى الليست بوكس 
=================
توصلت لضبط كود من اعمال احد الاخوه
ملحوظه واحده باقيه
هو يرحل بشكل مضبوط المفروض اذا رحلت مره اخرى يرحل للصف التالى فى اللست
لكنه يرحل للصف الاول فقط
Const Cont As Integer = 13
Private Sub CommandButton7_Click()
Dim Ary()
Dim r As Long, rr As Long, Lr As Long
Dim c As Integer
With Me.ListBox1
If .ListCount = 0 Then GoTo 8
8 i = .ListCount
        For i = 1 To 1
               rr = rr + 1
            ReDim Preserve Ary(1 To Cont, 1 To rr)
            For c = 1 To Cont
                Ary(c, rr) = Me.Controls("a" & c).Value
            Next
    Next
End With
If rr Then Me.ListBox1.Column = Ary
End Sub

27-11-2020 09:42 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
الكود أسهل مما تتصوّر (منSheet الى ListBox)

Private Sub CommandButton7_Click()
Dim Ro
Const Col = 12
 Ro = Cells(Rows.Count, 1).End(3).Row + 1
 Me.ListBox1.RowSource = Range("A1:L" & Col).Address
End Sub

(من مربعات النصوص الى  Sheet و  ListBox )

Private Sub To_sheet_Click()
 Dim Ro, i
 Const Col = 12
 Ro = Cells(Rows.Count, 1).End(3).Row + 1
    For i = 1 To Col
     ActiveSheet.Cells(Ro, i) = Me.Controls("a" & i)
    Next
  CommandButton7_Click
End Sub

الملف مرفق
 
 
  My_User.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(26.854) KB


27-11-2020 10:19 صباحا
مشاهدة مشاركة منفردة [4]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
اخى سليم 
اشكرك كل الشكر
ليس ​المطلوب تعبئة اللست بوكس من الشيت
المطلوب
ترحيل قيم 13 تكست (a1:a13) الى الصف الاول فى اللست (listbox1.listcount+1)
فهى يومية مكونه من 100صف من الصعب ان انشئ 100صف تكست 
هستخدم صف تكست يرحل للست ثم الى الشيت

27-11-2020 11:15 صباحا
مشاهدة مشاركة منفردة [5]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
تعديل الكود الثاني

Private Sub To_sheet_Click()
 Dim Ro, i
 Const Col = 13
 Ro = Cells(Rows.Count, 1).End(3).Row + 1
    For i = 1 To Col
     ActiveSheet.Cells(Ro, i) = Me.Controls("a" & i)
    Next
    Me.ListBox1.RowSource = ""
    Me.ListBox1.RowSource = Range("A" & Ro - 1).Resize(, 13).Address

End Sub

 

27-11-2020 11:24 صباحا
مشاهدة مشاركة منفردة [6]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif زيادة عدد الاعمده اكثر من10 فى الترحيل للست
اخى سليم
حاولت تعديله وحدود معلومات تقف عند استخدام  .AddItem للتعبئه
وهى لا تقبل اكثر من عشره اعمده والعمل به 13
فاستخدمت الكود التالى
'Dim r As Long, rr As Long, Lr As Long
'Dim c As Integer
'With Me.ListBox1
''If .ListCount = 0 Then GoTo 8
''8
'i = .ListCount
'        For g = i To i
'               rr = rr + 1
'            ReDim Preserve Ary(1 To Cont, 1 To rr)
'            For c = 1 To Cont
'                Ary(c, rr) = Me.Controls("a" & c).Value
'            Next
'    Next

يرحل التكستات 13 بطريقه صحيحة ولكنه فى الصف الاول من التكست فقط 


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


الكلمات الدلالية
زيادة ، الاعمده ، اكثر ، من10 ، الترحيل ، للست ،


 










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

الساعة الآن 04:22 صباحا