소수 나타내기

안녕하세요.

 

1부터 100까지 숫자를 나타내고 소수를 찾아 채우기 합니다.

 

완성 파일 다운로드

소수 나타내기.xlsm

0.01MB

 

Public Sub 평가()
    Range("1:10").Clear
    
    cnt = cnt + 1
    p = 0
    
    For i = 1 To 10
        For j = 1 To 10
            Cells(i, j) = cnt
            
            For k = 1 To cnt
                If cnt Mod k = 0 Then
                    p = p + 1
                End If
            Next k
            
            If p = 2 Then
                Cells(i, j).Interior.ColorIndex = 19
            End If
            
            cnt = cnt + 1
            p = 0
        Next j
    Next i
End Sub

필요하신 분께 도움이 되길 바랍니다.