문서서식포탈 비즈폼
"반갑습니다! 오늘도 좋은 하루 보내세요!"
무료회원가입로그인마이페이지서식요청고객센터즐겨찾기추가
바로가기
무료서식
무료 자동작성
영문컨텐츠
기업컨시어지
회사서식
업종별서식
핫클릭서식
기업전용서비스
정부지원금
할인쿠폰등록
바로가기
번역서비스
법률상담
맞춤법검사기
독서감상문
비즈폼
문서/서식 비즈폼 샘플서식 비즈폼 부서별서식 비즈폼 업종별서식 비즈폼 엑셀자동화서식 비즈폼 비즈플랜 비즈폼 애니폼 비즈폼 부가서비스 비즈폼 비즈컨텐츠 비즈폼 기업전용서비스 비즈폼
상세검색 검색도움말

인기검색어

사업계획서  계약서  자기소개서  이력서  제안서  설문지

회사소개서  탄원서  견적서  내용증명  급여명세서

재직증명서  위임장  사직서  차용증  각서  고소장

동업계약서   근로계약서   지출결의서   경력증명서   시말서
비즈폼인기검색어
비즈폼기업회원전용서비스
비즈폼
부서별실무서식
비즈폼
기업서식패키지
비즈폼
회사사규
비즈폼
기업관리자를위한컨텐츠
비즈폼
입사에서 퇴사까지 모든 컨텐츠
비즈폼
비즈니스 법률문서 가이드
비즈폼
자동화서식엑셀요청
비즈폼
세무회계실무사례
비즈폼
세무달력
비즈폼
기업전용서비스는 비즈폼 프리미엄/기업회원이 되시면 모두 이용하실 수 있습니다
현재위치 Home > 기업전용서비스 > 엑셀자동화서비스 > 엑셀지식컨텐츠
메인자주하는질문
엑셀자동화서식? 엑셀자동화서식목록 엑셀지식컨텐츠
기업전용서비스엑셀 지식컨텐츠 비즈폼 사용전 꼭 확인하세요.
엑셀개념   기본사용법   엑셀팁 메인으로
문자형식으로 나타나 있는 숫자를 숫자형식으로 돌려 놓기
비즈폼등록일 : 2006-11-14 비즈폼조회수 : 5840

분명히 숫자인데 표시형식을 숫자로 아무리 바꾸어도 계산이 되지 않고 문자 형식으로 나타나거나 오류표시가 나타나 있는 경우가 있습니다. 특히 웹페이지를 블록 지정하여 복사했을 때 이런 사항이 잘 나타납니다. 그런데 셀 서식에서 표시형식을 아무리 바꾸어도 변하지 않던 셀을 지정하고 F2를 눌러 수정으로 들어간 다음 아무것도 하지 않고 Enter만 누르면 숫자 형식으로 변하는 경우가 있습니다. 몇 개 되지 않을 경우에는 F2누르고, Enter 누르고, 반복해서 사용할 수 있겠지만 이런 사항이 수십, 수백개라면 어떻게 될까요? 이런 문제점을 VBA를 이용하여 해결해 보도록 하겠습니다. 아주 간단하니깐 잘 따라해 보세요 ^^

 

 

※ 다음과 같이 숫자 오류가 있다는 가상으로 진행을 해 보도록 하겠습니다.

 

 

1) 우선 숫자인데 문자형식으로 나타는 파일을 열고 ‘Alt+F11’ 또는 ‘도구>매크로>Visual Basic Editor’를 눌러 Visual Basic Editor 창이 나타나게 합니다.


Tip) 위 화면처럼 좌측에 프로젝트 탐색기 및 속창 창이 나타나지 않았다면 Ctrl+R(프로젝트 탐색기)와 F4(속성 창)를 눌러 보세요~

 

2)삽입>모듈’ 메뉴를 누르면 오른쪽에 코드 입력창이 나타납니다.


 

3) 입력창에 다음과 같이 코드를 입력합니다.
---------------------------------------------------------
Sub 바꾸기()

    Dim a As String   ‘(a 라는 변수를 지정)
   
    Do While ActiveCell <> ""   ‘(현재 선택한 셀이 공백여부를 확인, 공백이 아니면 실행)
        a = ActiveCell   ‘(현재 셀의 값을 a변수에 입력)
        ActiveCell = a   ‘(a변수의 값을 현재 셀에 다시 입력)
        ActiveCell.Offset(1, 0).Select   ‘(현재 셀에서 아래로 한칸 이동)
    Loop   ‘(반복)

End Sub
---------------------------------------------------------

 


4) Visual Basic Editor 창을 닫고 숫자가 문자로 잘못되어 있는 시트로 이동하여 잘못 입력되어 있는 셀을 선택합니다.(화면에서는 B2셀 선택)

 

 

5)Alt+F8’을 눌러 나타난 매크로 창에서 ‘3)’에서 만들어진 매크로를 선택

 
목록가기
뒤로 위로
비즈폼
Copyright (c) 2000-2025 by bizforms.co.kr All rights reserved.
고객센터 1588-8443. 오전9:30~12:30, 오후13:30~17:30 전화상담예약 원격지원요청
전화전 클릭
클린사이트 선정