mahmoud nasr alhasany

نعم اخي يمكنى فعل ذالك ولاكن بعض موافقة مشرفي المنتدى

Dim x As Integer Dim sum, sum1 As Double With Me.ListBox1 For x = 1 To .ListCount - 1 On Error Resume Next .List(x, 7) = Val(.List(x - 1, 7)) + Val(.List(x, 5)) - Val(.List(x, 6)) sum = sum1 + Val(.List(x, 5)) sum = sum1 + Val(.List(x, 6)) Next x .AddItem For C = 0 To 7 .List(.ListCount - 1, C) = "________________" Next C .AddItem "TOTAI" .List(.ListCount - 1, 5) = Format(sum, "fixed") .List(.ListCount - 1, 6) = Format(sum, "fixed") End With مرحباً هل يستطيع احد مساعدتي؟ أريد قائمة بإجمالي الرصيد الحالي في العمود الأخير، لكن لا أعرف ما المشكلة هناك 8 أعمدة في مربع القائمة. يرجى طرح قيمة العمود 6 من العمود ٧ وإظهار الناتج فى العمود ٨ وتكون النتيجة ترتيبا تصاعديا مثل (الخزينة) Classeur2 (1).xlsm

تسلم ايدك استاذ محمد هشام احسنت والله

اذا الفكره الذى اريدها هل تكون شبه مستحيله لأن مرجعية الجمع والطرح مبنيه على نوع الحركه فى العمود الثانى مع الطرح والجمع الكميه تكون فى العمود ٦ ليكون تسلسل الناتج فى العمود ٧

الملف غير كامل لايوجد فية Sheet7 form1.Hide Sheet7.Range("R4").Value = Application.WorksheetFunction.VLookup(rngUser.Offset(0, -1).Value, Sheet1.Range("d2:d100"), 1, False) Sheet7.Range("E4").Value = Date Sheet7.Range("I4").Value = Application.WorksheetFunction.Text(Sheet7.Range("I4").Value, "dddd") Sheet7.Range("M4").Value = Time form2.Show End If

صباح الخير يوجد مسائله أخرى اريد طرحها إنها عملية معقدة هي عملية الجمع والطرح من القائمة، ولكن بشروط ومعايير محددة. وفي العمود السادس من مربع القائمة نجد كميات مختلفة حسب نوع الحركة شراء أو بيع في العمود الثاني. ما عليك فعله هو جمع وطرح الكميات حسب العمود الثاني ووضعها في العمود الأخير المميز باللون الأحمر. وعمليات الطرح هي (المبيعات) وعمليات الجمع هي (المشتريات). /مرتجعات المبيعات/مرتجعات الشراء) يجب أن تكون عملية الطرح والجمع عملية تدريجية هل عبرت عن وجهة نظري بوضوح؟ من فضلكم ساعدوني sum-listbox1.xlsm

On Error Resume Next Dim X As Worksheet Dim k As Integer Dim m As Date Dim n As Date ListBox1.Clear rng1 = CDate(TextBox9.Value) rng2 = CDate(TextBox10.Value) rng3 = ComboBox1.Text rng4 = ComboBox2.Text dfr = 0 For Each X In ThisWorkbook.Worksheets ss = X.Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To ss If X.Cells(i, 6) Like "*" & rng3 & "*" And X.Cells(i, 4) Like "*" & rng4 & "*" And X.Cells(i, 2) >= rng1 And X.Cells(i, 2) <= rng2 Then ListBox1.AddItem ListBox1.List(dfr, 0) = X.Cells(i, 1) ListBox1.List(dfr, 1) = Format(X.Cells(i, 2), "dd/mm/yyyy") ListBox1.List(dfr, 2) = X.Cells(i, 3) ListBox1.List(dfr, 3) = X.Cells(i, 4) ListBox1.List(dfr, 4) = X.Cells(i, 5) ListBox1.List(dfr, 5) = X.Cells(i, 6) ListBox1.List(dfr, 6) = X.Cells(i, 7) ListBox1.List(dfr, 7) = X.Cells(i, 8) ListBox1.List(dfr, 8) = X.Cells(i, 9) ListBox1.List(dfr, 9) = X.Cells(i, 10) ListBox1.List(dfr, 10) = X.Cells(i, 11) '.Value ListBox1.List(dfr, 11) = X.Cells(i, 12) '.Value dfr = dfr + 1 End If Next i Next X Call Main Call Sort شكرا جزيلا ا/ محمد هشام لقد تم الحل ونسيت ان ارفقه

On Error Resume Next If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub Dim X As Worksheet Dim c As Range Dim k As Integer Dim m As Date Dim n As Date ListBox1.Clear k = 0 m = CDate(TextBox9.Value) n = CDate(TextBox10.Value) For Each X In ThisWorkbook.Worksheets ss = X.Cells(Rows.Count, 2).End(xlUp).Row For Each c In X.Range("B2:B" & ss) If (c.Value Like "*" & ComboBox1.Value & "*" Or c.Value Like "*" & ComboBox2.Value & "*") And (c.Offset(0, 2).Value >= m And c.Offset(0, 2).Value <= n) Then ListBox1.AddItem ListBox1.List(k, 0) = X.Cells(c.Row, 1).Value ListBox1.List(k, 1) = CDate(X.Cells(c.Row, 2).Value) ListBox1.List(k, 2) = X.Cells(c.Row, 3).Value ListBox1.List(k, 3) = X.Cells(c.Row, 4).Value ListBox1.List(k, 4) = X.Cells(c.Row, 5).Value ListBox1.List(k, 5) = X.Cells(c.Row, 6).Value ListBox1.List(k, 6) = X.Cells(c.Row, 7).Value ListBox1.List(k, 7) = X.Cells(c.Row, 8).Value ListBox1.List(k, 8) = X.Cells(c.Row, 9).Value ListBox1.List(k, 9) = X.Cells(c.Row, 10).Value k = k + 1 End If Next c Next X

مساء الخير أنا أعمل على نموذج المستخدم. إنها عملية بحث تعتمد على عدة معايير. هناك مربعي نص (التاريخ) وصندوقي قائمة (العميل - رمز المنتج)، ولكن هذا يعتمد على البحث عن أوراق عمل متعددة واسترجاعها من مربع القائمة. هل يوجد كود بحث مثل هذا؟ يرجى عرض جميع علامات الاختيار في الأعمدة الصفراء لمربع القائمة بناءً على خيارات مربع التحرير والسرد ومربع النص (التاريخ) البحث فى كل اوراق العمل1.xlsb

ممكن اعرف طريقة الحل لانى يوجد معى مثل هذه المشكلة

اااا

السلام عليكم ورحمة الله وبركات اساتذتى الكرام ارجو تعديل الكود الخاص بالفورم (submid) لادراج الصورة فى الخلية Insert the image (h) ولكم منى جزيل الشكر Submit - Copy.rar