?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
 
텍스트로 저장된 숫자 데이터를 실제 숫자 데이터로 변경하기
 
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

List of Articles
번호 제목 글쓴이 날짜 조회 수
» 텍스트로 저장된 숫자 데이터를 실제 숫자 데이터로 변경하기 엑셀의달인 2017.05.10 124
1 기본 유저폼 (Userform) 만들기 file 엑셀의달인 2017.05.09 660
Board Pagination Prev 1 Next
/ 1

엑셀의달인
email:osk81@naver.com | 주소:경기도 파주시 후곡로 50 | Phone:010-0000-0000
All Right Reserved www.exdal.net

LOGIN INFORMATION

로그인
loginbox