|
정 유진 wrote:
> 알려주세요! “글자 간격”
> 세금계산서 폼 용지 사각 칸에 금액을 표기해야하는데, 글자크기로는 안되고,,,,,,.
> 지정한 칸에 금액을 분할하여 한자 한자씩 표기 할 수 있는 방법 좀 알려주세요.
>
> 유진님 이런 질문은 묻고답하기 게시판에 해야 하는데요..
> 텍스트 박스를 한개씩 만들어 Mid 함수를 사용하시면 됩니다.
> 예] 1. =Mid([DATA],1,1) 첫째단어
> 2. =Mid([DATA],2,1) 둘째단어
> ...
> ...
먼저 답변에 감사드립니다.
답변해 주신 Mid로 사용 해보았으나, 제가 표기하려는 숫자 단위가 불규칙하기 때문에 Mid의 적용이 불가능 한 것 같습니다.
예) 세금계산서의 단위: 십억 단위, 표현하려는 데이터: 만 단위 - 천만 단위입니다.
수고스럽더라도 좀더 나은 방법이 있으시면 답변을 부탁드립니다.
==============[정유진님 글에 대한 답변입니다]==============
좀더 산뜻한 방법이 있을 지 모르지만 급하면 다음을 이용해 보세요
먼저 "금액" 란을 만들고(형식은 통화로)
다음 각 금액 단위별로 십억, 억, ... 일 까지 텍스트 상자를 만든 후
금액을 입력하면...(추가로 공란수도 계산하게끔..)
Private Sub 금액_AfterUpdate()
Dim m As Integer
Dim m1 As Integer
Dim m2 As String
Dim i As Integer
// 먼적 각 단위 금액란을 지웁니다.//
십억 = ""
억 = ""
천만 = ""
백만 = ""
십만 = ""
만 = ""
천 = ""
백 = ""
십 = ""
일 = ""
m1 = Len(금액)
For i = 0 To m1 - 1
m = 10 - i
m2 = Mid(금액, m1 - i, 1)
Select Case m
Case 1
십억 = m2
Case 2
억 = m2
Case 3
천만 = m2
Case 4
백만 = m2
Case 5
십만 = m2
Case 6
만 = m2
Case 7
천 = m2
Case 8
백 = m2
Case 9
십 = m2
Case 10
일 = m2
End Select
Next i
공란수 = m - 1
End Sub
|
|