[分享] 用 vba 寫 16 進制到 2 進制 function

ivanyung

這裡的 Chexdec 和 cdechex 基本上是用了內置功能
寫得不好, 勿見笑.

說明:
Chexdec 16 轉 10
Cdechex 10 轉 16
chexbin 16 轉 2
cbinhex 2 轉 16
至於cbinh 是 cbinhex 的專用 function

CbinH 是內部使用 function

1. Function CHexDec(myh)
   
2.     CHexDec = CSng("&H" & myh)
   
3. End Function
   
4. 
   
5. Function CDecHex(myh)
   
6.     CDecHex = hex(myh)
   
7. End Function
   
8. 
   
9. Function CHexBin(myStr)
   
10.     Dim tmpPos As String
    
11.     Dim tmpStr As String
    
12.     Dim i As Integer
    
13.    
    
14.     myStr = UCase(myStr)
    
15.     For i = 1 To Len(myStr)
    
16.         tmpPos = Mid(myStr, i, 1)
    
17.         
    
18.         Select Case tmpPos
    
19.             Case 0
    
20.             tmpStr = tmpStr & "0000"
    
21.             Case 1
    
22.             tmpStr = tmpStr & "0001"
    
23.             Case 2
    
24.             tmpStr = tmpStr & "0010"
    
25.             Case 3
    
26.             tmpStr = tmpStr & "0011"
    
27.             Case 4
    
28.             tmpStr = tmpStr & "0100"
    
29.             Case 5
    
30.             tmpStr = tmpStr & "0101"
    
31.             Case 6
    
32.             tmpStr = tmpStr & "0110"
    
33.             Case 7
    
34.             tmpStr = tmpStr & "0111"
    
35.             Case 8
    
36.             tmpStr = tmpStr & "1000"
    
37.             Case 9
    
38.             tmpStr = tmpStr & "1001"
    
39.             Case "A"
    
40.             tmpStr = tmpStr & "1010"
    
41.             Case "B"
    
42.             tmpStr = tmpStr & "1011"
    
43.             Case "C"
    
44.             tmpStr = tmpStr & "1100"
    
45.             Case "D"
    
46.             tmpStr = tmpStr & "1101"
    
47.             Case "E"
    
48.             tmpStr = tmpStr & "1110"
    
49.             Case "F"
    
50.             tmpStr = tmpStr & "1111"
    
51.         End Select
    
52.     Next
    
53.    
    
54.     CHexBin = tmpStr
    
55. End Function
    
56. 
    
57. Function CbinHex(myStr)
    
58.    
    
59.     Select Case Len(myStr) Mod 4
    
60.         Case 1
    
61.             myStr = "000" & myStr
    
62.         Case 2
    
63.             myStr = "00" & myStr
    
64.         Case 3
    
65.             myStr = "0" & myStr
    
66.         Case Else
    
67.             myStr = myStr
    
68.     End Select
    
69.    
    
70.     Dim tmpStr As String
    
71.     Dim i
    
72.    
    
73.     For i = 1 To (Len(myStr) / 4)
    
74.         tmpStr = tmpStr & CBinH(Mid(myStr, (i - 1) * 4 + 1, 4))
    
75.                
    
76.     Next
    
77.     CbinHex = tmpStr
    
78. End Function
    
79. 
    
80. Private Function CBinH(myStr)
    
81.     Dim tmpStr As String
    
82.         
    
83.         Select Case myStr
    
84.             Case "0000"
    
85.             tmpStr = 0
    
86.             Case "0001"
    
87.             tmpStr = 1
    
88.             Case "0010"
    
89.             tmpStr = 2
    
90.             Case "0011"
    
91.             tmpStr = 3
    
92.             Case "0100"
    
93.             tmpStr = 4
    
94.             Case "0101"
    
95.             tmpStr = 5
    
96.             Case "0110"
    
97.             tmpStr = 6
    
98.             Case "0111"
    
99.             tmpStr = 7
    
100.             Case "1000"
     
101.             tmpStr = 8
     
102.             Case "1001"
     
103.             tmpStr = 9
     
104.             Case "1010"
     
105.             tmpStr = "A"
     
106.             Case "1011"
     
107.             tmpStr = "B"
     
108.             Case "1100"
     
109.             tmpStr = "C"
     
110.             Case "1101"
     
111.             tmpStr = "D"
     
112.             Case "1110"
     
113.             tmpStr = "E"
     
114.             Case "1111"
     
115.             tmpStr = "F"
     
116.         End Select
     
117.    
     
118.     CBinH = tmpStr
     
119. End Function

複製代碼

kimbal

Excel 有內建的function~
=HEX2BIN("FFFFFFFFFF")
=BIN2HEX(1111111111)

2003的話用前要加上增集:
Analysis ToolPak add-in

ivanyung

Excel 有內建的function~
=HEX2BIN("FFFFFFFFFF")
=BIN2HEX(1111111111)

2003的話用前要加上增集:
An ...
kimbal 發表於 2010-8-5 21:49

    謝謝，現在才知道增益集有這個功能。。。