컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Tuesday, March 13, 2007

19단표, 십구단표 만들기, Excel 엑셀 VBA 소스 코드; 19x19 Table


엑셀로 19단표를 만드는 비베 소스입니다. 아래 그림과 같이 십구단표가 출력됩니다. 어른이 한번 읽기도 힘든데, 이것을 외우게 하는 학교도 있다고 하니 좀 그렇더군요. 인도에는 계산기도 컴퓨터도 귀해서 십구단표 같은 것을 외워야 먹고 살겠지만, 각종 IT 기기가 지천으로 널려 있는 한국에서 그럴 필요는 없겠지요.

(19단표: 클릭하면 확대)
19단표



아래의 비베 소스로, 위의 십구단표를 출력할 수 있습니다.

19단표 엑셀로 출력 예제


(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub Multiplication_Table_19x19()

  Dim I, J

  Cells(1, 5).Value = "19단" ' 제목
  Cells(1, 5).HorizontalAlignment = xlCenter


  For J = 1 To 19
    For I = 2 To 10 ' 2단에서 10단까지 출력

      With Cells(J + 2, I - 1)
        .ColumnWidth = 10 ' 열의 폭을 넓게
        .Value = leadingSpaces(I, 2) & " x " & leadingSpaces(J, 2) & " = " & leadingSpaces(I * J, 3)
        .Font.Name = "돋움체"
        .Font.Size = 10
      End With

    Next I
  Next J



  For J = 1 To 19
    For I = 11 To 19 ' 11단에서 19단까지 출력

      With Cells(J + 23, I - 10)
        .Value = leadingSpaces(I, 2) & " x " & leadingSpaces(J, 2) & " = " & leadingSpaces(I * J, 3)
        .Font.Name = "돋움체"
        .Font.Size = 10
      End With

    Next I
  Next J


End Sub




' 숫자 앞에 공백 넣어 자릿수 일정하게 맞추는 함수
Function leadingSpaces(n, digits)

  Dim I, Space

  If (Len(n) < digits) Then
    For I = 1 To digits - Len(n)
      Space = Space & " "
    Next I
  End If

  leadingSpaces = Space & n

End Function



그림 파일이 아닌, 텍스트 파일로 된 19단표: ▶▶ C언어] 19단표 만들기, 19단 출력 소스, 십구단 십구단표; 19 x 19 Table

구구단표 작성: ▶▶ 구구단표 만들기, Excel 엑셀 VBA 소스 코드; 9x9 Multiplication Table



0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top