関数で出来ますか～？ 第318回 阿弥陀籤

　あみだくじです。
10行目、縦棒の右に〇があるのが当たりです。
3行目の当たりになるところの右側に〇を表示してください。
（F列とG列の間の線が当たりならG3に〇）
(あたりじゃないところは空白）
横棒は条件付き書式で表示しています。
セルの値が1であればセルの上に横棒が表れます。
F3に数式を入れて、J3までコピーでお願いします。　（niさん）

解答用参考ファイル： 20200412をダウンロード

解答用参考ファイル　xls形式： Amida01をダウンロード

★解答用参考ファイル（VBA)： 20200412Routeをダウンロード　（ｙ　sakudaさん提供）

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

出題者を除く４名の方の解答作成完了宣言の後に、このスレに直接解答式をお書きください。

尚、問題公開後、５日経過しても４名の解答終了宣言が無い場合、下記のどれかに当たれば解答発表になる。

1.　出題者が解答例を用意していて、かつ公開を希望する場合。
2.　1名でも解答終了宣言があった場合（解答案無しで無い場合）
3.  4名以上の方が出題者の解答公開を希望する場合。

ただし、どなたかが「考え中だから解答発表はちょっと待ってくれ！！」と言った場合は除く。

この問題に関しては解答用の別スレは作成いたしません。

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

★条件付き書式の説明図

1.上図F3:I9に条件付き書式が設定されている。

2.書式の内容・・・セルの値によってセルの上辺に線が引かれる。その線が阿弥陀の横線になる。

3.　上辺はセルの値が1の時に現れ、0の時に消える。（たぶん、0以外の時に現れる）

 

Comments

[投稿情報: くまぷー]

お早うございます。

この問題はおそらく「関数で出来ますか～？」史上最大の難問だと思います。
解答公開に関しては臨機応変にやっていきたいと思います。
よろしくお願いいたします。m(__)m

[投稿情報: からくち]

質問です、、、
＞横棒は条件付き書式で表示しています。
2007ではその様な条件付き書式は見当たりません
故に全て縦横升目に線が見えます

[投稿情報: くまぷー]

＞故に全て縦横升目に線が見えます

えっ？！そうですか。
xls形式にして解答用参考ファイルをアップしました。
これで解決するといいのですが・・・

[投稿情報: maron]

◆今問題を見ています
◆どこから手を付けていいのか、全くわかりません

◆早さだけが取り柄で、「取り敢えず」と行きたいのですが・・・

[投稿情報: からくち]

両方共に条件付き書式は見られませんでした

[投稿情報: maron]

◆2013ですが、条件付き書式を確認できました

[投稿情報: からくち]

2007では条件付き書式で太線は引けません
端から罫線を消して縦のみ細線にしておけば
線が細く見難いですが何とか分かるようになりました

[投稿情報: くまぷー]

「条件付き書式」の説明を追加しました。
説明だけでは「目隠し将棋」みたいでピンとこないかもしれません・・・

からくちさん、如何でしょうか？

[投稿情報: くまぷー]

＞線が細く見難いですが何とか分かるようになりました

それは良かった。安心しました。

[投稿情報: ｎｉ]

＞線が細く見難いですが何とか分かるようになりました
わぁ、すみませんでした。
F5:I9　の値が0の時はセルの上に罫線なし、1の時は罫線あり
であみだくじにしてください。

くまぷーさん、ご対応ありがとうございます。

[投稿情報: y sakuda]

問題の意味が分かりません。F3に何をする式をいれるんでしょうか？
１０行目が当たりと言うことは、当たりになるスタート地点に〇をいれろとか言う意味でしょうか？

[投稿情報: ｎｉ]

＞１０行目が当たりと言うことは、当たりになるスタート地点に〇をいれろとか言う意味でしょうか？
はい、その通りです。
〇でも良いし、"当たり"と表示してもらってもいいです。
当たりで「ない」ところには、空白、""、×、"はずれ"などを表示しても、しなくてもいいです。、

[投稿情報: ｙ sakuda]

話はわかるけど、単独式でできるんかな？？
確かに難問ですねーー

