행을 반복하고 추가 값

여기 내 코드 셀 (5, 20) 또는 무언가행을 반복하고 추가 값

With Worksheets("Sheet1") 
    For x = 5 To x = 30 Step 1 
    Set addRange1 = .Range(.Cells(x, 4), .Cells(x, myCount2)) 
    cell(x, myCount2 + 2).Value = Application.Sum(addRange1) 
Next 
End With

첫 행 될 셀 (5,4)이다. 해당 행의 값을 합에 X = 는 합계 값이

출처

2017-02-22 Robot_enthusiast

'Cell'에'Sub 또는 Function not defined'가 있어야합니다. '셀 '을 사용하십시오. 또한 변수를 선언하지 않았으므로 모듈 상단에'Option Explicit'을 사용하십시오. –

나는 addRange1과 myCount2를 선언했다. 단지 게시물에 그것을 포함하지 않았다. –

@ DarrenBartrup-Cook이 코드 스 니펫은 sub btw 내에있다. –

이 올바른 것이어야한다 빈 셀을 얻기 분명하다 30

희망 셀 (5,22) 반복 그것을 표시 :

With Worksheets("Sheet1") 
    For x = 5 To 30 
     Set addRange1 = .Range(.Cells(x, 4), .Cells(x, myCount2)) 
     Cells(x, myCount2 + 2).Value = Application.Sum(addRange1) 
    Next 
End With

For ... Next이 잘못되었습니다. To x = 30 대신 To 30이어야합니다.

정보 여기에 발생한 상황 : 코드를 단계별로 살펴본 경우 For ... Next 내부의 모든 항목이 실행되지 않는다는 것을 알았을 것입니다. 이는 For에서 x = 30이고 30 값으로 설정하고 For의 끝이므로 For이 절대로 실행되지 않기 때문입니다.

Step 1

은 기본적으로 1 당신은 그것을 제거하거나 유지할 수 있지만 필요가 없습니다 필요하지 않습니다.

Darren Bartrup-Cook이 말한대로 Cell 대신 Cells이어야합니다.

출처

2017-02-22 12:11:51

행을 반복하고 추가 값

답변

관련 문제