16進法から10進法に変えたい　vba

解決済

質問者：IDUBKVIZDIXE
質問日時：2013/05/18 19:22
回答数：3件

Sub sinsuu()
MsgBox Val("f1")
End Sub

Val関数は、16進法から10進法に変換する関数ではないのでしょうか？
0が返ってきてしまいます。

F1を241に変換するには、どの関数を使うべきでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： tom04
回答日時：2013/05/18 21:37

こんばんは！

No.1さんが紹介してくださっているURLの通り
16進数表示の「F1」を10進数にする場合は

Sub sinsuu()
MsgBox CLng("&h" & "F1")
End Sub

といった感じでしょうかね！
仮にA1セルに入っている16進数の「文字列」を10進数で表示する場合は

Sub Sample1()
MsgBox CLng("&h" & Range("A1"))
End Sub

のようになると思います。

※　Val関数は「文字列」を「数値」として有効なデータを返すための関数！という説明がありますので、
「F1」は数値としては認識できないため「0」という表示になると思います。

仮に　Val("1F") だと「1」が返るはずです
「1F」を　「10ABC120」等に変えても頭の「10」までしか数値として認識できませんので、
表示されるのは「10」だけです。
途中に文字列がある場合その後の数値はすべて無視されてしまいます。m(_ _)m