جمع یک سلول از تعداد دلخواه شیت؟؟؟

[mohsen.2706]

سلام. خسته نباشید.
دوستان ی سوال
من 12 تا شیت دارم
حالا ی سلول رو می خوام جمع بزنم ولی به تعداد شیت دلخواه
مثلا دوست دارم 3 شیت اون سلول جمع بشه
یا 5 تا

sum(sheet1:sheet(n)!a!)

مثل بالا. حالا دلم میخواد اون n رو خودم وارد کنم
نمیدونم تونستم منظورم رو برسونم

[rasools13]

سلام با تعریف تابع ذیل میتونید به خواسته تون برسید

Function SumBySheets(Target As Range, From_Sheet As Integer, To_Sheet As Integer)
    Dim shNum, i As Integer
    Dim Result As Variant
    shNum = ActiveWorkbook.Worksheets.Count
    If From_Sheet > shNum Or To_Sheet > shNum Or From_Sheet = 0 Or To_Sheet = 0 Or To_Sheet < From_Sheet Then
        Result = "خطا!"
    Else
        For i = From_Sheet To To_Sheet Step 1
            Result = Result + ActiveWorkbook.Worksheets(i).Range(Target.Address)
        Next
    End If
    SumBySheets = Result
End Function 

این تابع دارای سه آرگومان ذیل است
Target = سلول مورد نظر
From_Sheet = شماره اولین شیت (شیت آغاز)
From_Sheet = شماره آخرین شیت (شیت پایان)
برای مثال

=SumBySheets(A1;3;6) 

در این مثال محتوای سلول A1 از شیت سوم تا ششم محاسبه می شود.
..
در صورتی که شماره شیت های وارد شده از تعداد شیت های موجود بیشتر باشد یا مقدار صفر وارد شود و یا اینکه مقدار شیت آغاز بیشتر از مقدار شیت پایان باشد خروجی به صورت "" خطا!"" خواهد بود