Tuesday, March 13, 2007
19단표, 십구단표 만들기, Excel 엑셀 VBA 소스 코드; 19x19 Table
엑셀로 19단표를 만드는 비베 소스입니다. 아래 그림과 같이 십구단표가 출력됩니다. 어른이 한번 읽기도 힘든데, 이것을 외우게 하는 학교도 있다고 하니 좀 그렇더군요. 인도에는 계산기도 컴퓨터도 귀해서 십구단표 같은 것을 외워야 먹고 살겠지만, 각종 IT 기기가 지천으로 널려 있는 한국에서 그럴 필요는 없겠지요.
아래의 비베 소스로, 위의 십구단표를 출력할 수 있습니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
그림 파일이 아닌, 텍스트 파일로 된 19단표: ▶▶ C언어] 19단표 만들기, 19단 출력 소스, 십구단 십구단표; 19 x 19 Table
구구단표 작성: ▶▶ 구구단표 만들기, Excel 엑셀 VBA 소스 코드; 9x9 Multiplication Table
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
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
tag: study
학습 | Study
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home