초등학교 5학년 수학 문제를 엑셀 VBA로

다음은 초등학교 5학년 최상위(?) 수학문제입니다.

소수점 곱하기 관련 단원인데 문제는 대충 이렇습니다.

 Q. 0.6 + 0.66 + 0.666 + 0.6666 + 0.66666 + ... 이렇게 소수점 자리에 6이 반복되는데 총 24개까지 반복될 때 모든 소수를 합한 값의 소수점 2째 자리의 수를 알아내시오.

문제 풀이는 0.6*24 + 0.06*23 + 0.006*22 + 0.00006*21 + 0.000006*20 + .... 이런 식으로 변환해서

몇개 정도 소수점 곱하기 계산을 한 뒤에 몇자리 이상에는 소수자리가 0이 계속된다는 것을 알게되고

소수점 둘째자리 값을 알 수 있다는 식이었습니다.

수학 풀이에 관한 문제는 제쳐두고

이걸 엑셀 VBA에서 직접 소수점 곱하기 결과를 누적해서

실제 총 더한 값을 계산하는 VBA프로그램을 만들어 보고자 합니다.

문자열 String을 이용한 방법

Sub cal666()

    Dim r As Range

    Dim i%

    

    Cells.Clear

    

    For i = 1 To 24

        Cells(i, 1).NumberFormat = "@"

        Cells(i, 1) = "0." & String(i, "6")

        

        Cells(i, 2).NumberFormat = "0.000000000000000000000000"

        If i = 1 Then Cells(i, 2) = CDec(Cells(i, 1)) _

        Else Cells(i, 2) = CDec(Cells(i, 1)) + CDec(Cells(i - 1, 2))

        

    Next i

    

    

End Sub

Decimal 을 이용한 방법

Sub dec666()

    'ThisWorkbook.PrecisionAsDisplayed = True

    Dim a(1 To 24, 1 To 2) As Variant

    Dim r As Range

    Dim i%, j%

    

    Cells.Clear

    

    For i = 1 To 24

        a(i, 1) = CDec(String(i, "6") & String(24 - i, "0"))

        If i = 1 Then a(i, 2) = a(i, 1) _

        Else a(i, 2) = a(i, 1) + a(i - 1, 2)

        

    Next i

    

    'Range("A1:B24") = a

    For i = 1 To 24

        For j = 1 To 2

        

            Cells(i, j).NumberFormat = "000000000000000000000000" '"@"

            Cells(i, j) = CStr(a(i, j))

        Next j

    Next i

    

End Sub

0.6x24.xlsm

0.666666x24.xlsm