Edited at

Spreadsheetsでも愛が生まれた

More than 3 years have passed since last update.

元ネタ

http://qiita.com/dongri/items/041ff3e7dde6c99beeb0

ブログにも投稿しています

http://ryoichi0102.hatenablog.com/entry/2016/05/11/003646


Spreadsheetsに書いてみた

https://docs.google.com/spreadsheet/ccc?key=1mDQSaiQcGYP3zR1ksbXZK1PURGKGgA7NWb1quF-qJRo&pubredirect=true

Excelでもできると思います。

dec2hex(code(A1))でUnicodeに変換して各文字をmidで1桁にバラします。

その後、hex2bin(E1,4)でビットに変換します。

(4は4桁で出力の意)

その後、ビット演算なのですが、これがツラかった。

=if(and(mid(J1,1,1)="1",mid(J2,1,1)="1"),"1","0")&

if(and(mid(J1,2,1)="1",mid(J2,2,1)="1"),"1","0")&
if(and(mid(J1,3,1)="1",mid(J2,3,1)="1"),"1","0")&
if(and(mid(J1,4,1)="1",mid(J2,4,1)="1"),"1","0")

このあたり。

もっと良いやり方があれば知りたい。

ここで折り返し地点を超えて、

bin2hex、各桁を連結して、char(hex2dec( ))

と戻してあげれば完成です。