返回列表 上一主題 發帖

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

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-5 14:12 | 只看該作者

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

這裡的 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

  5. Function CDecHex(myh)
  6.     CDecHex = hex(myh)
  7. End Function

  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

  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

  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

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-8-5 21:49 | 只看該作者
Excel 有內建的function~
=HEX2BIN("FFFFFFFFFF")
=BIN2HEX(1111111111)

2003的話用前要加上增集:
Analysis ToolPak add-in
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
3#
發表於 2010-8-5 23:05 | 只看該作者
Excel 有內建的function~
=HEX2BIN("FFFFFFFFFF")
=BIN2HEX(1111111111)

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



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

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題