엑셀 VBA 0입력 관련 도와주세요

밑에 있는 코드를 만들었습니다.

제가 해결하고 싶은 것은, 입력란에 0을 입력하면 취소되는 것이 아닌 0인 채로 코드가 진행됬으면 좋겠습니다.

0을 입력하면 자꾸 코드가 취쇠되네요

 

 

Sub GenerateTest()

    Dim wsDB As Worksheet

    Dim wsTest As Worksheet

    Dim i As Long, j As Long

    Dim KR_to_EN_단어_갯수 As Variant

    Dim EN_to_KR_단어_갯수 As Variant

    Dim totalWords As Long

    Dim wordArray() As Variant

    Dim temp As Variant

    Dim availableWords As Long

    Dim foundCell As Range

    Dim inputCell As Range

    Dim copyRange As Range

    Dim targetRange As Range

    

    ActiveWorkbook.RefreshAll

    ' 단어 데이터베이스 시트와 시험지 시트를 지정합니다.

    Set wsDB = ThisWorkbook.Sheets("단어DB")

    Set wsTest = ThisWorkbook.Sheets("시험지")

    

    ' KR_to_EN_단어_갯수 입력을 반복하여 유효한 값이 입력될 때까지 요청합니다.

    Do

        ' KR_to_EN_단어_갯수를 입력 받습니다.

        KR_to_EN_단어_갯수 = Application.InputBox("영어를 한국어로 번역할 개수를 입력하세요.", "영어 to 한국어", 0, Type:=1)

        

        ' 숫자가 아닌 값을 입력하면 메시지를 표시하고 다시 입력을 요청합니다.

        If KR_to_EN_단어_갯수 = False Then Exit Sub

        If Not IsNumeric(KR_to_EN_단어_갯수) Then

            MsgBox "숫자를 입력하십시오.", vbExclamation

        ElseIf KR_to_EN_단어_갯수 < 0 Then

            MsgBox "0 이상의 숫자를 입력하십시오.", vbExclamation

        Else

            Exit Do

        End If

    Loop Until KR_to_EN_단어_갯수 >= 0

    

    ' EN_to_KR_단어_갯수 입력을 반복하여 유효한 값이 입력될 때까지 요청합니다.

    Do

        ' EN_to_KR_단어_갯수를 입력 받습니다.

        EN_to_KR_단어_갯수 = Application.InputBox("한국어를 영어로 번역할 개수를 입력하세요.", "한국어 to 영어", 0, Type:=1)

        

        ' 숫자가 아닌 값을 입력하면 메시지를 표시하고 다시 입력을 요청합니다.

        If EN_to_KR_단어_갯수 = False Then Exit Sub

        If Not IsNumeric(EN_to_KR_단어_갯수) Then

            MsgBox "숫자를 입력하십시오.", vbExclamation

        ElseIf EN_to_KR_단어_갯수 < 0 Then

            MsgBox "0 이상의 숫자를 입력하십시오.", vbExclamation

        Else

            Exit Do

        End If

    Loop Until EN_to_KR_단어_갯수 >= 0

    

    ' 합친 값을 사용하여 단어를 가져옵니다.

    totalWords = KR_to_EN_단어_갯수 + EN_to_KR_단어_갯수

    

    ' 사용 가능한 단어 수를 계산합니다.

    availableWords = wsDB.Cells(wsDB.Rows.Count, "BB").End(xlUp).Row - 5

    

    ' 입력된 값과 사용 가능한 단어 수 중 작은 값을 사용합니다.

    totalWords = WorksheetFunction.Min(totalWords, availableWords)

    

    ' 사용 가능한 단어 목록을 배열에 저장합니다.

    ReDim wordArray(1 To totalWords)

    For i = 1 To totalWords

        wordArray(i) = wsDB.Cells(5 + i, "BB").Value

    Next i

    

    ' 배열에 저장된 단어를 랜덤으로 섞습니다.

    For i = 1 To totalWords

        j = Int((totalWords - i + 1) * Rnd + i)

        temp = wordArray(i)

        wordArray(i) = wordArray(j)

        wordArray(j) = temp

    Next i

    

    ' '시험지' 시트의 7행부터 아래로 모든 데이터를 지웁니다.

    wsTest.Rows("7:" & wsTest.Rows.Count).EntireRow.Clear

    

    ' 랜덤으로 섞은 배열의 값을 시험지 시트의 H7부터 써줍니다.

    For i = 1 To totalWords

        wsTest.Cells(i + 6, "H").Value = wordArray(i)

    Next i

    

    ' '단어DB' 시트에서 해당 단어의 한국어 뜻을 찾아서 '시험지' 시트의 I열에 입력합니다.

    For i = 7 To totalWords + 6

        Set foundCell = wsDB.Columns("E:E").Find(wsTest.Cells(i, "H").Value, LookIn:=xlValues, LookAt:=xlWhole)

        If Not foundCell Is Nothing Then

            wsTest.Cells(i, "I").Value = foundCell.Offset(0, 1).Value

        End If

    Next i

    

    ' '단어DB' 시트에서 해당 단어의 영어 번역을 찾아서 '시험지' 시트의 J열에 입력합니다.

    For i = 7 To totalWords + 6

        Set foundCell = wsDB.Columns("C:C").Find(wsTest.Cells(i, "H").Value, LookIn:=xlValues, LookAt:=xlWhole)

        If Not foundCell Is Nothing Then

            wsTest.Cells(i, "J").Value = foundCell.Offset(0, 1).Value

        End If

    Next i

    

    ' '시험지' 시트의 H7부터 KR to EN의 값만큼 복사해서 D7부터 아래로 붙여넣습니다.

    If KR_to_EN_단어_갯수 > 0 Then

        Set copyRange = wsTest.Range(wsTest.Cells(7, "H"), wsTest.Cells(6 + KR_to_EN_단어_갯수, "H"))

        Set targetRange = wsTest.Range("D7").Resize(copyRange.Rows.Count, 1)

        copyRange.Copy targetRange

    End If

    ' '시험지' 시트의 I열에서 6 + KR to EN 인수 값만큼 아래로 이동하여 데이터를 복사하고 E열의 적절한 위치에 붙여넣습니다.

    If EN_to_KR_단어_갯수 > 0 Then

        Set copyRange = wsTest.Range(wsTest.Cells(6 + KR_to_EN_단어_갯수 + 1, "I"), wsTest.Cells(wsTest.Rows.Count, "I").End(xlUp))

        Set targetRange = wsTest.Cells(6 + KR_to_EN_단어_갯수 + 1, "E")

        copyRange.Copy targetRange

    End If

    

    ' 셀 서식 적용

    With wsTest.Range("D7:E" & totalWords + 6)

        .Font.Size = 16

        .HorizontalAlignment = xlCenter

        .WrapText = True

        .Borders.LineStyle = xlContinuous

    End With

    

    With wsTest.Range("H7:I" & totalWords + 6)

        .Font.Size = 16

        .HorizontalAlignment = xlCenter

        .WrapText = True

        .Borders.LineStyle = xlContinuous

    End With

    

    ' 프린트 A4 용지에 맞추기

    With wsTest.PageSetup

        .PaperSize = xlPaperA4

        .Orientation = xlPortrait

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = False

    End With

End Sub