今日は,エクセルで,キャラクターやフォントを作るための簡単なVBAをプロシャージャを作り,画像のよう
なシートを作成しました。上のますに,0か1をいれるとイメージの画像が作成でき,あわせてそのデータが
16進数で表示されます。
下のますの,16進数入力のセルに16進数のデータをいれるとそれに応じて画像が表示されます。
このシートの作成にあたって,条件付き書式設定をし,関数を2つ作りました。上下のますの表示形式を文字
にしました。
作った関数は,0と1の入力から,二進数を作る関数です。それぞれセルを文字列として結合してるだけです。
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