指定文字から、空白までを16進数→10進数に変換する関数

質問

エクセルで、A1セルに下記が記載されています。
「タイトルテスト#7BC ☆☆☆」
この文字列で、7BCだけを抽出し、さらに10進数に変換してB1へ出力したいと考えています。

16進数の前には必ず#がついており、最後には空白があります。
♯から空白までの文字を10進数に変換する関数を調べたのですが、私には分かりませんでした。
どなたかご教授お願いいたします。

回答No.3

kmetu · ベストアンサー

> 下記のように#の前にスペースがあった場合、エラーとなってしまうのですが、何か良い方法はないでしょうか

=HEX2DEC(MID(A1,FIND("#",A1)+1,FIND(" ",A1,FIND("#",A1))-FIND("#",A1)-1))

＃以降のスペースを探すようにしました。
#から次のスペースまでの間をとりだして10進数に変換します。

回答No.5

某HN クロメート(Chromate)（@CoalTar）

#1です。
＞下記のように#の前にスペースがあった場合、
＞エラーとなってしまうのですが、何か良い方法はないでしょうか。
解決策は回答されていますが、16進数3桁限定をまず考えてみては？
=HEX2DEC(MID(A1,FIND("#",A1)+1,3))

回答No.4

imogasi

答えは既に出ていると思うが、式が長くなり、考えをまとめにくいのと、１歩づつ確認して、式を組み立てて、進めるために下記を勧めたい。
ーー
Ａ１からＥ１
タイトルテスト #7BC ☆☆☆」 9 13 7BC 1980
Ｂ１は　＃の位置を見つける　=FIND("#",A1)　　で９－－＞確認してＯＫ
Ｃ１は　＃以後の初出スペース　=FIND(" ",MID(A1,B1+1,LEN(A1)-B1))+B1　で１３－－＞確認してＯＫ
Ｄ１は　７ＢＣを抜き出し
=MID(A1,B1+1,FIND(" ",MID(A1,B1+1,LEN(A1)-B1))+B1-B1-1)
結果７ＢＣ－－＞確認してＯＫ
Ｅ１は　１０進化　=HEX2DEC(D1)　結果　１９８０
ーーー
Ｅ１かえら逆順に順にセル番地になっているところへ左のセルの
式で置き戻していく。
=HEX2DEX(MID(A1,B1+1,FIND(" ",MID(A1,B1+1,LEN(A1)-B1))+B1-B1-1)）
B1の式は（作業列として使い）戻さないほうが良いと思うが。
ーー
検算
=7*16^2+11*16^1+12ーー＞１９８０

ーー

回答No.2

kmetu

=HEX2DEC(MID(A1,FIND("#",A1)+1,FIND(" ",A1)-FIND("#",A1)-1))

でいかがでしょう

お礼

ご回答ありがとうございます。
返事がおそくなってしまい申し訳ございません。
下記のように#の前にスペースがあった場合、エラーとなってしまうのですが、何か良い方法はないでしょうか。

「タイトル テスト#7BC ☆☆☆」

回答No.1

某HN クロメート(Chromate)（@CoalTar）

ツール アドイン [レ]分析ツール
=HEX2DEC(MID(A1,FIND("#",A1)+1,FIND(" ",A1)-FIND("#",A1)-1))
エラー処理はしていません

お礼

ご回答ありがとうございます。
返事がおそくなってしまい申し訳ございません。
下記のように#の前にスペースがあった場合、エラーとなってしまうのですが、何か良い方法はないでしょうか。

「タイトル テスト#7BC ☆☆☆」