엑셀 VBA로 구구단 맹글기~ 반복시키기

엑셀 VBA, 매크로, 시스템트레이딩, 업무자동화 주문제작 받고 있는 청년군입니다.~

국민 전화번호가 될때까지 계속 쓸꺼임!! 010-3761-1487!!! 돼지꼬리 뙝뙝!!!

 

여러회사에서 엑셀은 일반 산식위주로만 쓰시고있음...

 

sum, sumif, vlookup, sumproduct 등???

이정도만 써도 일반회사에서는 상급 엑셀러(?)로 인정을 받는것 같다 ㅎㅎ

 

이제 VBA로 넘어올때도 된것 같은데~!!!

자동화시킨다고 정리해고 안하니 이제는 자동화시키고 정시출근 정시퇴근 하시기를~~

 

자!! 청년군은 VBA에서 반복을 사용할때 딱 두가지만 씁니다.

예를 들때 뭐 Dim 이런건 생략하겠음용~!! 실제로 생략해도 별 상관은 없음 ㅎㅎ

 

1. for next

ex)

sub gugu()

 for j = 1 to 9

   for i = 1 to 9

   cells(i,j) = i*j

   next i

 next j

end sub

자 요렇게하면 구구단 완성!!

 

2. do until

ex)

sub gugu()

i=1

j=1

do until i = 9 and j = 9

i = i + 1

if i = 10 then

j = j + 1

i = 1

endif

cells(i,j) = i*j

loop

end sub

 

자!! 이렇게 해도 구구단 완성!! 방법은 달라도~ 결과는 똑 같죠~~ ^___^

cells(i,j) = i * j <--- 요놈을 위아래로 순서 바꾸면서 넣어보세요~ 결과값도 천차만별이 된답니돠~~

이게 공부죠~^^

 

청년군은 do until을 더 많이 많이 써요 ㅎㅎ

프로그램 하시다 보면 아마도 갯수가 한정이 되있는데 for next를

갯수가 유동적인건 do until을 사용하시게 될껍니당~^^