엑셀 VBA 내장함수 - egsel VBA naejanghamsu

[땡큐엑셀vba & 엑셀매크로] 내장함수 format

'작성자:땡큐엑셀vba '내장함수 : Format '구문 : Format(expression) ' '이번 시간에는 내장함수 Format에 대해 알아보겠습니다. 'Format은 표현형식을 변경할때 사용하는 함수입니다. '예를 들어 Format(1234,"#,#.000")는 1,234.000으로 표현됩니다. '매개변수 'expression : 문장 '[기본예제] Sub 내장함수_Format1() Dim arr구조체 MsgBox "날짜와 시간을 다양하게 출력합니다.", vbOKOnly, "땡큐엑셀vba" 시작시간 = Timer '시작시간의 값을 저장합니다. Cells.Clear Range("A1").Select 오늘날짜와시간 = Now() Cells(1, "A") = Format(오늘날짜와시간, "yyyy-mm-dd") '2017-06-07 Cells(2, "A") = Format(오늘날짜와시간, "yy-mm-dd") '17-06-07 Cells(3, "A") = Format(오늘날짜와시간, "long date") '2017년 6월 7일 수요일 Cells(4, "A") = Format(오늘날짜와시간, "short date") '2017-06-07 Cells(5, "A") = Format(오늘날짜와시간, "yyyy-mm-dd hh:mm:Ss") '2017-06-07 11:32 Cells(6, "A") = Format(오늘날짜와시간, "long time") '오전 11:32:40 Cells(7, "A") = Format(오늘날짜와시간, "short time") '11:32 Cells(8, "A") = Format(오늘날짜와시간, "yyyy-mm-dd hh:mm:ss ampm") '2017-06-07 11:32:40 오전 Cells(9, "A") = Format(오늘날짜와시간, "dddd, mmm d yyyy") 'Wednesday,Jun 7 2017 'yyyy : 년 'mm : 월(01~12) 'dd : 일(01~31) 'Hh : 시간(00~23) 'Ss : 초(00~59) 'dddd : 요일(Sunday ~ Saturday) 'ddd : 요일(Sun ~ Sat) 'd : 일(1~31) 'mmm : 월(영문) 종료시간 = Timer '종료시간의 값을 저장합니다. 총수행시간 = 종료시간 - 시작시간 MsgBox "총수행시간(" & 총수행시간 & ")완료되었습니다.", vbOKOnly, "땡큐엑셀vba" End Sub '배운 내용을 응용해 볼까요? ' ' '[응용예제] Sub 내장함수_Format2() MsgBox "숫자를 다양하게 출력합니다.", vbOKOnly, "땡큐엑셀vba" 프로그램시작 = Timer Cells.Clear Range("A1").Select i숫자 = 0.12 Cells(1, "A") = i숫자 '0.12 Cells(2, "A") = Format(i숫자, "#.0") '0.1 Cells(3, "A") = Format(i숫자, "#.00") '0.12 Cells(4, "A") = Format(i숫자, "#,#.00") '0.12 Cells(5, "A") = Format(i숫자, "0,0.000") '0.12 Cells(6, "A") = Format(i숫자, "000000000,0.000") '0,000,000,000.120 Cells(7, "A") = Format(i숫자, "percent") '12.00% Cells(8, "A") = Format(i숫자, "currency") '\0 i숫자 = 1234567.12 Cells(11, "A") = i숫자 '1234567.12 Cells(12, "A") = Format(i숫자, "#.0") '1234567.1 Cells(13, "A") = Format(i숫자, "#.00") '1234567.12 Cells(14, "A") = Format(i숫자, "#,#.00") '1234567.12 Cells(15, "A") = Format(i숫자, "0,0.000") '1234567.12 Cells(16, "A") = Format(i숫자, "000000000,0.000") '0,001,234,567.120 Cells(17, "A") = Format(i숫자, "percent") '123456712% Cells(18, "A") = Format(i숫자, "currency") '\1,234,567 '# : 숫자 '0 : 숫자(갯수만큼 0으로 채움) 'percent : 백분율 ', : 천단위마다 콤마 표시 'currency : 통화기호 프로그램종료 = Timer 총수행시간 = 프로그램종료 - 프로그램시작 MsgBox "총수행시간(" & 총수행시간 & ")완료되었습니다.", vbOKOnly, "땡큐엑셀vba" End Sub

첨부파일

내장함수-표시형식의변경(Format)-땡큐엑셀vba.xlsm

파일 다운로드