هانى محمد قام بنشر أبريل 21, 2018 قام بنشر أبريل 21, 2018 السلام عليكم اهل المنتدى الكرام أرجو من حضراتكم التكرم على مساعدتى فى تعديل كود هذ ا الفورم بحيث عند البحث وكتابة الإسم تظهر النتائج والبيانات فى الليست بوكس وبعد ذلك جمع عمود الدين الداخلى والدين الخارجى فى التكست البوكس اللى اسفل الليست بوكس كل على حده بارك الله فيكم جميعا Listbox.xlsm
ابراهيم الحداد قام بنشر أبريل 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
هانى محمد قام بنشر أبريل 22, 2018 الكاتب قام بنشر أبريل 22, 2018 بارك الله فيك أستاذنا -رائع وأحسنت جعله الله فى ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.