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

 
Previous Post Print Perl Array : 펄 배열 출력 방법, 함수Perl/펄] 퍼센트 기호(%) 의미, printf 함수로 백분율 기호 출력 방법; Pri...매스매티카 비프음, 삑삑 비프 소리 끄기; Mathematica v5 Beep OFFExcel/엑셀 VBA] 제곱 기호, 함수 거듭제곱(세제곱,네제곱), 몇 승 구하기 방법;...VRay, 멘탈레이(mental ray) 렌더링 이미지 갤러리(Image Gallery)브라질 렌더러, Brazil r/s 홈페이지, 이미지 갤러리(Image Gallery) 주...VRay 인스톨 방법, V-Ray(브이 레이) 렌더러 맥스에 설치 법; Install윈도우 기본 글꼴 변경 방법, 광수체, 맑은 고딕 지정 Windows UI Font Cha...Excel/엑셀] 세제곱근, 네제곱근, 거듭제곱근 구하기 함수; Cube Root Func...C언어] 세제곱근, 네제곱근, 거듭제곱근 구하기 함수; Cube Root Function;...

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

Tuesday, March 13, 2007

엑셀 비베(VBA)로 다음과 같은 구구단표를 출력하는 소스입니다. 그냥 숫자만 출력하면 너무 무미건조해서 셀 배경색을 지정했기 때문에 소스 분량이 많아졌습니다. 또한 엑셀 기본 폰트인 '돋움'으로는 글자 간격이 일정하지 않아서, 폰트를 '돋움체'로 지정했습니다.

구구단표



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

구구단표 엑셀로 출력 예제


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

  ''''''''''''''''''''''''''''''''''''''''''''
  ' 색깔 팔레트를 위한 2차원 배열
  Dim a(2 To 9, 0 To 2)

  a(2, 0) = 255: a(2, 1) = 255: a(2, 2) = 204
  a(3, 0) = 204: a(3, 1) = 255: a(3, 2) = 204
  a(4, 0) = 204: a(4, 1) = 255: a(4, 2) = 255
  a(5, 0) = 255: a(5, 1) = 204: a(5, 2) = 153
  a(6, 0) = 143: a(6, 1) = 206: a(6, 2) = 255
  a(7, 0) = 215: a(7, 1) = 181: a(7, 2) = 235
  a(8, 0) = 233: a(8, 1) = 201: a(8, 2) = 50
  a(9, 0) = 255: a(9, 1) = 153: a(9, 2) = 204
  '''''''''''''''''''''''''''''''''''''''''''''


  Dim I, J

  Cells(1, 2).Value = "구구단" ' 제목
  Cells(1, 3).Value = "(^_^)" ' 제목


  For J = 1 To 9
    For I = 2 To 5 ' 2단에서 5단까지 출력

      With Cells(J + 2, I - 1)
        .Value = I & " x " & J & " = " & leadingSpaces(I * J, 2)
        .Font.Name = "돋움체"
        .Font.Size = 10
        .Interior.Color = RGB(a(I, 0), a(I, 1), a(I, 2)) ' 배경색 지정
      End With

    Next I
  Next J



  For J = 1 To 9
    For I = 6 To 9 ' 6단에서 9단까지 출력

      With Cells(J + 12, I - 5)
        .Value = I & " x " & J & " = " & leadingSpaces(I * J, 2)
        .Font.Name = "돋움체"
        .Font.Size = 10
        .Interior.Color = RGB(a(I, 0), a(I, 1), a(I, 2))
      End With

    Next I
  Next J

End Sub




' 1자리 숫자 앞에 공백 넣어 2자리로 만드는 함수
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



그림 파일이 아닌, 텍스트 파일로 된 구구단 표 만들기: ▶▶ 자바스크립트] 구구단 출력, 구구단 표 만들기; HTML JavaScript Multiplication Table 99


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

구구단 게임 (온라인 버전):
▶▶ 구구단 게임, 99단 외우기 Game; 인터넷 브라우저에서 구구단 암기 놀이



0 Comments:

Post a Comment

<< Home RSS 2.0 feed

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