[VBA기초] Number 를 문자(Text)로 한번에 변경

Number 를 문자(Text)로 한번에 변경

Sub NumToText()
    Dim Temp As Double
    Dim Selection As Range

    Dim rngC as Range

    Set Selection = Range([B2], Cells(Rows.Count, "B").End(3))  '//마우스로 지정하려면 앞에 콤마를
     '// 마우스가 지정하는 것이 아니라 범위를 직접 지정하고 싶은 경우
     '// Cells(Rows.Count, "B").End(3) 은 B열의 값이 들어있는 마지막 셀을 의미함
    For Each rngC In Selection  '//마우스로 구간 설정한 곳 전부
        If Not IsEmpty(rngC.Value) And IsNumeric(rngC.Value) Then  '// 빈셀이 아니고 숫자이면
            Temp = rngC.Value
            rngC.ClearContents
            rngC.NumberFormat = "@"   '// 텍스트 서식으로
            rngC.Value = CStr(Temp)
            If Len(rngC.Value) < 13 Then  '//바코드가 총 13자리인거 같아서
                Select Case Len(rngC.Value)
                    Case 9: rngC.Value = "0000" & cell.Value
                    Case 10: rngC.Value = "000" & cell.Value
                    Case 11: rngC.Value = "00" & cell.Value
                    Case 12: rngC.Value = "0" & cell.Value
                End Select
            End If
        End If
    Next rngC
End Sub