تعديل بيانات ListBox

[Abu_Muhsen]

السلام عليكم ورحمة الله وبركاته  ..حياكم الله جميعاً ..عندي هذا الملف؛ المطلوب:

عندما أقوم بإضافة بيانات وأريد تعديل بعضها أقوم باختيار الصف من ListBox وأعدل في عناصر TextBox وأضغط تعديل، ولا يتعدل غير Name في ListBox...!!!

جرب استخدام الملف المرفق (إضافة ، تعديل).  شاكر لكم التعاون ..هذ الملف يوضح المطلوب أكثر 

Enter Data.xlsm

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته .. اليك الاجابة والافادة معا . مع تعديل برنامجك ليتناسب مع طلبك .

Private Sub Add_Click()
'''''اضافة البيانات الى الليست بوكس'''''
Dim MH As Variant, n As Byte
 If txtName.Value = Empty Then MsgBox "Please Enter Name": txtName.SetFocus: Exit Sub
 If txtJob.Value = Empty Then MsgBox "Please Enter Job": txtJob.SetFocus: Exit Sub
 If txtSallary.Value = Empty Then MsgBox "Please Enter Sallary": txtSallary.SetFocus: Exit Sub
MH = Array(txtName.Value, txtJob.Value, txtSallary.Value, txtDate.Value)
lstStItems.ColumnCount = 3
If lstStItems.ListCount <= 0 Then
lstStItems.Column = MH
Else
lstStItems.AddItem MH(0)
For n = 1 To 3
lstStItems.List(lstStItems.ListCount - 1, n) = MH(n)
Next n
End If
txtName.Value = ""
txtJob.Value = ""
txtSallary.Value = ""
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''                           
                        
Private Sub Fill_Click()
'''''ترحيل البيانات من الليست بوكس الى التيكست بوكس'''''
If lstStItems.ListIndex <> -1 Then
        With lstStItems
        txtName.Value = .List(.ListIndex, 0)
        txtJob.Value = .List(.ListIndex, 1)
        txtSallary.Value = .List(.ListIndex, 2)
       
        End With
        Else
       MsgBox " !المرجوا تحديد الصف ", vbCritical, ""
    End If
End Sub
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Update_Click()
'''''تعديل البيانات  على الليست بوكس'''''
If lstStItems.ListIndex <> -1 Then
        With lstStItems
            .List(.ListIndex, 0) = txtName.Value
            .List(.ListIndex, 1) = txtJob.Value
            .List(.ListIndex, 2) = txtSallary.Value

        End With
        Else
         MsgBox "!المرجوا تحديد الصف المراد تعديله ", vbCritical, ""
    End If
End Sub
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Delete_Click()
If lstStItems.ListIndex = -1 Then
'''''حدف البيانات من الليست بوكس'''''
    MsgBox "!المرجوا تحديد الصف المراد حدفه !", vbCritical, ""
   Exit Sub
   End If
    If lstStItems.ListIndex >= 0 Then
     cevap = MsgBox("?هل انت متاكد من حدف البيانات", vbYesNo)
       If cevap = vbYes Then
       lstStItems.RemoveItem lstStItems.ListIndex
       End If
    End If
End Sub

Enter Data_MH.xlsm

[Abu_Muhsen]

@Mohamed Hicham   أفضل إجابة، الله يبارك فيك 🌹