엑셀 텍스트를 분수로 바꾸기

 

엑셀 텍스트를 분수로 바꾸기

엑셀에서 명부 데이터를 관리하다보면 '공유지분'을 '분수'로 입력해야하는 경우가 있습니다.

처음부터 명부 데이터를 작성했다면 몰라도, 이미 작성되어있는 명부에는 공유지분이 '텍스트'형식으로 작성되어 있는 경우가 더러 있습니다.

 

공유지분이야 '=소유면적/편입면적'의 수식을 활용하여 쉽게 구할 수 있지만, 공동소유인 경우 편입면적이 대표자에게 입력되어 있을 확률이 비교적 높습니다.

 

이 경우 번거롭게 가공하여 함수를 힘들게 적용할 필요 없이 손쉽게 '분수'형식으로 변경하는 방법에 대하여 알려드리고자 합니다.

 

 

위 그림은 명부 데이터 예시입니다. 통상 위 이미지파일과 비슷하게 생겼을 것이라 생각합니다.

 

 

 

데이터의 값을 활용하기위해서는 공유지분에 해당하는 열이 '텍스트' 형식이 아닌 '분수' 형식이어야 합니다.

 

 

해당되는 셀들의 범위를 선택한 후 셀서식을 '분수' 형식으로 바꿔줬지만 '수식입력창(빨간색 테두리표시)'의 값은 변함없이 '텍스트' 형식 그대로인것을 확인 할 수 있습니다.

*만약 이게 '텍스트' 형식이 아닌 '분수' 형식으로 바꼈다면 '수식입력창'의 값이 소수점으로 보여야 합니다.

 

그럼 어떻게 해결할 수 있을까요?

 

 

왼쪽 하단에 있는 '시트명'을 마우스 우클릭한 후, '코드 보기'를 눌러줍니다.

 

 

위와 같이 VBA를 사용할 수 있는 창이 뜨면, 하단의 코드를 드래그하여 그대로 복사, 붙여넣기 합니다.

 

Sub chg_frac()
 
Dim Val as Variant
Dim Rng_R1 As Long, Rng_R2 As Long
Dim Rng As Range, Rng_C As String
 
Rng_R1 = 4
Rng_R2 = 11
Rng_C = "N"
 
Set Rng = Range(Rng_C & Rng_R1, Rng_C & Rng_R2)
 
Val = Rng.Value
 
Rng.NumberFormat = "?/?"
Rng = Val
 
End Sub

우리는 공유지분에 해당하는 셀들의 값을 '분수' 형식으로 변경할 것이기 때문에 해당하는 셀 범위로 코드를 살짝 수정해줍니다.

위 예제에서 '공유 지분'의 범위는 "N"열 4행에서 11행이므로,

Rng_R1 = 4

Rng_R2 = 11

Rng_C = "N"

으로 작성되었으니, 다른것은 수정하지 말고 4, 11, "N"에 해당하는 값만 해당 명부 데이터 공유지분에 해당하는 범위로 변경해 주시면 됩니다.

 

수정 후, 'F5'키를 누르고 실행을 누르면 작동이 완료됩니다.

 

 

VBA 창을 종료하고 명부 데이터 시트로 돌아가섯 공유지분을 클릭하면 데이터가 소수점으로 변경된 것(빨간색 테두리)을 확인할 수 있습니다.

 

쉽게, 빠르게 원하는 값을 얻는데 작게나마 도움이 되었으면 좋겠습니다!

엑셀 텍스트를 분수로 바꾸기