[投稿情報: jyo3]

ほほーーーー
面白そう・・・

さすが、、、ゲーム・・・の好きな　　ni　　さん、、、

その上、、解答例も、、デキたのね、、、すごい、すごい、、

[投稿情報: ｎｉ]

回答例は現在500を切ったのですが、わけのわからない式になってしまっています＾＾；
何とかしてください・・・

[投稿情報: y sakuda]

一応、可能なはずと言うアイデア。
で、途中まで書いてみた。
でも違ってることは明らか・・・でもどこが違ってるのかさえ判別不能ｗ
これを最後まで間違えずに書く自信はないですねーー
どうすんだろ・・・・

[投稿情報: くまぷー]

まずはワンセルではなくて何でもアリでできるかどうかというところ、私には・・・

[投稿情報: ｎｉ]

力づくのやり方は
作業セルを使って答えを出して、
作業セルを参照しているところに作業セルの式をコピペ
1つの作業セルで何度も別の作業セルを参照していると、とんでもないことになります
それで最初にできた式は1000オーバー

[投稿情報: jyo3]

作戦はたった
が、
１００の
２倍の
２倍の
２倍の
２倍ぐらいになりそう・・・
・・・・・・・・・
１６００もじかーーー
・・・・・・・・・・・・
ん？？
詰将棋の最長手数が、、、、そんなんだったかなーーー

[投稿情報: yo3]

出来たのは、作戦だけ、、、

てことで、、３０分ぐらい、、、

手を付けてみようかな―――

[投稿情報: jyo3]

この作戦は、、、挫折・・・
＞１００の
＞２倍の
＞２倍の
＞２倍の
＞２倍ぐらいになりそう・・・
・・・・
でなくて、
１００＊３＾４・・・
だめだめーーーー別作戦を・・・考えねば、、、

３０分たたないうちに・・・

[投稿情報: y sakuda]

作業セルふんだんに使えば簡単にできたけど、これを１セルでってことになると・・・
多分考えたことはじょー３と同じで、破綻するｗｗｗ

これ、「まさにExcelで簡単にできます。だけど、ワンセルでは？？？」
って問題。

[投稿情報: y sakuda]

しかし、一応やって見ると、これ500レベルって驚異的^^

関係ないけど、今面白いことに気が付いた。Win10の文字変換、500っていれて変換するとDってのが出てきた。これローマ数字の500。こんなの変換候補にいれるんかいｗ
因みに50だと同様にLと出てくる。

[投稿情報: jyo3]

Ｘ 10
Ｃ 100
ですか
どなたか、詳しい、

[投稿情報: y sakuda]

＞どなたか、詳しい
ローマ数字のことですか？
ExcelにRomanて、数字⇒ローマ数字
の関数ありますよ^^

[投稿情報: min]

この問題、やることはそんなに難しくないかもしれません。
ただ、きちんとやってませんが単純にやって推定3000文字。

考え方を変えないと無理ですね。

[投稿情報: ｎｉ]

なんだか、とんでもない問題になってしまったみたい。
回答例は2種24関数　ぐらい・・・数え間違えてるかも

[投稿情報: y sakuda]

一応できました＾＾
1220と長大で500には及びもつかないですが、一応出せるものができた事はうれしい^^
どっちかって言うと、式の構築方法を工夫して、間違えずに書けるって方が優先。
式自体はあまりダイエットの余地なさそうだから大幅減には考え方の変更が必要かもです。

[投稿情報: くまぷー]

ワンセルでやる根性も無くVBAで・・・
見通しもよくあっさり・・・
ワンセルは・・・苦しすぎ・・・

[投稿情報: y sakuda]

niさんもそうなんでしょうが、繰り返しパターンになっているので、ちょっとダイエットすると大幅に減少する^^
２回ほどそんなことやったら、692とほぼ半減^^

アイデア変えてチャレンジの時期かもしれないけど、疲れたから又明日かな？
でも正解かどうかの確認目が疲れるからなんかつくるかな？

[投稿情報: y sakuda]

