엑셀 vba 이용 구구단출력하기

요구사항

 long i, j, k
for a = 2 to 9
 for b = 1 to 9
  k = i * j
  mle_1.text += string(i) + 'X' + string(j) + '=' + string(k) + '~r~n' 
 next
next

여기서 구구단이 시작될 때 '몇단'인지 출력하고 싶은데 어떻게 해야하나요?

 

 

Sub aaa() Dim i As Integer Dim j As Integer Dim k As Range   Set k = Range("a1")   For i = 2 To 9 For j = 1 To 9 k.Value = i & "X" & j & "=" & i * j Set k = k.Offset(1, 0) Next Next End Sub

질문자 님이 올려주신 소스가 엑셀 vbe에서 돌아 가도록 작성 해보았습니다.

 

 

위 소스에서 이제 몇단인지 출력되게 하려면?

For i = 2 To 9

For j = 1 To 9

사이에 몇단인지 출력하는 문장을 삽입합니다.

Sub aaa() Dim i As Integer Dim j As Integer Dim k As Range   Set k = Range("a1")   For i = 2 To 9 k.Value = i & "단 입니다." Set k = k.Offset(1, 0) For j = 1 To 9 k.Value = i & "X" & j & "=" & i * j Set k = k.Offset(1, 0) Next Next End Sub

각 단이 시작할 떄 마다 몇단인지가 출력되고 있습니다. - 소스에서 빨간 색 표시된 부분이 추가된 부분입니다.

 

질문자 님이 올려주신 소스와는 다르지만...(그대로 vba에 붙여놓으면 오류나더군요..)

질문자님도 for와 for 사이에 몇단인지 출력하는 문장을 추가해보세요

엑셀 파일 : 

구구단출력.xlsm

매크로가 되지 않는다면?

구구단 출력을 처음 실행 할때 보안경고가 뜹니다. 옵션을 눌러주세요

옵션을 누르면 아래와 같은 창이! 이 콘텐츠사용에 체크하시고 확인 누르시면 매크로가 동작합니다.