返回列表 上一主題 發帖

[發問] 十六進制轉十進制

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-6 21:31 | 只看該作者

[發問] 十六進制轉十進制

請問各位前輩

我用一個變數 iID 代表 cells(x,2) = 0x080150F4
利用Mid函數抓080150F4 要將其轉成10進制

   Dim  x as Integer
   Dim iID as Long
   iID = CSng("&H" & Mid(Cells(x, 2), 3))

這樣的結果出現型態錯誤

想請問一下，應該怎麼做才對
因為上面轉換方式是我google來的
但是我並不太懂CSng ("&H"  ==> 這是指什麼??
每次做型態轉換時都必須這樣做嗎??

煩請前輩解惑~謝謝
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-6 22:27 | 只看該作者
回復 1# a703130

Dim  x as Integer
Dim iID as Long
iID = CLng("&H" & Mid(Cells(x, 2), 3))

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
251  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-3-6 22:33 | 只看該作者
回復 1# a703130

工作表工程函數中有此函數
    iID = Application.WorksheetFunction.Hex2Dec(Mid(Cells(x, 2), 3))
學海無涯_不恥下問

TOP

a703130

帖子
97 
主題
32 
精華
0 
積分
167 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-22 
最後登錄
2017-8-16 
4#
發表於 2012-3-7 10:36 | 只看該作者
謝謝各位前輩~經過嘗試後都可以運作

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題