excel vba, bir aralıkta

Question

For i = 10 to 21 

    c = WorksheetFunction.SumIfs(Worksheets("Input").Range("J:J"), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe") 

Next i 

bu kodda "J: J" konumundan "U: U" a kadar olan Aralığı ("J: J") azaltmaya çalışıyorum. Ben Cells ile çalıştı:

c = WorksheetFunction.SumIfs(Worksheets("Input").Cells(1, i), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe") 

ve ben de Range(Chr(Asc("J")+1) ile denedim bir hata

aldık. o sorunu ancak VBA bir İçin-Loop için Syntax'i çözmek eğer

Answer 1

bir yolu, sizin sözdizimi tutarak Range("J:J")Columns(i) için

For i = 10 to 21 

    c = WorksheetFunction.SumIfs(Worksheets("Input").Columns(i), Worksheets("Input").Range("A:A"), "Sales ValueExternal", Worksheets("Input").Range("H:H"), "Europe") 

Next i 

değiştirmektir

Answer 2

Bilmiyor geçerli:

Dim i as Integer 
For i=0 To 20 Step 1 

Next