新米さんが早見表なるものをｺﾒﾝﾄくださいました。
そのｺﾒﾝﾄをみて気付いたことを書きます。
（正直なんで気付かなかったんだ？？って感じですが。。。（笑））
ＸＯＲ 排他論理ＯＲ の論理は
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
|
コメント（7）
