[[20210909105916]]　『16進数の値が書かれた値をバイナリファイルに変換』（UT）　ページの最後に飛ぶ

『16進数の値が書かれた値をバイナリファイルに変換』（UT）

16進数の値が書かれた値を
バイナリファイルに変換（書き込む）方法を
ご存じの方いますか。

例えば下記のBセルの16進数の値を
バイナリファイルに書き込んだとして
バイナリエディタで見たときに
アスキー領域ではなく
ダンプ領域に16進数で表示されるように
2byteずつ書き込みたいのですが・・・

説明が分かりにくい場合下記のサイトの
ようなことをしたいのです。
https://qiita.com/int_main_void/items/439d75f6673e5db53d96

Aセル　　Bセル=DEC2HEX(A)
10進数 16進数

お手数おかけしますがアドバイスいただけると
たすかります。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

なんとなくつくってみた。
上位/下位が逆とかは、知りません。

 Sub てきとう()
    Dim b As Byte
    Dim r As Long
    Open ThisWorkbook.Path & "\" & "Test.bin" For Binary Access Write As #1
    For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        b = Int(Cells(r, "A") / 256)
        Put #1, , b
        b = Cells(r, "A") Mod 256
        Put #1, , b
    Next
    Close #1
 End Sub

（ひまつぶし） 2021/09/09(木) 11:37

助かります。参考にさせていただきます。
ありがとうございました。
（UT） 2021/09/09(木) 14:06

コメント返信：

[ 一覧(最新更新順) ]

[[20210909105916]] 『16進数の値が書かれた値をバイナリファイルに変換』（UT） ページの最後に飛ぶ

[[20210909105916]]　『16進数の値が書かれた値をバイナリファイルに変換』（UT）　ページの最後に飛ぶ