글 수 65
통화 쉽게 파악하기.. 서식
$#"경" ####"조" ####"억" ####"만" ###0"원"
단위가 적을 경우
# #### ####"만" ###0"원"
---------------------------------------------------
숫자를 한글 또는 한자로 바꾸기
출처 : http://ozjin.com/jboard/?p=detail&code=Tip&id=7&page=1
1. numberstring 함수를 이용하세요.
=numberstring(154,1) 이라고 입력하면 '일백오십사'라고 표시됩니다. =numberstring(154,2) 이라고 입력하면 '壹百伍拾四'라고 표시됩니다. =numberstring(154,3) 이라고 입력하면 '일오사'라고 표시됩니다.
2. 154 라고 적힐 셀을 선택하고 사용자 정의 서식을 [DBNUM1] 이라고 입력하면 '一百五十四'이라고 표시됩니다. [DBNUM2] 이라고 입력하면 '壹百伍拾四'이라고 표시됩니다. [DBNUM3] 이라고 입력하면 '百5十4'이라고 표시됩니다. [DBNUM4] 이라고 입력하면 '일백오십사'이라고 표시됩니다.
3. 숫자를 한자로 바꾸는 등 좀더 변형된 형태를 원하시명, "Solution 강좌 4 : 숫자를 한자로 바꾸기"를 참고하셔서 코드를 수정해 주십시오.
http://ozjin.com/jboard/?p=detail&code=solution&id=4&page=2
---------------------------------------------------
유저폼에서 서식 적용하기
Sheet1.매출수량레이블.Caption = Format(Round(매출표.Range("A4").Value), "#,###")
------------------------------
Format 함수를 이용해보세요.
ex)
textbox1.text = format(myvalue,"#,###")
값을 계산할 경우에도 마찬가지로 format 함수를 이용하여 계산하셔야 합니다.
왜냐하면 textbox 에 있는 숫자는 무늬만 숫자이고 실제로는 문자이기 때문입니다.
myvalue - format(textbox1.text,"0")
---------------------------------------------------
'날짜형식의 데이터에서 달이나 일만 뽑아내고 싶을때
Range("거래명세표!B8").Select
ActiveCell.FormulaR1C1 = Format(거래명세폼일자텍스트, "m")
Range("거래명세표!C8").Select
ActiveCell.FormulaR1C1 = Format(거래명세폼일자텍스트, "d")
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
$#"경" ####"조" ####"억" ####"만" ###0"원"
단위가 적을 경우
# #### ####"만" ###0"원"
---------------------------------------------------
숫자를 한글 또는 한자로 바꾸기
출처 : http://ozjin.com/jboard/?p=detail&code=Tip&id=7&page=1
1. numberstring 함수를 이용하세요.
=numberstring(154,1) 이라고 입력하면 '일백오십사'라고 표시됩니다. =numberstring(154,2) 이라고 입력하면 '壹百伍拾四'라고 표시됩니다. =numberstring(154,3) 이라고 입력하면 '일오사'라고 표시됩니다.
2. 154 라고 적힐 셀을 선택하고 사용자 정의 서식을 [DBNUM1] 이라고 입력하면 '一百五十四'이라고 표시됩니다. [DBNUM2] 이라고 입력하면 '壹百伍拾四'이라고 표시됩니다. [DBNUM3] 이라고 입력하면 '百5十4'이라고 표시됩니다. [DBNUM4] 이라고 입력하면 '일백오십사'이라고 표시됩니다.
3. 숫자를 한자로 바꾸는 등 좀더 변형된 형태를 원하시명, "Solution 강좌 4 : 숫자를 한자로 바꾸기"를 참고하셔서 코드를 수정해 주십시오.
http://ozjin.com/jboard/?p=detail&code=solution&id=4&page=2
---------------------------------------------------
유저폼에서 서식 적용하기
Sheet1.매출수량레이블.Caption = Format(Round(매출표.Range("A4").Value), "#,###")
------------------------------
Format 함수를 이용해보세요.
ex)
textbox1.text = format(myvalue,"#,###")
값을 계산할 경우에도 마찬가지로 format 함수를 이용하여 계산하셔야 합니다.
왜냐하면 textbox 에 있는 숫자는 무늬만 숫자이고 실제로는 문자이기 때문입니다.
myvalue - format(textbox1.text,"0")
---------------------------------------------------
'날짜형식의 데이터에서 달이나 일만 뽑아내고 싶을때
Range("거래명세표!B8").Select
ActiveCell.FormulaR1C1 = Format(거래명세폼일자텍스트, "m")
Range("거래명세표!C8").Select
ActiveCell.FormulaR1C1 = Format(거래명세폼일자텍스트, "d")
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------