ＸＯＲ早見表の件 ( ホームページ ) - 水平線の彼方へ

ＸＯＲ早見表の件

イメージ 3

新米さんが早見表なるものをｺﾒﾝﾄくださいました。

そのｺﾒﾝﾄをみて気付いたことを書きます。
（正直なんで気付かなかったんだ？？って感じですが。。。（笑））

ＸＯＲ　排他論理ＯＲ　の論理は

Result（結果）＝Ａ　ＸOR　Ｂ
としたとき、ビットの変化があったら１になり、変化がなければ０となる。
すなわち

ＡＢＲesult(結果)
0 0 0
0 1 1
1 0 1
1 1 0

ということになるのですが。。。（何回も書いてますね）
結果がすでに分かっていて
ＡかＢが分かっていれば、ＸＯＲでもう１つを求めることができるのですよね　（＾－＾；

Ａをもとめたくて、Ｂとその結果が分かっているなら

Ａ　＝　Ｂ　ＸＯＲ　Ｒesult（結果）
となりますね・・・・
きっと、新米さんもそれを承知していて、計算したのしょうが、
EXCELで計算させたいと思っても、EXCELが用意している関数では
ＸＯＲがなぜかない・・・（とおもう・・）

なので、作成してみました。
EXCEL２００３なので、今ので動くかは保障しませんが、動くんじゃないかな？？（＾－＾

自作したのはＸＯＲ_ＡＢという関数で
ツール→マクロ→Ｖisual Basic Editor でＶＢをひらき、
挿入→モジュールで白紙のモジュールを開いたところで
ソースをコピー＆ペーストして保存します。
ソースコードは仕事中の合間１時間くらいでざっと作ったので
16進文字列→１０進あたりのコードはぼろぼろですが、一応動きます。

使い方はエクセルのfxから関数を入れ込みます。
パラメータは２つで、それぞれ任意のセルを指定します。

例　セルに直接書く場合はこんな感じです。
以下の記載をセルＡ１に書きます。
　=　XOR_AB(B1,C1)
Ｂ１とＣ１に４桁までの１６進をそれぞれ入れると、
ＸＯＲした結果がＡ１のセルに表示されます。
たとえば　Ｂ１セルに　９００１を
Ｃ１セルに　１０１０　を代入すれば、結果がＡ１に　８０１１と表示されます。

さっと作ったので、イレギュラー処理をいれてません。。なので１６進を入れてくださいね・・♪
みなさんはもっとカッコよく作れると思いますので、参考程度で・・・
へんなことをしている
Function CHG_HEX16(XXX As String) As Integer　関数について軽く説明すると
文字列が１から９までの場合にはそのまま、で
大文字。小文字のＡからＦまでを１０から１５に変換して返却しています。
ASCBの関数では０は４８、１は４９という返り値となりますので、それを使用して
４８からその値を引いて、ＩＮＴタイプの０から９までを取得してます。
また、返り値でー１はエラーとしたのですが、上位モジュールで力つきて、判定してません。。＞＜；
まぁ関数電卓たたけば、いいんでしょうけど・・ね・・・（趣味ですね）
この関数できるとですねぇ・・
データもってきて、ＥＸＣＥＬにはりつけて、結果が９００１のアドレスを探すっていうような
マクロにも使えますが、それは各自で・・・・（＞。＜）ｖ
こんなので、どうでしょうね♪新米さん？♪
でわでわ・・・・

■ソース　この文章から下をコピーして貼り付けます。

Function XOR_AB(A As String, B As String) As String

Dim TMP_DATA_A As Long
Dim TMP_DATA_B As Long
Dim RESULT_DATA As Long

'10進INTEGERに変換
TMP_DATA_A = STRHEX_TO_INT(A)
TMP_DATA_B = STRHEX_TO_INT(B)

'XOR
RESULT_DATA = TMP_DATA_A Xor TMP_DATA_B

'これを16進文字列変換・・・
XOR_AB = Hex(RESULT_DATA)

End Function

Function STRHEX_TO_INT(A As String) As Long
Dim CNT As Integer
Dim SUM_A As Long
Dim TMP As String
Dim TMPDT As Long

'　Aの文字列は4文字まで
If Len(A) = 0 Or Len(A) > 4 Then GoTo STEP_END

For CNT = 1 To Len(A) Step 1
TMP = (Mid(A, Len(A) + 1 - CNT, 1))
TMPDT = CHG_HEX16(TMP)
If TMPDT = -1 Then
'EROR
STRHEX_TO_INT = -1
GoTo STEP_END
End If

Select Case CNT
Case 1
SUM_A = TMPDT
Case 2
SUM_A = SUM_A + 16 * TMPDT
Case 3
SUM_A = SUM_A + 16 * 16 * TMPDT
Case 4
SUM_A = SUM_A + 16 * 16 * 16 * TMPDT
End Select
Next CNT

STRHEX_TO_INT = SUM_A

STEP_END:

End Function

Function CHG_HEX16(XXX As String) As Integer
Dim RT As Integer
Dim TMPD As Integer

TMPD = AscB(XXX)
Select Case TMPD
'A
Case 65, 97
RT = 10
'B
Case 66, 98
RT = 11
'C
Case 67, 99
RT = 12
'D
Case 68, 100
RT = 13
'E
Case 69, 101
RT = 14
'F
Case 70, 102
RT = 15
Case Else
'　0　から　9
If (TMPD - 48) < 10 And (TMPD - 48) >= 0 Then
RT = TMPD - 48
Else
RT = -1
End If

End Select
CHG_HEX16 = RT
End Function