しかし、niさんの関数2種ってのが分からない。
私のは、表示するとこまで入れると5種使ってる。
（使用数計算するには、面倒くさい式が必要そうだから数えてないｗ）

[投稿情報: ｎｉ]

式を短くするために後から追加したのですが、
F1～J1　も参照しています。
これで列の関数が省略出来て 8文字*?? 短縮になってます

[投稿情報: y sakuda]

>F1～J1　も参照しています。
これは、私も気が付いた^^
その結果、558

[投稿情報: ｎｉ]

式を作った過程を残しておかないと、どうやって作ったのかもわからなくなってしまう。

[投稿情報: y sakuda]

>式を作った過程を残しておかないと、どうやって作ったのかもわからなくなってしまう。
です＾＾
こんな式いきなり書いたら、絶対書けないですｗ
で、今回は、システマチックな手法で式書きました^^

[投稿情報: min]

家に帰って来ましたので、移動中に考えた式を置いてみました。

単純なものの繰り返しですが、２６０でした。
合っているといいなあ。

[投稿情報: くまぷー]

＞２６０でした。

えーっ？！
驚きです。

[投稿情報: min]

ちなみにＦ３からＪ３まで範囲指定してCtrl＋Enterなら２３８ですが、今回の問題ではルール違反なので没

[投稿情報: min]

現時点１行目を使っていませんが、
１行目を使えばもっと短くなると思います。

[投稿情報: min]

２６０を１行目を使ってやると２３４ですね。

[投稿情報: min]

＞２６０を１行目を使ってやると２３４ですね。
すみません。間違い、、２１６でした。

[投稿情報: y sakuda]

216？？
また頑張らなきゃ

でも今晩は趣味に走ってるからまた明日チャレンジ
しかし、他の人でてきませんね・・・・

[投稿情報: ｎｉ]

＞２６０でした。
わー、やっぱりすごいです～

＞今回の問題ではルール違反なので
今回の問題に限っては、何でもありと思っています。
極端な話、作業セルもアリかなと。

なので、没にしないで回答発表の時には教えてくださいね。

にしても、260,238はすごい

[投稿情報: ｎｉ]

カキコしてる間に216になってる（どひゃぁ）
確かに今の式は同じような式が何度も現れていて、無駄だらけと思うのだけれど、
一体どうしたものやら

[投稿情報: y sakuda]

正解ルートを赤で表示するマクロ入りのブックをクマプーさんに送りました。

明日からまた、式の方がんばろ＾＾

[投稿情報: くまぷー]

sakudaさんから頂いたマクロ入りのファイルをアップしました。
非常に見やすくなりました。有り難うございます。

みなさん、ご利用ください。m(__)m

[投稿情報: jyo3]

あ・・・え、、、、、う、、、、

[投稿情報: maron]

◆やっとできました、701（長い・・・）

[投稿情報: くまぷー]

＞◆やっとできました、701（長い・・・）

長いと言ってもできただけすごいですよ。

[投稿情報: y sakuda]

やっぱり、夜中にいくら粘ってもだめですねーー
朝、なんとなくやったら気が付いた^^
180
自分でも半信半疑でためしたんですが、うまく行きました。

[投稿情報: y sakuda]

整理しやすい長さになったので、通常のダイエットで174
しかし、意外とコンパクトにできるもんですねーー
最初にできた単独式は1220。その延長が174・・・ちょっと信じられない。

しかし、この問題面白かった。こんなの式でやれって出す方も、やる方もどうかしてるとはおもいますけどwww

[投稿情報: くまぷー]

＞通常のダイエットで174

Σ(￣ロ￣lll)ｶﾞｰﾝ

[投稿情報: jyo3]

minさん、車の中で、、、ふっと、、、考えた式・・・書いたら、、、
出来てるーーー、、ってすごいですね。

amronさんも、できちゃったのね、、、

sakuda　さん、苦労してると思ったら、、、トップですか。

皆さんすごいです。

[投稿情報: maron]

◆少し短くして、686
◆でも、考え方を変えないと、到底追いつきません

[投稿情報: maron]

◆683になりました
◆式の中に、同じような項があるので、何とかならないかと思います

