짱구삼촌
18.11.22
조회 수 1311
추천 수 6
댓글 8

갑자기 영수증 양식을 만들어 보자 싶어서 ㅋㅋ

영수증에는 한글로 오백육만 어쩌구 그렇게 |쓰자너요 ㅋ

이걸 엑셀로 할 수 있겠다 싶었는데 아니나 다를까 구글링하니 이미.....

엑셀 형식에서 매크로 포함된 xslm 으로 만들고 매크로 모튤에


'숫자읽기 V2.01 made by Nakky. 1998.7.28

Option Explicit

Public Function ReadNum(Num, ReadType)
    Dim L, k, i, j, n, v As Integer
    Dim Tg1, Tg2, Tg3 As Variant
    Dim g1, g2, g3 As Integer
    Dim Ans As String
    
    If ReadType = 1 Then
        Tg1 = Array("", "壹", "貳", "參", "四", "五", "六", "七", "八", "九")
        Tg2 = Array("", "拾", "百", "千")
        Tg3 = Array("", "萬", "億", "兆")
    Else
        Tg1 = Array("", "일", "이", "삼", "사", "오", "육", "칠", "팔", "구")
        Tg2 = Array("", "십", "백", "천")
        Tg3 = Array("", "만", "억", "조")
    End If
    
    L = Len(Num) '숫자의 길이
    
    For i = 1 To L
        j = L - i + 1
        n = Mid(Num, j, 1)
        g2 = 0
        g3 = 0
        
        If n > 0 Then
            g2 = (i - 1) Mod 4
        End If
    
        If i Mod 4 = 1 Then
            If j - 3 > 1 Then
                v = Mid(Num, j - 3, 4)
            Else
                v = Mid(Num, 1, j)
            End If
            
            If v > 0 Then
                g3 = i / 4
            End If
        End If
        Ans = Tg1(n) + Tg2(g2) + Tg3(g3) + Ans
    Next i
    ReadNum = Ans
End Function
 

숫자를 뒤에서 부터 한글자씩 잘라서 단위를 붙이는 코드군요.

이렇게 넣은 다음에 사용자 정의 함수를 쓰는거지요.

=ReadNum(B1,0)

이런식으로 입력하면 숫자로 딱...

영수증 형식을 만들어야 겠습니다.

A2 셀에는 =readnum(A1,0) 가 입력되어 있지만 보이는건 한글숫자이죠

20181122001.png

Extra Form
첨부
ReadNum.xlsm  [File Size:15.8KB/Download:1]
20181122001.png  [File Size:8.3KB/Download:0]
댓글을 남겨야 다운로드가 가능합니다. 감사의 댓글을 달고 오른쪽 확인버튼을 눌러주세요.
다운로드시 일주일에 한개 이상의 게시물 작성이 필요합니다. 지금 자유게시판에 회원님의 하루를 남겨보세요.
추천♡버튼을 잊지 마세요. 추천인과 회원님 모두 포인트가 적립됩니다.

짱구삼촌 님의 SIGNATURE

profile

그래도 아직은 사랑이, 낡은 외투처럼 너덜너덜해져서 이제는 갖다 버려야 할, 그러나 버리지 못하고...

"신은 그저 질문하는 자일 뿐... 운명은 내가 던지는 질문이다. 답은 그대들이 찾아라."

댓글 8
댓글 쓰기 권한이 없습니다.
List of Articles
제목 글쓴이 추천 조회 날짜
소식 전국 3사 대란 가격 공지 [ 폴드5 플립5 S23 아이폰15 미친 가격 ] 성지투어 57471 2023.11.30
일상 슈퍼걸스배틀이라는 탁탁채널 방송에서 1 file 산리오 56420 2023.11.29
게임 모배 학교대 학교룰 붙는 스쿨 배틀로얄 참가신청 받고 있어요 1 file 샤인머스 55892 2023.11.29
게임 콜오브카오스 어셈블 피드백 좋군요 file 유채꽃핀 56825 2023.11.28
일상 콜오브카오스 어셈블 다이아 부럽 file 유채꽃핀 60425 2023.11.24
게임 유령기사 키우기 출시 빨리... 4 file 나리타타 58925 2023.11.24
게임 WPL 온라인 새틀라이트가 개편이 될 예정입니다 file 베네딕토 55746 2023.11.23
게임 콜 오브 카오스 어셈블 내일 정식 출시입니다 file 거북이목 56417 2023.11.22
게임 이번에 유령기사 키우기 CBT 열려서 해보는데 file 거북이목 56631 2023.11.21
일상 쿠키런 모험의 탑 테스트 후기 ㅋㅋ 1 file 유채꽃핀 58886 2023.11.17
일상 [전국좌표] 실 시 간 대 란 성 지 시 세 표 ㄷ ㄷ ㄷ ㄷ 성지투어 59154 2023.11.15
게임 나이트 크로우 200일 보상 쏠쏠합니다 1 file 거북이목 56561 2023.11.15
일상 데이터 통화 무제한으로 갈아탈만한 요금제 3가지 file 팰리스타 55126 2023.11.15
일상 MS 스토어 할인 되든데.. file 유채꽃핀 56234 2023.11.13
게임 뮤 모나크 괜찮은데? file 산리오 58093 2023.11.10
일상 해외여행 데이터로밍 1만원이면 충분히 쓸수있어요 file 팰리스타 60505 2023.11.07
일상 전국 3사 대란 가격 공지 [ 폴드5 플립5 S23 아이폰15 미친 가격 ] 성지투어 63803 2023.11.05
게임 어둠의 실력자가 되고 싶어서! 보상 또 챙겨줍니다 1 file 유채꽃핀 61508 2023.11.02
일상 1년간 한달 핸드폰 요금 100원 특가 file 팰리스타 57135 2023.11.02
게임 V4 4주년 이벤트 빵빵하군요 1 file 신한쏠 56918 2023.10.31
질문 전국 3사 대란 가격 공지 [ 폴드5 플립5 S23 아이폰15 미친 가격 ] 성지투어 47141 2023.10.30
일상 요즘 아레스 100일이라고 많이 보이든데 file 신한쏠 43823 2023.10.27
게임 어둠의 실력자가 되고 싶어서 게임 강추 1 file 산리오 41453 2023.10.27
게임 진격거 브레이브 오더 출시일 공개됐어요 1 file 거북이목 38803 2023.10.27
게임 요즘 좀 주시 중인 게임 file 나리타타 36068 2023.10.27
게임 뮤 모나크 상위 길드 들었더니 file 신한쏠 36673 2023.10.26
게임 어둠의 실력자가 되고 싶어서 오픈했어요 file Holdu 36245 2023.10.26
소식 전국 3사 대란 가격 공지 [ 폴드5 플립5 S23 아이폰14미친 가격 ] 성지투어 35992 2023.10.25
게임 진격의거인 브레이브 오더 50만 넘겼군요. file 신한쏠 35491 2023.10.25
게임 뮤 모나크 비밀던전도 있어서 file 신한쏠 31817 2023.10.25
1 3 - 5850