羊と山羊が草を食っている。百匹以上
範囲を決めて数えてみた
そして、羊の割合を計算した
=round(羊の数/全体数,2)
だが、結果を見て気になった
同じ結果の%となる組み合わせが・・・
外にもあるはず・・・・とね、、
同じ%値となり
全体数は20以上で最小の
羊の数 と 全体数 を見つけて下さい
勿論、テスト値しかないなら同じでいい。 (ジョー3さん)
解答用参考ファイル:Q177をダウンロード
**********************************************************************************
尚、解答締め切りは09/22(日)の午後8時の予定です。状況によっては
変更される可能性があります。
また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を
書き込むことはご遠慮ください。
********************************************************************************
回答は作ったけど
ワンセルで答え一発というわけには
いきません。
整数値の問題は数え上げになってしまいます。(^^;)
投稿情報: kumapooh | 2013年9 月16日 (月曜日) 午後 05時52分
>ワンセルで答え一発というわけには
>いきません。
一応、、ワンセル・・・心配はあるが、、、少数って・・・怖い。から、
投稿情報: ジョー3 | 2013年9 月16日 (月曜日) 午後 07時07分
一応、、、取り敢えず、、、書くだけ書いてみました
>ワンセルで
ええっ、、、1セル、、、
=羊の数は?+全体の数は?
この2セルではないのですか
2セルの合計でいいのでしたら、、、2桁で
2桁って、、、10~99と範囲が広い
投稿情報: からくち | 2013年9 月16日 (月曜日) 午後 08時25分
>この2セルではないのですか
あはは、、、、どもども、、、
>2セルの合計でいいのでしたら、、、2桁で
わたしも、一応、、、二桁だが、、、そんなに短くない。
・・・・
2セル合わせて、六種の関数、二種は二回ずつ、、・・・も、使ってるから、、、
投稿情報: ジョー3 | 2013年9 月16日 (月曜日) 午後 08時37分
なんだか、良く分からない上に頭が痛いから明日以降にチャレンジ^^
投稿情報: y sakuda | 2013年9 月16日 (月曜日) 午後 08時38分
取り敢えず書いてみた式、、、間違い発見
と言うか、、、
>全体数は20以上で
見落としていました
羊・・・7
全体・・・34
割合・・・21%
この時わたしの式では
羊・・・7
全体・・・33
割合・・・21%
となり、よしと思っていたのですが、、、
20以下も出てしまう、、、
て言うか、、、考慮していないのだから当たり前
どちらにしても何の面白みも無いので、、、
書き直し、、、
投稿情報: からくち | 2013年9 月16日 (月曜日) 午後 09時30分
>>全体数は20以上で
>見落としていました
わかりにくい・・・・問題・・・・
・・・・・・・・・・・・
だったのかも、、やはり。
投稿情報: ジョー3 | 2013年9 月16日 (月曜日) 午後 10時26分
えーっ?!
>全体数は20以上で「最小の」
という条件があるのに作業セルなしですか~?!
凄すぎます。信じられない!!
(_ _。)/~~
投稿情報: kumapooh | 2013年9 月17日 (火曜日) 午前 05時57分
すみません。
ジョー3さんの以下のコメントを
スパムと一緒に削除してしまいました。m(__)m
******************************
>凄すぎます。信じられない!!
わたしのは、見落としがあるかも知れませんが、、
ここのみなさん、、、そのうち、、・・・・・・
きっと、、、色々な手で、、、
コメント投稿者名: ジョー3
コメント投稿者のメールアドレス: (通知されていません)
投稿情報: kumapooh | 2013年9 月17日 (火曜日) 午前 09時36分
>スパムと一緒に削除してしまいました。m(__)m
えーーーースパムが、、、あるんですか??
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午前 10時01分
C6,C7 同じ式って条件かな?
投稿情報: y sakuda | 2013年9 月17日 (火曜日) 午前 11時20分
>C6,C7 同じ式って条件かな?
あ、、、すみません・・・違います。
片方が分かれば、、もう一つは簡単でしょうから・・・・
実質、、、総数が、、分かればそれで終わりですから、、、別式で良いです。
あ、、、羊から追っていっても良いですけど・・・・ね、、、
わたしは、総数からいきましたけど、、、
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 12時00分
>>スパムと一緒に削除してしまいました。m(__)m
>えーーーースパムが、、、あるんですか??
いやになるほど、たくさんあります。
フィルターに引っかかっているのが
1日に4~500通あります。
フィルターに引っかからないのが10から20通。
こまめに削除しているのですが・・・
>えーーーースパムが、、、あるんですか??
それでは削除しないでしばらく残しておきます。
左側の「最近のコメント」をご覧下さい。(`ヘ´) プンプン。
投稿情報: kumapooh | 2013年9 月17日 (火曜日) 午後 04時47分
>それでは削除しないでしばらく残しておきます。
>左側の「最近のコメント」をご覧下さい。(`ヘ´) プンプン。
くまぷーさん、、有名になった証拠かなーー・・・だと、半分嬉しい?
それとも、自動で送られてるの??だと、、、嬉しくない。??
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 04時54分
この問題は、、、思ったより面倒ですね
合計:羊
31:29
32:30
33:31
34:32
35:33
36:34
これ全て、、、94%
ROUNDの桁数2がクセモノ
94%と出た時、、、
31:29を表示出来ないと、、、
投稿情報: からくち | 2013年9 月17日 (火曜日) 午後 06時15分
>この問題は、、、思ったより面倒ですね
そう言って頂けると、、、嬉しいです。
実は、問題を思いついてから、、、1案=かなり失敗2案=一寸だけ失敗。
きのう、、あれ??おととい??、、ようやく、、、いいかもの、、案が出来た。
って、ことで、、3,4日かかってるのだ。だから、、、すぐできられると・・・
がっくりなのだ。・・・った。
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 06時24分
気になったので、、、
>94%と出た時、、、
>31:29を表示出来ないと、、、
あーーよかった、、、なってる。なってる。
これ、以前の分数がらみの問題の時
いつか・・・・とは、、、思ってた。原案。
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 06時27分
>>それでは削除しないでしばらく残しておきます。
>>左側の「最近のコメント」をご覧下さい。(`ヘ´) プンプン。
>くまぷーさん、、有名になった証拠かなーー・・・だと、半分嬉しい?
>それとも、自動で送られてるの??だと、、、嬉しくない。??
全然嬉しくないです。
全く腹立たしい限りです。(ー_ーメ)
投稿情報: kumapooh | 2013年9 月17日 (火曜日) 午後 06時37分
>全く腹立たしい限りです。(ー_ーメ)
むむーーー、、、だと、・・・感謝感謝・・・・苦労かけてます。
で、この問題、・・・・・・・・・・ほとんど見てないかもねーーーー
niさんーーーー
minさーーん
む印さーーん
・・・・・・・・・・・・・・
みなさーーん、、、
・・・・・・・・・・・・・・
みてちょうだい。
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 06時48分
◆久しぶりに見たら「第77回」これから、考えます
投稿情報: maron | 2013年9 月17日 (火曜日) 午後 09時14分
>◆久しぶりに見たら「第77回」これから、考えます
あはは、、、
ひさしぶり・・・・・そそ、、、よろしくね、、、、
77回・・・・・nono、、、177なのよん、、、
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 09時25分
多分あってるんだと思うけど、長い。ちゃんと数えてないけど、合計で110くらい。
からくちさんのコメントにもあるけど、本当に正解だしているかどうかチェックするのがすごく難しいですね。
投稿情報: y sakuda | 2013年9 月17日 (火曜日) 午後 10時02分
最初の、、失敗作は・・・150ぜんごだったかなーーーー
でも、、、いまの、、、良いかもの・・・は、、、
86ぐらいです、、、羊+総数で、,,,
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 10時23分
>86ぐらいです、、、羊+総数で、,,,
で、71+15でぐらいすが、、、間違ってたら、、、ご免なさい。
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 10時47分
>86ぐらいです、、、羊+総数で、,,,
>で、71+15でぐらいすが
ああ、、、
総数71と羊15でした、、、逆でした。ねます。
投稿情報: ジョー3 | 2013年9 月17日 (火曜日) 午後 11時06分
>当に正解だしているかどうかチェックするのがすごく難しい
下のようになるかと・・・
% ---- 羊 ---- 山羊 ---- 全体
0 ---- 0 ---- 20 ---- 20
0.01 ---- 2 ---- 18 ---- 20
0.02 ---- 1 ---- 40 ---- 41
0.03 ---- 1 ---- 28 ---- 29
0.04 ---- 1 ---- 22 ---- 23
0.05 ---- 1 ---- 19 ---- 20
0.06 ---- 2 ---- 29 ---- 31
0.07 ---- 2 ---- 25 ---- 27
0.08 ---- 2 ---- 22 ---- 24
0.09 ---- 2 ---- 21 ---- 23
0.1 ---- 2 ---- 18 ---- 20
0.11 ---- 3 ---- 24 ---- 27
0.12 ---- 3 ---- 22 ---- 25
0.13 ---- 3 ---- 20 ---- 23
0.14 ---- 3 ---- 18 ---- 21
0.15 ---- 3 ---- 17 ---- 20
0.16 ---- 4 ---- 21 ---- 25
0.17 ---- 4 ---- 19 ---- 23
0.18 ---- 4 ---- 18 ---- 22
0.19 ---- 4 ---- 17 ---- 21
0.2 ---- 4 ---- 16 ---- 20
0.21 ---- 5 ---- 19 ---- 24
0.22 ---- 5 ---- 18 ---- 23
0.23 ---- 5 ---- 17 ---- 22
0.24 ---- 5 ---- 16 ---- 21
0.25 ---- 5 ---- 15 ---- 20
0.26 ---- 6 ---- 17 ---- 23
0.27 ---- 6 ---- 16 ---- 22
0.28 ---- 7 ---- 18 ---- 25
0.29 ---- 6 ---- 15 ---- 21
0.3 ---- 6 ---- 14 ---- 20
0.31 ---- 8 ---- 18 ---- 26
0.32 ---- 7 ---- 15 ---- 22
0.33 ---- 7 ---- 14 ---- 21
0.34 ---- 10 ---- 19 ---- 29
0.35 ---- 7 ---- 13 ---- 20
0.36 ---- 8 ---- 14 ---- 22
0.37 ---- 10 ---- 17 ---- 27
0.38 ---- 8 ---- 13 ---- 21
0.39 ---- 9 ---- 14 ---- 23
0.4 ---- 8 ---- 12 ---- 20
0.41 ---- 9 ---- 13 ---- 22
0.42 ---- 10 ---- 14 ---- 24
0.43 ---- 9 ---- 12 ---- 21
0.44 ---- 11 ---- 14 ---- 25
0.45 ---- 9 ---- 11 ---- 20
0.46 ---- 11 ---- 13 ---- 24
0.47 ---- 14 ---- 16 ---- 30
0.48 ---- 10 ---- 11 ---- 21
0.49 ---- 17 ---- 18 ---- 35
0.5 ---- 10 ---- 10 ---- 20
0.51 ---- 18 ---- 17 ---- 35
0.52 ---- 11 ---- 10 ---- 21
0.53 ---- 16 ---- 14 ---- 30
0.54 ---- 13 ---- 11 ---- 24
0.55 ---- 11 ---- 9 ---- 20
0.56 ---- 14 ---- 11 ---- 25
0.57 ---- 12 ---- 9 ---- 21
0.58 ---- 14 ---- 10 ---- 24
0.59 ---- 13 ---- 9 ---- 22
0.6 ---- 12 ---- 8 ---- 20
0.61 ---- 14 ---- 9 ---- 23
0.62 ---- 13 ---- 8 ---- 21
0.63 ---- 15 ---- 9 ---- 24
0.64 ---- 14 ---- 8 ---- 22
0.65 ---- 13 ---- 7 ---- 20
0.66 ---- 19 ---- 10 ---- 29
0.67 ---- 14 ---- 7 ---- 21
0.68 ---- 15 ---- 7 ---- 22
0.69 ---- 18 ---- 8 ---- 26
0.7 ---- 14 ---- 6 ---- 20
0.71 ---- 15 ---- 6 ---- 21
0.72 ---- 18 ---- 7 ---- 25
0.73 ---- 16 ---- 6 ---- 22
0.74 ---- 17 ---- 6 ---- 23
0.75 ---- 15 ---- 5 ---- 20
0.76 ---- 16 ---- 5 ---- 21
0.77 ---- 17 ---- 5 ---- 22
0.78 ---- 18 ---- 5 ---- 23
0.79 ---- 19 ---- 5 ---- 24
0.8 ---- 16 ---- 4 ---- 20
0.81 ---- 17 ---- 4 ---- 21
0.82 ---- 18 ---- 4 ---- 22
0.83 ---- 19 ---- 4 ---- 23
0.84 ---- 21 ---- 4 ---- 25
0.85 ---- 17 ---- 3 ---- 20
0.86 ---- 18 ---- 3 ---- 21
0.87 ---- 20 ---- 3 ---- 23
0.88 ---- 21 ---- 3 ---- 24
0.89 ---- 24 ---- 3 ---- 27
0.9 ---- 18 ---- 2 ---- 20
0.91 ---- 20 ---- 2 ---- 22
0.92 ---- 22 ---- 2 ---- 24
0.93 ---- 25 ---- 2 ---- 27
0.94 ---- 31 ---- 2 ---- 33
0.95 ---- 19 ---- 1 ---- 20
0.96 ---- 22 ---- 1 ---- 23
0.97 ---- 28 ---- 1 ---- 29
0.98 ---- 40 ---- 1 ---- 41
0.99 ---- 66 ---- 1 ---- 67
1 ---- 20 ---- 0 ---- 20
投稿情報: kumapooh | 2013年9 月17日 (火曜日) 午後 11時33分
失礼ながら、↑98%のところが違う。(0.98、39、1、40)
他はまだ未確認ですが・・・・・
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午前 12時04分
94もダメ。
やっぱり何かまともに作らないとダメみたいですね。
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午前 12時07分
くまぷーさんのテーブル
0.01---1---66---67
0.09---2---20---22
0.94---29---2---31
0.98---39---1---40
私のプログラムが正しければ、この4か所違いますね。
参考まで。
プログラム自体やっつけ仕事で100%の自信はないですがw
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午前 01時09分
問題のブックに標準モジュールを一つ入れ、↓のコードを張り付けてください。
そして、現在作業中のシートのどこでも良いので、関係のないところに
=Seikai()
と入れてください。
答えがあっていればTrueと表示されます。
Function Seikai()
Dim wX, J, K, wR, Y, Z, wFlg As Boolean
With ActiveSheet
wX = .Range("C5")
Y = .Range("C6")
Z = .Range("C7")
wFlg = False
For J = 20 To 100
For K = 0 To J
wR = Application.WorksheetFunction.Round(K / J, 2)
If wX = wR Then
wFlg = True
Exit For
End If
Next
If wFlg Then Exit For
Next
End With
Seikai = J = Z And K = Y
End Function
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午前 01時28分
>くまぷーさんのテーブル
い、いかん・・・(^^;)
投稿情報: kumapooh | 2013年9 月18日 (水曜日) 午前 06時01分
sakudaさん、、どうもです・・・・
だいじょうぶと、思ったが・・・
誘惑に負けて・・・
>答えがあっていればTrueと表示されます。
おそるおそる、、、チェック。・・・
f9・・・・1分ぐらい・・・・良いみたい。
・・・・
投稿情報: ジョー3 | 2013年9 月18日 (水曜日) 午前 06時18分
昨晩は結局チェッカー作ってておしまい。
本論は何も進んでないw
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午前 11時16分
>本論は何も進んでないw
いやーーーー
>多分あってるんだと思うけど、長い。ちゃんと数えてないけど、合計で110くらい。
110で、、、良いと思う。
投稿情報: ジョー3 | 2013年9 月18日 (水曜日) 午後 12時03分
なんとか、大丈夫なやつで2ケタになりましたが、長い・・・・
所で、問題シート1%とか99%出ないように思いますが?
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午後 04時41分
本格的にダイエット始めて、16+69の85です。
投稿情報: y sakuda | 2013年9 月18日 (水曜日) 午後 06時30分
>所で、問題シート1%とか99%出ないように思いますが?
羊+山羊を・・・あまり数えるのも大変だから・・・って、単純な理由。すまん、、、
>本格的にダイエット始めて、16+69の85です。
おおーーーーー
まけたーーーー・・・・・・
もう、、許してーーーーー・・・・・
投稿情報: ジョー3 | 2013年9 月18日 (水曜日) 午後 07時54分
ジョー3さん、、、ありがとうございます
この問題、、、
変に色々なアングルから考えようとし
肝心の入口を見向きもせずに通り越す愚かさを
改めて思い出させてくれました
>思ったより面倒ですね
単純過ぎるくらい、、、でした
>何の面白みも無いので、、、
面白みを出せる、、、そんな無駄、入る隙間、、、ナシ
投稿情報: からくち | 2013年9 月18日 (水曜日) 午後 07時56分
>変に色々なアングルから考えようとし
あはは、、、わたしの、そうしたかったので・・・苦労。
>単純過ぎるくらい、、、でした
そそ、、、単純、単純・・・今までの難しいのよりね、、、
で、、、私は 86
sakudaさん 85
実は、あそこを・・・そこまでしたくないなーーー・・・を、すると、、85
だが、、、からくちさん、、、、おいくつですか・・・・・
お年より・・・若い?・・・あ、、、お年は、、シランかった。
投稿情報: ジョー3 | 2013年9 月18日 (水曜日) 午後 08時02分
で、83もあるようで、、、でも、、、これは、、、やらないです。
出しません。
投稿情報: ジョー3 | 2013年9 月18日 (水曜日) 午後 09時37分
81 ができたと思ったのですが、チェックプログラム作りなおして、0%から100%をチェックするタイプにしたところ、サンプルで出てこない99%でエラーになりました。
で、短い式の方が2文字増えて、18+65の83が現時点の最短です。
(これ、特に重くなるような無茶苦茶はやってないので、普通に動きます)
で、新しいチェックプログラム提示しておきます。
Sub Check()
Dim wS, wX, J, K, wR, Y, Z, wFlg As Boolean, wAllOK As Boolean
With ActiveSheet
wS = .Range("C5").Formula
wAllOK = True
For I = 1 To 101
wX = (I - 1) / 100
.Range("C5").Value = wX
Y = .Range("C6")
Z = .Range("C7")
wFlg = False
For J = 20 To 100
For K = 0 To J
wR = Application.WorksheetFunction.Round(K / J, 2)
If wX = wR Then
wFlg = True
Exit For
End If
Next
If wFlg Then Exit For
Next
If J = Z And K = Y Then
Else
wAllOK = False
MsgBox "Err " & wX
Exit For
End If
Next
.Range("C5").Formula = wS
End With
If wAllOK Then
MsgBox "0%~100%すべてOKです"
End If
End Sub
これを標準モジュールに丸ごと貼り付けて、Checkを実行してください。
なお、これが走るとC5を置き換えちゃいますが、終了時に元に戻します。
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午前 12時25分
チェックプログラム作り直してから短い式の方考え直したら、難しく考えすぎてたのが判明して、14+65の79になりました^^
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午前 12時34分
>14+65の79になりました
どのような式か分かりませんが、、、勝手な想像
65は、2文字増やすことにより6文字減らせませんか
故に、、、65+2-6=61
でも、、、違うな、、、こんな術の無い式では
投稿情報: からくち | 2013年9 月19日 (木曜日) 午前 06時03分
>14+65の79になりました
へーーーー・・・・14は分かるけど
65ですか?・・・・
>65+2-6=61
うわーーー
61ですか?
私の年より若くなった・・・・・
私の式に(71)無駄があるのか、、、、あるいは、もしかして・・・
別の、近づき方だったのか??
出題者ジョー3から回答者に・・・・ならねば・・・
投稿情報: ジョー3 | 2013年9 月19日 (木曜日) 午前 06時53分
>2文字増やすことにより6文字減らせませんか
全然理解できない^^;
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午前 07時31分
起きてから、また少し考えて見ましたが、なんだか終りっぽい。
それどころか、今のがなんで動いてるのか分からなくなったw
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午前 11時05分
>今のがなんで動いてるのか分からなくなったw
あらら、、、、
わたしの、71は超単純で、、、わかり・・・すぎ、、、
投稿情報: ジョー3 | 2013年9 月19日 (木曜日) 午前 11時13分
いえ、そんなにややこしいことやってる訳じゃないんですが、正当性が不明。
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午前 11時22分
外出して、ん????
帰って、書いてみた。
回り道をしてました。・・・・・凄い回り道。
で、、、
15+61 で、76です。・・・・まあ、、、節約すれば・・・
14+58 で行けるけど、、むむーーー
14+57 は、ちょっと、、むむむむーーーー・・・
てことで、、
出題者ジョー3は 15+71・・・・・
回答者ジョー3も 終わりと、思う
投稿情報: ジョー3 | 2013年9 月19日 (木曜日) 午前 11時46分
>全然理解できない
と言う事は想像が外れてしまったか
もっとも、わたしも61では無いですけど
>14+58 で行けるけど、、
>14+57 は、ちょっと、、
ちょっと、、、って、動きが、、、ですか
それなら、、、55でも、、、
これまた当たらない想像ですが
投稿情報: からくち | 2013年9 月19日 (木曜日) 午後 12時50分
61だ、55だと凄い数字が並んでるな・・・・
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午後 12時59分
>ちょっと、、、って、動きが、、、ですか
いいえ、、動きはいいです。が、、、、気持ちがね、、、
お昼前、ほどは、、、
71の私にとって、・・・・
65も、、すごい数字だった。
>それなら、、、55でも、、、
まだ、、、わたしも、回り道かな?
それとも、、別ルート?・・・なら、嬉しすぎ。だけど、、、
投稿情報: ジョー3 | 2013年9 月19日 (木曜日) 午後 02時00分
単に動いてるってだけですが、理屈置いといての手抜きで3文字減。
でも50台には届かないですね。
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午後 03時13分
やはりと言うか、、、当たり前ですが
想像は外れているようですね
想像した55は、、、重すぎて動きません
少なくてもわたしのオンボロPCでは
59なら、、、サクサク
でもこの式は面白さ、、、ゼロ
超が幾つもつく程の一見、、、関数入門式
ついつい余計な考えをしてしまう、、、
それを僅かばかりの技量で隠してしまう
そんなズル賢さは、、、よく育つ
投稿情報: からくち | 2013年9 月19日 (木曜日) 午後 09時08分
今動いてるやつ、今一つ理屈がはっきりしないので、理論的に整理してみました。
で、若干短くなるし理論的にはすっきりした手法思いついたのですが・・・・
境界になるところで誤判定しちゃうし、調整できず残念ながら断念^^
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午後 09時56分
しかし、フィーリングでいい加減に作ったやつが動いて、理論上確信をもって作ったのがダメってのはちょっと複雑な気分。
何時ものように最初に理論上の整理してたら途中でリタイアだったんじゃないかな?
投稿情報: y sakuda | 2013年9 月19日 (木曜日) 午後 10時00分
全体数
57と別な攻め方をしてみた。57と同じ結果、、、良いみたいかな・・・・
面白くなってきた。
投稿情報: ジョー3 | 2013年9 月20日 (金曜日) 午前 06時09分
で、、、こっちは三種関数、、あっちは、五種関数
投稿情報: ジョー3 | 2013年9 月20日 (金曜日) 午前 06時27分
今更ですが・・・・
最初の頃に出したチェックプログラム(正解判定のやつ)を↓のように訂正してください。
数字が変わっただけだと再計算してくれない場合が発生しちゃってます。
すみません。
Function Seikai()
Application.Volatile ’<=一行追加
Dim wX, J, K, wR, Y, Z, wFlg As Boolean
With ActiveSheet
wX = .Range("C5")
Y = .Range("C6")
Z = .Range("C7")
wFlg = False
For J = 20 To 100
For K = 0 To J
wR = Application.WorksheetFunction.Round(K / J, 2)
If wX = wR Then
wFlg = True
Exit For
End If
Next
If wFlg Then Exit For
Next
End With
Seikai = J = Z And K = Y
End Function
投稿情報: y sakuda | 2013年9 月20日 (金曜日) 午前 11時00分
新手法、60を切れるつもりだったんですが、境界で誤判定するのを誤魔化すのに補正項入れたため、2文字増えて結局14+61の75どまり。残念。
投稿情報: y sakuda | 2013年9 月20日 (金曜日) 午前 11時37分
>境界で誤判定するのを誤魔化すのに補正項入れたため、
うむーーーー・・・気付いてないかも、、
>2文字増えて結局14+61の75どまり。残念。
出題案=14+71
解答者に変身して、
A案=14+57
B案=14+58
・・・・・・
何かに気付いてないのかなーーー
投稿情報: ジョー3 | 2013年9 月20日 (金曜日) 午後 12時33分
2013年9 月19日 (木曜日) 午前 12時25分
に投稿した0~100%のチェックプログラムでOKになれば大丈夫では?
これは問題シートに関係なく全パターンチェックします。
私の場合、1%、2% のどちらかでアウトになるケースがほとんどでした。
投稿情報: y sakuda | 2013年9 月20日 (金曜日) 午後 01時06分
>チェックプログラムでOKになれば大丈夫では?
あまり長時間のチェックしてませんが、
まあ、理屈で良いと思って、、、読み抜けがあったら、それも又楽し
かな、、、
投稿情報: ジョー3 | 2013年9 月20日 (金曜日) 午後 05時31分
あ、、、第3の手段・・・・思いついた。・・・まだやってない・・・・
ん、、、厳密には第4の手段だが、、、、第1の手段は失敗だったから、、
で、第4の手段・・・・やってみる時間は、、ありそうだなーーー
投稿情報: ジョー3 | 2013年9 月20日 (金曜日) 午後 06時53分
もう一つ手法を考えたんですが、これは2%、98%でどうにもならないことが判明。
しかも結局長いし・・・・
まあ、今回は答え合わせ日曜ですが、明日は朝から外出してるし、終戦臭いな。
投稿情報: y sakuda | 2013年9 月20日 (金曜日) 午後 09時56分
新しいのがうまくできないので・・・一寸短縮に走った。
実質同じなので、、、あまり意味がないが・・・
2セル計で、68・・・・
なんかもう少し、、・・・あるんだろうなーーー
投稿情報: ジョー3 | 2013年9 月21日 (土曜日) 午後 12時28分
なんか、本当に短くなってますね~
ぜんぜん、思いつかない・・・
投稿情報: kumapooh | 2013年9 月21日 (土曜日) 午後 12時44分
では、出題時案をお送りしておきます。
投稿情報: ジョー3 | 2013年9 月21日 (土曜日) 午後 03時33分
ジョー3さんから出題者回答案を
いただきました。この場を借りて
お礼を申し上げます。
尚、通常は回答発表は土曜なのですが
今回は、連休でもあるので明日の日曜になります。
よろしくお願いいたします。
投稿情報: kumapooh | 2013年9 月21日 (土曜日) 午後 07時23分
>出題者回答案を いただきました。
とどいたのね、、、あんしん。
投稿情報: ジョー3 | 2013年9 月21日 (土曜日) 午後 07時38分
どうやら、14+65で終わりのようです。
投稿情報: kumapooh | 2013年9 月22日 (日曜日) 午後 05時56分
私はどうでも良い短縮で一文字減りましたが、14+60で終わりました。
投稿情報: y sakuda | 2013年9 月22日 (日曜日) 午後 07時03分
どなたもやらない方法を・・・・・
・・・・・・・・・・・・・・・
どなたがなされば、、、・・・ある意味、、面白い問題。
まあ、最終的に、同じ方法に収束でも・・・・まあ、、、いいが、、、
すぐ、同じ方法で終わりだと、、、、寂しい、、、、だと、今回は、、、どうだろう。
投稿情報: ジョー3 | 2013年9 月22日 (日曜日) 午後 07時59分