هانى محمد قام بنشر أبريل 21, 2018 مشاركة قام بنشر أبريل 21, 2018 السلام عليكم اهل المنتدى الكرام أرجو من حضراتكم التكرم على مساعدتى فى تعديل كود هذ ا الفورم بحيث عند البحث وكتابة الإسم تظهر النتائج والبيانات فى الليست بوكس وبعد ذلك جمع عمود الدين الداخلى والدين الخارجى فى التكست البوكس اللى اسفل الليست بوكس كل على حده بارك الله فيكم جميعا Listbox.xlsm رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر أبريل 21, 2018 الكاتب مشاركة قام بنشر أبريل 21, 2018 للرفع من فضلكم رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أبريل 22, 2018 مشاركة قام بنشر أبريل 22, 2018 السلام عليكم ورحمة الله ضع هذا الكود فى حدث الفورم Private Sub TextBox1_Change() Dim Arr As Variant, Temp As Variant Dim i As Integer, j As Integer, p As Integer Dim x, y As Integer Arr = Range("A2:E12").Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 1) = Me.TextBox1.Value Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) Next x = x + Temp(p, 3) y = y + Temp(p, 4) End If Next Me.ListBox1.List = Temp Me.TextBox2 = x Me.TextBox3 = y End Sub 2 رابط هذا التعليق شارك More sharing options...
هانى محمد قام بنشر أبريل 22, 2018 الكاتب مشاركة قام بنشر أبريل 22, 2018 بارك الله فيك أستاذنا -رائع وأحسنت جعله الله فى ميزان حسناتك رابط هذا التعليق شارك 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.