[VBA] 구글 입사문제 풀이( 8이 몇번나오나요?)

엇..나도 구글 입사 가능한가..

앗..나이가...ㅠ.,ㅜ

 

Option Explicit

Sub Haja_Google()

    Dim i&, Cnt&                    '= i 숫자만틈 반복할 변수 / Cnt 빈도수를 카운팅 할 변수
    Dim Reg As Object: Set Reg = CreateObject("vbscript.regexp")  '= 정규식 선언
    Dim Mat As Object               '= 정규식의 일치값을 담을 변수
    
    With Reg
        .Pattern = "8"              '= 정규식의 패턴은 숫자 8로 해라
        .Global = True
    End With
    
    For i = 1 To 10000              '= 1부터 10,000까지 순환해라
    
        If Reg.test(i) Then         '= 숫자가 패턴과 일치하면
        
            Set Mat = Reg.Execute(i) '= Mat에 Match값을 넣고
            
            Cnt = Cnt + Mat.Count    '= Cnt에 일치한 값들을 더해라
            
        End If
    
    Next i                           '= 모두 순환하면
    
    [b7] = "답 : " & Cnt             '= 값을 도출해라

End Sub

구글입사문제풀이(22.04.28).xlsm

0.02MB