[投稿情報: y sakuda]

なんとなく、当　表示してましたが、単に〇と出せば良かったんですよね？
最初からわかってたはずなんですが・・・・
ずっと数式なんとかしようと、そっちに頭が行ってて、多分できたって時に、何時もの習慣で”当”って表示するように書いちゃってそのまんまやってました。
まあ、1000とか500とか言ってる間は、この辺の10数文字関係ないようなものでしたし・・・

で余計なお飾り取り払える訳で、155にダイエットできました^^

[投稿情報: くまぷー]

＞155にダイエットできました^^

Σ(￣ロ￣lll)ｶﾞｰﾝ

Σ(￣ロ￣lll)ｶﾞｰﾝ

Σ(￣ロ￣lll)ｶﾞｰﾝ

[投稿情報: jyo3]

この問題・・・
最初・・・

3000文字？？
100文字？？？

と、、、感じた。

規則性があるなら・・・・１００
規則性がないなら・・・・３０００

規則性が見つからない

下から攻めて、、、行き詰まり、、、
上から攻めて、、、行き詰まり、、、

なのに、、、

するっと、、、200台・・・

苦しみながらも、、、100台・・・

の、方が、、、
見えないな―――

今後、、、
くまちゃんが、、、
見えた―――、、、と、、なったら、、、わたし、、、
リハビリ、、、無理かも、、、とほほ、、、

[投稿情報: くまぷー]

＞くまちゃんが、、、
＞見えた―――、、、と、、なったら、、、わたし、、、

アイディアとしてVBA込みで最初すぐに・・・

Public Function AmidaX()
Application.Volatile

Pos = Start(Range("F11:J11")) + 5

For I = 9 To 5 Step -1
Pos = Pos + WhichWay(Pos, I)
Next
AmidaX = Pos

End Function

Function Start(R As Range) As Integer
Pos = WorksheetFunction.Max(R)
Pos = WorksheetFunction.Match(Pos, R, 0)
Start = Pos
End Function
Function WhichWay(X, Y) As Integer
'左折：-1、直進：0、右折：1

If Cells(Y, X) = 1 Then
WhichWay = 1
ElseIf Cells(Y, X - 1) = 1 Then
WhichWay = -1
Else
WhichWay = 0
End If

End Function

・・・で、F3に・・・

=IF(AmidaX()=COLUMN(),"●","")

・・・後はJ3までコピペ

ワンセルかつ関数だけで２００を切るなんて・・・
戦意喪失です・・・

[投稿情報: ｎｉ]

sakudaさん、すごいなー

短くなる’かもしれない’アイデアはあるのだけれど、
これを間違わずにまとめる自信はない
さらに。短くならないかもしれない
それでもやってみるべきか・・・

[投稿情報: ｎｉ]

だめだぁ～このやり方だとかえって長くなってしまう

[投稿情報: y sakuda]

155で終了です。
なんかminさんかniさんにぶち抜かれるような気がしますが、アイデア枯渇したみたいです。

[投稿情報: くまぷー]

＞155で終了です。

上から攻めて・・・だと思うんだけど
横位置を５回検索するところが・・・

sakudaさんは、どうやっているんだろう・・・

★終了宣言

1.　sakudaさん
2.　
3.　
4.　

[投稿情報: からくち]

今週はいろいろあり過ぎて時間が取れない、、、
しかしこの問題は凄いですね
０～５まで6パタンが４列、、、6^4＝1296
プラス両サイドの２、、、1298パターン
規則性を見つければ短くなるでしょうが
見つからないOR無いと、、、大変な問題ですね
時間潰しには、、、最高でしょうが、、、
時間が無い
今週はすみません

[投稿情報: くまぷー]

＞今週はすみません

「考え中、待った！！」がでれば・・・
いや、一週間で済まないかも・・・

[投稿情報: y sakuda]

別に難しい発想やってませんよーー
強いて言えば、最後のブレークスルーで気が付いてみたら「なんで、最初からおもいつかなかったんだ」って感じです。

[投稿情報: くまぷー]

全然ダメ・・・

＞最初からおもいつかなかったんだ

