اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

كيف يمكننى من جمع (Sum) خلايا نطاق معين من أى عدد من الملفات فى نفس الفولدر( test )

عن طريق VBA Code

مرفق مثال :

جمع خلايا الملفات 1 ، 2 ، 3 فى الملف main فى نفس المكان.

وشكرا لكم سرعة استجابتكم

test.rar

قام بنشر

السلام عليكم و رحمة الله

أي جرب هذا الكود


Sub Excel4Us()

'Yahya Hussien

Dim FName As String, wbs As Workbook, FileName As String, ArrFile() As Variant, i As Integer

Dim Mainwb As Workbook, NewWb As Workbook

Set Mainwb = ActiveWorkbook

FName = ActiveWorkbook.Path

FileName = Dir(FName & "\*.xls*")

Do Until FileName = ""

    i = i + 1

    ReDim Preserve ArrFile(1 To i)

    ArrFile(i) = FileName

    FileName = Dir

Loop

For i = LBound(ArrFile) To UBound(ArrFile)

    If ArrFile(i) <> Mainwb.Name Then

    Workbooks.Open FName & "\" & i

    Set NewWb = ActiveWorkbook

    NewWb.Sheets(1).Range("A1:b1").Copy

    Mainwb.Sheets(1).Range("a1:b1").PasteSpecial xlPasteValues, xlAdd, False, False

    NewWb.Close False

    End If

Next i

End Sub

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information