기존 엑셀 함수
DEC2BIN(값, 자리수) //자리수 : 빈자리를 0으로채워서 글자수 맞춰줌
| =DEC2BIN(100) 결과 1100100 =DEC2BIN(100,10) 결과 0001100100 |
* 512부터는 #NUM! 값이 나타남
모듈 사용
Alt + F11
메뉴 - 삽입 - 모듈 - 아래 코드 붙여넣기 - 저장
| Function decToBin(Dec As Long) As String Do decToBin = CStr(Dec Mod 2) & decToBin Dec = Dec \ 2 Loop Until Dec = 0 End Function Function binToDec(Bin As String) As Long For i = 1 To Len(Bin) binToDec = binToDec * 2 + CInt(Mid(Bin, i, 1)) Next End Function |
| =decToBin(512) 결과 1000000000 =decToBin(1000) 결과 1111101000 |
//출처 : https://mwultong.blogspot.com/2007/01/excel-vba-2-10-dec-to-bin-bin-to-dec.html