السلام عليكم أخي الكريم محمود وأهلاً بك في المنتدى
المنتدى قائم على عملية التعلم ، لذا لابد أن تطبق الحلول المقترحة بنفسك (لا أن يتم إرفاق ملف وحسب .. لأن إرفاق الملف لن يفيدك في تعلم كيف تم حل المشكلة وبالتالي لن تستفيد ولن يستفيد غيرك)
افتح الملف المرفق لديك وقم أولاً بتسمية زر الأمر "إضافة لليست بوكس" من خلال نافذة الخصائص إلى cmdAdd
كرر الخطوة السابقة مع زر "ترحيل" وقم بتسمية الزر cmdTransfer
ثم قم بالدخول إلى أكواد الفورم (كليك يمين على الفورم من نافذة المشروع ثم اختر View Code)
وأخيراً قم بمسح الأكود الموجودة واستخدم الكود التالي
Option Explicit
Private Sub cmdAdd_Click()
Dim v As Long, i As Long
v = ListBox1.ListCount
ListBox1.AddItem
For i = 0 To ListBox1.ColumnCount - 1
ListBox1.List(v, i) = Controls("TextBox" & i + 1).Text
Next i
End Sub
Private Sub cmdTransfer_Click()
Dim m As Long, v As Long, x As Long
With ThisWorkbook.Worksheets("Sheet1")
m = .Cells(Rows.Count, 1).End(xlUp).Row + 1
For v = 0 To ListBox1.ListCount - 1
For x = 0 To ListBox1.ColumnCount - 1
.Cells(m, x + 1).Value = ListBox1.List(v, x)
Next x
m = m + 1
Next v
End With
End Sub