القول المأثور قام بنشر سبتمبر 13, 2021 قام بنشر سبتمبر 13, 2021 السلام عليكم .. لدي عدة ملفات عبارة عن بيانات لكل زبون به ارقام نموذج وكل نموذج متكرر بإجمالي الفاتورة الخاصة بها. المطلوب تجميع إجمالي الفاتورة من بيانات الزبائن في ملف أكسل واحد والمسمى Number استنادا إلى رقم النموذج بشرط رقم الزبون المدخل في الخلية. للتوضيح أكثر في المرفقات .. هل يمكن بالطريقتين ، طريقة بالأكواد، وطريقة أخرى بالمعادلات cal.rar
تمت الإجابة أ / محمد صالح قام بنشر سبتمبر 14, 2021 تمت الإجابة قام بنشر سبتمبر 14, 2021 إن شاء اللّه يكون هذا هو المطلوب في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا بالتوفيق sumif in closed workbooks.rar 3
lionheart قام بنشر سبتمبر 15, 2021 قام بنشر سبتمبر 15, 2021 Sub Test() Dim ws As Worksheet, c As Range, myDir As String, fn As String, shName As String, s As String, t As String, m As Long, n As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) myDir = ThisWorkbook.Path & "\" With ws.Range("B4:B" & ws.Cells(Rows.Count, "B").End(xlUp).Row) .Offset(, 1).Resize(.Rows.Count, 4).ClearContents For Each c In .Cells fn = Dir(myDir & "\" & c.Value & ".xlsx") If fn = Empty Then GoTo NXT With GetObject(myDir & fn).Worksheets.Item(1) shName = .Name m = .Cells(Rows.Count, "B").End(xlUp).Row End With For n = 1 To 4 s = "'" & myDir & "[" & fn & "]" & shName & "'!" & Range("B6:B" & m).Address(True, True, -4150) t = Replace(s, Split(s, "!")(1), Range("C6:C" & m).Address(True, True, -4150)) c.Offset(, n).Value = Application.ExecuteExcel4Macro("SUMPRODUCT((" & s & "='" & ws.Name & "'!" & c.Offset(3 - c.Row, n).Address(True, True, -4150) & ")*(" & t & "))") Next n NXT: Next c End With Application.ScreenUpdating = True End Sub 2
القول المأثور قام بنشر سبتمبر 15, 2021 الكاتب قام بنشر سبتمبر 15, 2021 دائما مبدع استاذي محمد صالح، جزيل الشكر والإمتنان. بارك الله فيك. 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.