총 페이징 수를 얻을 수 있도록 누군가에게 도움을 청하는 VBA 프로그램.

하위 ABC ()

I = 4

10 은 k = 1 부터 10 을 의미합니다

J = I 에서 I+10 까지의 경우

셀 (j, 1) = ""이면 끝납니다

If 셀 (j,1) < & gt 셀 (j+1, 1) 은

줄 (j+1). 삽입

셀 (j+ 1, 1) = "작은 계획"

범위 (셀 (I, 5), 셀 (j+1, 5). 고르다

셀 (j+1, 5) 입니다. 활동을 하다

ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"

범위 (셀 (I, 7), 셀 (j+1, 7). 고르다

셀 (j+1, 7) 입니다. 활동을 하다

ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"

20 으로 이동합니다

만약 ... 끝날거야

그리고 나서

줄 (j+1). 삽입

셀 (j+ 1, 1) = "작은 계획"

범위 (셀 (I, 5), 셀 (j+1, 5). 고르다

셀 (j+1, 5) 입니다. 활동을 하다

ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"

범위 (셀 (I, 7), 셀 (j+1, 7). 고르다

셀 (j+1, 7) 입니다. 활동을 하다

ActiveCell 입니다. Formula1c1= "= sum (r [-"& J-I+1& "]C:R[- 1]C)"

20 I = j+2

그리고 나서

끝단 접합