عالم الهندسة قام بنشر أبريل 20, 2020 مشاركة قام بنشر أبريل 20, 2020 في الملف المرفق لم استطيع ان انقل جميع البيانات من listbox الي تكست بوكس كاملة وتنتقل فقط عدد 10 اعمدة فقط مع العلم بحثت في المنتدي ووجدت بعض حلول لكن لم تفدني واردت اضافة زر اضافة ولم استطيع ولكم جزيل الشكر الملف مرفق.... تم رفع الملف بـــدون ضـــغط wdad mtn.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر أبريل 21, 2020 أفضل إجابة مشاركة قام بنشر أبريل 21, 2020 هذه محاولة تفضل لعله ما تريد ملاحظة : لا تضغط الملف مرة اخرى الملف صغير لا يستحق ذلك كما ان التيكست بوكس ارقامه غير منظمة نسقه تجنب لاي خطا بالكود Private Sub listbox1_Click() CheckThis = False If ListBox1.ListIndex = -1 Then MsgBox "Nothing Selected!" Exit Sub End If For i = 1 To 18 Me("TextBox" & i).Text = ListBox1.Column(i - 1) Next CheckThis = True End Sub wdad mtn(tora(v1).xlsm 2 رابط هذا التعليق شارك More sharing options...
عالم الهندسة قام بنشر أبريل 22, 2020 الكاتب مشاركة قام بنشر أبريل 22, 2020 جزاكم الله خير ونور الله وجوهكم وزادكم من خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.