なにも思いつかない。
一応できたけど・・・
ヒトには見せられません・・・

[投稿情報: y sakuda]

私も最初にできたやつは1220。
作るのは、規則的に作ったんで書けましたけど、それを直接修正するのは無理って代物でしたｗ

[投稿情報: くまぷー]

＞下から攻めて、、、行き詰まり、、、
＞上から攻めて、、、行き詰まり、、、

一階層、深く探索すると文字数が増えちゃうんで5階層掘るととんでもない文字数に・・・
だったら上と下から同時に攻めて、真ん中でくっつけられればと思ったけど・・・
上手くいかない・・・

[投稿情報: jyo3]

さて、・・・・骨折りばあさん所から、、、帰宅
・・・・・・・・・・
時間ができたから、、、頑張ってみます。
・・・・・
まず、ちょっと飲んで、、、で、飲みながら、、、、
・・・・・・・・・・・
がんばるぞーーーーー、、、
・・・・・・・・・・・

[投稿情報: jyo3]

niさん
minさん
sakudaさん
くまぷーさん
からくちさん
・・・・・・・・・・・
そのほかの皆さん、、、
・・・・・・・・・・
呑みながら、、、少し頑張りますねーーー、、、、

途中経過：
現時点では、、、

作戦良好、、、
文字数良好、、、
結果、、、？？？・・・なんで、ちがうけっかなのじゃい・・・

[投稿情報: jyo3]

ひとりごと・・・・・
・・・・・・
日本酒が、、、悪さをしてるかも、、、、
・・・・・・・・・・
全員、、、呑みながら、、、式を書けば、、、公平、、かも、、、
・・・・・・・・・・・・・
わし、、だけ、、、呑むのは、、、不公平だ・・・と、、、
日本酒が言っている。・・・・
・・・・・・・・・・・・・

[投稿情報: jyo3]

理屈完璧：118文字、、、、
結果：無残！！・・・

１）答えが合わない
２）答えがない
３）答えが複数

・・・・・・・・・・・・・・
これでは、、、randより悪いかも、、、、
・・・・・・・・・・・・・・
やはり、、、呑まないで、、、明日、、、にするか。
・・・・・・・・・・・・・・・・・・

[投稿情報: y sakuda]

>だったら上と下から同時に攻めて、真ん中でくっつけられればと思ったけど・・・
面白いアイデア。これは考えなかったけど、上手く行くのかな？

[投稿情報: くまぷー]

＞全員、、、呑みながら、、、式を書けば、、、公平、、かも、、、

