جمع کردن عدد داخل یک سلول در چند فایل مجزا

[iranweld]

با سلام و وقت بخیر
من خیلی به این ماکرو نیاز دارم برای جمع بندی نظرات کاربران شرکت کننده در یک کارگاه آموزشی
فقط بی زحمت بفرمایید که چطور میتونیم این ماکرو رو برای جمع چندین سلول متفاوت دیگر استفاده کنیم.
این ماکرو میتونه همه سلول های a1 موجود در تمامی فایل ها رو جمع کنه و در سلول b2 فایل sum جمع کنه
من میخوام :
الف -تمامی سلول های a1 رو در b2
ب- تمامی سلول های a2 رو در b3
ج - تمامی سلول های a3 رو در b4
و هر چند سلول رو که خواستم جمع کنه
ممنون

با این کد کلیه شیت های فایلهای مقصد مورد برسی قرار گرفته و سلولهای A1,A2,A3هر شیت در جمع لحاظ میگردد

Private Sub CommandButton1_Click()

Static total1, total2, total3 As Integer

Dim directory As String, fileName As String, sheet As Worksheet, I As Integer


total1 = 0
total2 = 0
total3 = 0

Application.ScreenUpdating = False

directory = "E:\test\"

fileName = Dir(directory & "*.xl??")

Do While fileName <> ""

        
    Workbooks.Open (directory & fileName)
    
    For I = 1 To Sheets.Count
    
   total1 = total1 + Sheets(I).Range("A1")
   total2 = total2 + Sheets(I).Range("A2")
   total3 = total3 + Sheets(I).Range("A3")
   
   Next
   
       
    Workbooks(fileName).Close
    
    fileName = Dir()
    
        
Loop

Application.ScreenUpdating = True

Range("B2") = total1
Range("B3") = total2
Range("B4") = total3

End Sub 

[saeid_f]

با سلام

فایل پیوست را بررسی کنید

مسیر فایلهایی که باید بررسی شود در فولدر

directory = "E:\test\" 

که میتوانید به فولدر و درایو مورد نظر خود تغییر دهید

نام شیت های مقصدی که بررسی میشود

Sheets("Sheet1").Range("A1") 

Private Sub CommandButton1_Click()

Static total1, total2, total3 As Integer

Dim directory As String, fileName As String, sheet As Worksheet


total1 = 0
total2 = 0
total3 = 0

Application.ScreenUpdating = False

directory = "E:\test\"

fileName = Dir(directory & "*.xl??")

Do While fileName <> ""

        
    Workbooks.Open (directory & fileName)
    
          
   total1 = total1 + Sheets("Sheet1").Range("A1")
   total2 = total2 + Sheets("Sheet1").Range("A2")
   total3 = total3 + Sheets("Sheet1").Range("A3")
   
       
    Workbooks(fileName).Close
    
    fileName = Dir()
    
        
Loop

Application.ScreenUpdating = True

Range("B2") = total1
Range("B3") = total2
Range("B4") = total3

End Sub 

خیلی ممنون و سپاسگزارم
با این کدها کار من راه می افته و خیلی در وقت من صرفه جویی میشه
فقط یک نکته:
از سلول D7 تا H21حدود ۷۵ تا سلول هست.
اگه بخوام اعدادی که در این ۷۵ سلول در همه فایل ها هست رو جمع بزنه و در فایل دیگری در ۷۵ سلول بنویسه لزوما باید ۷۵ تا total تعریف کنم