Tuesday, March 13, 2007
구구단표 만들기, Excel 엑셀 VBA 소스 코드; 9x9 Multiplication Table
엑셀 비베(VBA)로 다음과 같은 구구단표를 출력하는 소스입니다. 그냥 숫자만 출력하면 너무 무미건조해서 셀 배경색을 지정했기 때문에 소스 분량이 많아졌습니다. 또한 엑셀 기본 폰트인 '돋움'으로는 글자 간격이 일정하지 않아서, 폰트를 '돋움체'로 지정했습니다.
아래의 비베 소스로, 위의 구구단표를 출력할 수 있습니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
※ 아래 박스 클릭 후, 키보드 화살표 키로 좌우 스크롤 가능함
그림 파일이 아닌, 텍스트 파일로 된 구구단 표 만들기: ▶▶ 자바스크립트] 구구단 출력, 구구단 표 만들기; HTML JavaScript Multiplication Table 99
19단표 작성: ▶▶ 19단표, 십구단표 만들기, Excel 엑셀 VBA 소스 코드; 19x19 Table
구구단 게임 (온라인 버전):
▶▶ 구구단 게임, 99단 외우기 Game; 인터넷 브라우저에서 구구단 암기 놀이
아래의 비베 소스로, 위의 구구단표를 출력할 수 있습니다.
구구단표 엑셀로 출력 예제
(엑셀에서 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
''''''''''''''''''''''''''''''''''''''''''''
' 색깔 팔레트를 위한 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; 인터넷 브라우저에서 구구단 암기 놀이
tag: study
학습 | Study
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home