熱燗でやっています。(^^ゞ

[投稿情報: くまぷー]

＞>だったら上と下から同時に攻めて、真ん中でくっつけられればと思ったけど・・・
＞面白いアイデア。これは考えなかったけど、上手く行くのかな？

下からは〇を上にあげて、上からキャッチ・・・

もしも〇ならtrue
そうでなければfalse

さあ、どうだ？！

[投稿情報: jyo3]

気分転換に、、、、
・・・・・・・・・・・・・・
囲碁、、、、
・・・・
勝った、、、、、
・・・・・・・・・・・・・
さてさて、、、

[投稿情報: くまぷー]

今、風呂の中でちょっとしたアイディアが浮かんだ・・・
今日は疲れたので明日試してみる・・・(･∀･)ｳﾝ!!

[投稿情報: min]

ほかのアイデアが浮かばないので、、

>範囲指定してCtrl＋Enterなら２３８です
この方法のずるならもう30から40は減るのはわかっていたのですが、
やってみました。
178でした。。太刀打ちできません。

今度もう一つのずるに挑戦してみます。
うまくいったら報告します。

[投稿情報: ｎｉ]

うー、進展なし
皆さん、すごいです

[投稿情報: y sakuda]

クマプーさんの上下方式、予想通り長くなったけど、一応187で、できました。
今までと似たようなものと言えば似たようなものなんですが、ややこしくて頭いたくなったｗ

[投稿情報: y sakuda]

＞もう一つのずる
しかし、この問題、ずるするって言っても、ネタ元のエリアが有るわけじゃないし、どういう意味なんかしら？

[投稿情報: くまぷー]

＞クマプーさんの上下方式、予想通り長くなったけど、一応187で、できました。

お試し有り難うございます。

しかし、この問題、ずるするって言っても、ネタ元のエリアが有るわけじゃないし、どういう意味なんかしら？

確かに・・・

[投稿情報: jyo3]

独善主でした。
昨夜の指し手。

[投稿情報: y sakuda]

昨夜、くまぷーさんの上下方式試した時、なんか違和感があったので、下から方式ってのやって見た。
まあ、ほとんど同じ形で答えは出る・・・・でもなんか？？？
つまり、出てくる答えは、例えば第一列をしたから辿ると、５列目に出ると答えが出ると言う事。
一列目の下に〇があった場合、一列目の式で５列目に〇をつけるわけには行かないから表示のしようがないｗｗｗ
上からなら１列目をたどって到達した先が〇なら〇と出せば良い訳で、似てるけど全然違う。
下からやるなら、答えを配列として一括で求めないと表示できないということが判明しました＾＾

[投稿情報: y sakuda]

下から方式184と長くなりました^^

[投稿情報: くまぷー]

＞クマプーさんの上下方式、予想通り長くなったけど、一応187で、できました。

＞下から方式184と長くなりました^^

3文字短くなったのでは？

[投稿情報: y sakuda]

>3文字短くなったのでは？
上からとの比較です。
さっき書いた表示の手間でも伸びてますが、基本的に下からやると配列で答えを求める関係上長くなるようです。
しかし、過去の例だと文字数が出ると、アッと言う間にその辺りの答えが続出するんですが珍しいですね。
まあ、同じような文字数で手法が全然違ったりするのが面白いんですが^^

[投稿情報: くまぷー]

＞アッと言う間にその辺りの答えが続出するんですが珍しいですね。

そうですね。後続者が現れませんね。
私も昨日、風呂でチラッと脳裏を掠めた案は没です　(^^ゞ

[投稿情報: jyo3]

このことは、、、、

＞この問題はおそらく「関数で出来ますか～？」史上最大の難問だと思います。

私に関しては、真実、、、かもしれない。

しかし

min さん
sakuda さん
に関しては、、、、当たらなかった。・・・ってことですね、、、

ゲーム路線の、、、　ni さん、、、

開花・・・次にもこの路線が、、、出てくるかも、、、

[投稿情報: jyo3]

基準が、、、
2000かも、、
3000かも、、
5000かも、、、

すこし、、やる気が出る。

500ぐらい・・・・
かなりのダメージ・・・頑張れないかも、、、の、、ジョー

200台・・・・
もう駄目だ―の・・・ジョー

100台・・・・
想定外です―――

ni さんと、、、
min さんと、、、
sakuda さんに、、、
ぼこぼこにされました、、、。

[投稿情報: くまぷー]

＞もう駄目だ―の・・・ジョー

私も同じ気持ちですが
取り敢えず答えを出せただけで満足です　(^^ゞ

[投稿情報: y sakuda]

異議がでなければ、明日の晩あたりに答え合わせですか？

[投稿情報: jyo3]

>異議がでなければ、明日の晩あたりに答え合わせですか？
ni さん
min　さん
sakuda さんが、、、よろしければ、、、

今晩でも、、、あすのあさでも、、ひるでも、、ゆうでも、、、
いいですよ。

[投稿情報: ｎｉ]

さっき、お風呂で思いついた方法を試したら
191　(((o(*ﾟ▽ﾟ*)o)))

ここからのダイエットでsakudaさんに追いつけるか？

[投稿情報: y sakuda]

>191　(((o(*ﾟ▽ﾟ*)o)))
いよいよ、出てきた^^
多分やってることはほとんど同じかと。

[投稿情報: ｎｉ]

155　できました～　（●＾o＾●）

[投稿情報: ｎｉ]

＞多分やってることはほとんど同じかと。
2種6関数です

[投稿情報: ｎｉ]

余分な＄を消して149になった＾＾

[投稿情報: ｎｉ]

さらに余分な＄を消して139