ahed5567 قام بنشر أغسطس 11, 2019 مشاركة قام بنشر أغسطس 11, 2019 انا عمل كود نقل الليست بوكس وعايز اعمل اكواد نقل اللي تكس بوكس لو سامحتوا ارجو المساعدة ليست بوكس الى اخرى.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر أغسطس 11, 2019 أفضل إجابة مشاركة قام بنشر أغسطس 11, 2019 تفضل يمكنك استخدام هذا الكود Private Sub CommandButton2_Click() Dim str As String Dim i As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then If str <> vbNullString Then str = str & ", " str = str & ListBox1.List(i) End If Next TextBox2.Text = TextBox2.Text & " " & str End Sub ليست بوكس.xlsm 5 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أغسطس 11, 2019 مشاركة قام بنشر أغسطس 11, 2019 بارك الله فيك أستاذ علي وكل عام أنت بخير 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان