Excel Maniacs

minmaxさんのDec2Bin

エクセルには１０進数を２進数に変換するDec2Binという関数が

あります。これはエクセル２００７ならば標準装備なのですが

古いエクセルではアドインの「分析ツール」を組み込まなければ

使えません。ちょっと不便です。それに変換できる１０進数の

上限が５１１までという制限があります。あまり、使い勝手が

よくありません。

　ところが、このブログの常連のminmaxさんが１０進数の１０２３まで

対応する関数を作ってくれました。「関数で解けますか？・・・

ナップサック問題解答例」のコメントの中にその関数があるのですが

このままでは埋もれてしまいそうです。そうなったら、あまりにも

もったいないので改めてここに紹介させて頂きます。

=TEXT(SUM(INT(MOD(十進数,2^ROW($1:$10))/2^(ROW($1:$10)-1))*10^(ROW($1:$10)-1)),"0000000000")

２進数に変換する１０進数を上式の赤文字の十進数のところに

入れて、Ctrl+Alt+Enterを同時に押します。配列数式です。

便利ですよ！！　(^O^)

*************************************************************************

minmaxさんのDec2Binを使って「10枚の領収書」の問題を解いてみました。

すっきりと出来ました。(^O^)

Q4_2009_with_MinMaxSan_DIc2Bin.lzhをダウンロード

関数で解けますか？・・・ナップサック問題解答例

　当初は総当たりの解答しか、用意していなかったんですが

ジョー３さんから、芸がないとのお叱りを受け急遽、別解を

用意しました。三四郎版は当初予定していたものと同じです。

エクセル版は循環参照を利用していますので

他のファイルを開かないで下さい。

三四郎版は圧縮しないと７７４KBですが、エクセル版は１６KBです。

receipt_sanshiro.lzhをダウンロード

Q4_kumapooh_Kaitei.lzhをダウンロード （Excel２００７　改訂版）

Q4_kumapooh_Kaitei_xls.lzhをダウンロード （Excel２０００－２００３改訂版）

※エクセル版はDec2Bin関数を使っています。Excel２００７ならば

そのまま動きますがExcel2000等ではアドイン「分析ツール」を

組み込む必要があります。

　「Excel２０００－２００３」用はエクセル２００７で保存し直しただけで

動作の検証はしていません(^^ゞ

******************************************************

エクセルの改訂版をアップしました。（2009/02/02）