Excelを使って問題と解きたいのですが・・・

Excelを使って　次の問題を解く方法（関数など）ありますでしょうか？
よろしくお願いいたします。

問題
□の中に“+”もしくは“-”を入れ、計算式を完成させる。

(1)　　98□（-76）□（-54）□（-3）□（-21）＝100

(2)　　123□4□5□67□89＝100


よろしくお願いいたします。

No.1 ベストアンサー 回答者： k-family 回答日時： 2002/05/25 22:34

ＶＢＡでプログラムを作るのが一番簡単ですが、先日某所で入手したテクニックを使ってやってみました。

１）Ａ１、Ｃ１、Ｅ１、Ｇ１、Ｉ１に123、4、・・・と入れます。
２）１６行コピーします。
３）Ｂ１、Ｄ１、Ｆ１、Ｈ１に＋、＋、＋、＋を入れます。
４）Ｂ２、Ｄ２、Ｆ２、Ｈ２に＋、＋、＋、－を入れます。
５）１６行目までに＋と－の１６種類の組み合わせを全部入れます
６）Ｊ１～Ｊ１６に＝を入れます。（この列は意味がありません）
７）Ｋ１に「=A1&B1&C1&D1&E1&F1&G1&H1&I1」を入れます。
８）Ｋ１６までコピーします。Ｋ列に数式ができます。
９）挿入→名前→定義で名前の定義を出します。
10）上部の名前欄にEVAと入れます。
11）参照範囲に「=EVALUATE(Sheet1!K1)」と入れます。
12）OKを押します。
13）Ｌ１に=EVAと入力します。
14）Ｌ２～Ｌ１６にコピーします
15）Ｌ１～Ｌ１６に計算結果が出ています。

このEVALUATEが何者かはわかりません。ヘルプを探しても載っていませんでした。完全なパクリですので(^^;)

なお、上記はEXCEL2002で確認しましたが、他のバージョンについては未確認です。

この回答へのお礼

早速のご回答ありがとうございます。
試してみたのですが・・
３～５までの作業でミスがあるのでしょうか？
最終的に　答えを検出することができませんでした・・・
もう一度やりなおしてみます。
勉強になりました。
感謝しております。

また何かありましたらよろしくお願いいたします。

お礼日時：2002/05/25 23:38

No.3 回答者： nishi6 回答日時： 2002/05/25 23:29

マクロを作ってみました。

使う数値を縦に並べ、最後に指定する合計値を入力します。例えば、

A1= 123
A2= 4
A3= 5
A4= 67
A5= 89
A6=100

と入力して、A1:A6を選択した状態でツール→マクロ→マクロで『TashiHiki』を実行します。
解があれば、B、C、D列・・・に表示していきます。『1』が『+』、『-1』が『-』の意味です。
解は複数ありえますので、全て表示するようにしています。
解がなければ、『解はありません』のメッセージが出ます。

何個の数値まで計算できるか（実用的か）評価していません。10個は出ました。
ご参考に。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。 出てきたコードウインドウに下記マクロをコピーして貼り付けます。


ここから
↓
Sub TashiHiki()
　　Dim rg As Range 'セル
　　Dim NUM() As Integer '指定の数値
　　Dim fugo() As Single '数値に対する符号
　　Dim n As Integer, i As Integer '数値の個数、カウンタ
　　'指定の数値を読み込む。最後が演算の答え
　　n = Selection.Count
　　ReDim NUM(n) As Integer, fugo(n) As Single
　　For Each rg In Selection
　　　　i = i + 1
　　　　NUM(i) = rg.Value
　　Next

　　Dim k As Integer '使った数値のカウンタ
　　Dim Total As Long '計算してみた合計
　　Dim Col As Integer '列カウンタ
　　'演算パターンを作る
　　For i = 0 To (2 ^ (n - 1)) - 1
　　　　Total = 0
　　　　For k = 1 To (n - 1)
　　　　　　If (i And 2 ^ (k - 1)) > 0 Then
　　　　　　　　fugo(k) = 1 '加算する
　　　　　　　　Total = Total + NUM(k)
　　　　　　Else
　　　　　　　　fugo(k) = -1 '減算する
　　　　　　　　Total = Total - NUM(k)
　　　　　　End If
　　　　Next
　　　　'一致する組み合わせがあったら
　　　　If Total = NUM(n) Then
　　　　　　Col = Col + 1
　　　　　　For k = 1 To (n - 1)
　　　　　　　　Selection.Range("A1").Offset(k - 1, Col) = fugo(k)
　　　　　　Next
　　　　End If
　　Next

　　If Col = 0 Then
　　　　MsgBox "解はありません"
　　End If
End Sub

この回答へのお礼

ｎｉｓｉ６さん　こんばんは。
マクロまで作っていただき　ありがとうございます。
難しいですね・・
ですが、最近Ｅｘｃｅｌに興味を持っています。
簡単なマクロが精一杯の私ですが　がんばって挑戦してみます。
Ｅｘｃｅｌに対して　拒絶反応を起こしていたのですが
奥の深いソフトと、あせらず勉強してみます。
また何かありましたら　教えて下さい。
本当にありがとうございました。

お礼日時：2002/05/25 23:50

No.2 回答者： wolv 回答日時： 2002/05/25 22:44

あ，evaluateというのがあるのですね．

同様のことがvalue()でできないかな？と思って
試して，errorになりました．

それはさておき，

evaluate()は
文字列を数式と見なして計算する（評価する）という機能だと思います．
UNIXのshなどでもevalというコマンドがあったりします．

しかし，質問の問題は普通にがんばって解くほうが簡単な気がします．
例えば，(２)なら，
123+4+5+67+89を計算し，例えば118になったとしたら（ならないけど）
目的の数値より18多いから，その半分の9を，
引かなくちゃいけない所を足してしまった
のだとわかります．よって，

もし
和が118になるのなら，
4と5は引くことにするとちょうど100になりますね．

123+4+5+67+89の計算が面倒なので，実際に解くのはパスしときます．

(1)も同様に？，
98+76+54+3+21と100を比べて，いくつ引かなくちゃいけないのかわかれば，
比較的簡単に見つけられます．

この回答へのお礼

こんばんは。
ご回答ありがとうございます。
とりあえず　すべてを和にしてそのあと考えればいいのですね・・
ｗｏｌｖさんのやり方を教えていただき感謝いたします。
これからも使いたいと思います。
初心者の私に優しいご回答、ありがとうございました。

お礼日時：2002/05/25 23:43