텍스트로 저장된 숫자 데이터를 실제 숫자 데이터로 변경하기

by 엑셀의달인 posted May 10, 2017
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄
 
텍스트로 저장된 숫자 데이터를 실제 숫자 데이터로 변경하기
 
Option Explicit
Sub dhTxt2Number()
Dim rngArea As Range
Dim strFormat As String
Const Es As String = "엑셀의달인 http://exdal.net"
On Error GoTo e1
    Set rngArea = Application.InputBox(Prompt:="텍스트로 저장된 숫자를 변환합니다", Title:=Es, Default:=Selection.Address, Type:=8)
    If rngArea Is Nothing Then
    Else
        strFormat = rngArea.Cells(1).NumberFormatLocal '첫번째 셀의 표시형식을 나머지에도 적용한다
        If InStr(strFormat, "@") Then strFormat = "G/표준" '표시형식이 텍스트인 경우라면 일반 서식으로 지정한다.
        dhConvertNumber rngArea, strFormat
    End If
e1:
End Sub
Private Sub dhConvertNumber(rngArea As Range, Optional strNumberFormat = "G/표준")
Dim c As Range
    For Each c In rngArea.Areas '사용자로부터 넘겨 받은 범위를 순환한 뒤
        With c
            .NumberFormatLocal = strNumberFormat '서식을 변경한 뒤
            .Value = .Value '값을 변경한다
        End With
    Next c
End Sub