日: 2023年4月4日

今日は，エクセルで，キャラクターやフォントを作るための簡単なVBAをプロシャージャを作り，画像のよう
なシートを作成しました。上のますに，０か１をいれるとイメージの画像が作成でき，あわせてそのデータが
１６進数で表示されます。

下のますの，１６進数入力のセルに１６進数のデータをいれるとそれに応じて画像が表示されます。

このシートの作成にあたって，条件付き書式設定をし，関数を２つ作りました。上下のますの表示形式を文字
にしました。

作った関数は，０と１の入力から，二進数を作る関数です。それぞれセルを文字列として結合してるだけです。

Public Function moji_ketugou(Hani As Range) As String
　　Dim moji As String
　　Dim Buff As Range
　　moji = ""
　　For Each Buff In Hani
　　　　moji = moji & Buff.Value
　　Next Buff
　　moji_ketugou = moji
End Function

次の関数は，二進数の特定のビットを取り出す関数で，二つ目のますのセルに埋め込んであります。
C10　　　　　　　　　　C11　　　　　　　　　　　C12　　　　　　　　　　C13
= bit_toridasi($B11,1)・= bit_toridasi($B11,5)・= bit_toridasi($B11,7)・= bit_toridasi($B11
,7)・・・・・・・・・

Public Function bit_toridasi(moji As Range, keta As Integer) As String

   bit_toridasi = MidB(moji.Value, keta, 1)

End Function