表計算一筆書き・・・中禅寺湖シリーズ第3弾「乙」【怪答】

出題者である悪児さんから回答が送られてこないので

くまぷーが、とりあえず代打で怪答を提示します。

悪児さんが事故か何かに巻き込まれてしまったので

なければいいのですが・・・

J式でエクセル58文字

=LEFT("w",ISREF($K$10 (B1:J1,B9:I9,C8,D7,E6,F5,G4,H3,I2)))

本当にこの方式は便利です。

くまぷーはこの方式を元祖のジョー３さんに敬意を表して

A系ではなくJ式と呼びたい・・・

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

悪児さんから回答が送られてきました。

それでは追加で掲示します。

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

RCライン三四郎70です。

=If(Max(17-(12-Row(A1)-Col(A1))^2,(6-Row(A1))^2+Col(F1) DIV 8)=17,"*")

RC２組必要なので、この辺りが限界？

ＲＣドット黒魔術は今回は利きませんでした。

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

次回の出題者のK＠自転さん、3/4（火）の午後６時までに

問題を送ってd(^-^)ネ!　よろぴく！！＋

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

★出題予定表

順番	担当者	出題予定日	お　題
1	くまぷー	2/12	独裁者
2	えくせるバカさん	2/19	{UP}
3	悪児さん	2/26	シリーズ　（中禅寺湖シリーズ第3弾）
4	K@自転さん	3/4
5	かずさん	3/11
6	y sakudaさん	3/18
7	ジョー３さん	3/25	風林火山・・・らしい
8	kirさん	4/2
9	きっちーさん	4/9
10	minmaxさん	4/16

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

★表計算一筆書き・・・既出問題と解答

Comments

[投稿情報: y sakuda]

ちょいと用があるので、何も見ずに投稿します。

Excelハイブリッド67です
=LEFT("*",OR(ROWS(1:$6)=5,COLUMN()+ROW()=12)*ISREF($K1 (B:I,J$10)))

エンジンは全く同じでRCラインタイプに変更したExcel74
=LEFT("*",OR(ROWS(1:$6)=5,COLUMN()+ROW()=12)*(MOD(COLUMN(),11)>1+2/ROW()))

メインエンジンのRCを一組に変えようとあがいたのですが、結局短縮できず伸びちゃいました。
ハイブリッド70
=LEFT("*",OR(ABS(ROW()+COLUMN()*{0,1}-6)={4,6})*ISREF($K1 (B:I,J$10)))

純粋A系は他の方と違ってたら出します。

10時前くらいに出直してきますね^^

[投稿情報: minmax]

風呂に入っていたら、ぐっすり寝てしまった。
これから、快投の準備してまた来ます。

[投稿情報: y sakuda]

J式はくまぷーさんと全く同じでした^^

[投稿情報: えくせるバカ]

おおー、y sakudaさんのＲＣラインは見事ですねー
特に
＞MOD(COLUMN(),11)>1+2/ROW()))
が効いてますね～、参りました。
私も、一応ＲＣラインっぽいので８８文字
=MID("Z",MIN(LEN(((ROW()-1&11+{0;1}-COLUMN())-{91;12})/{1,1;1,11}))+(COLUMNS(A:$F)=6),1)

ハイブリッド６７文字は
=IF(ISREF($K$11 (C10:I10,B2:I2,K1,A11))-(ROW()+COLUMN()=12),"*","")
でした！

[投稿情報: y sakuda]

悪児さんのは発想にうなりました^^
エンジンをそのままExcel化したら73になりました。
=LEFT("*",MAX(17-(12-ROW()-COLUMN())^2,(6-ROW())^2+INT(COLUMN(F1)/8))=17)

[投稿情報: くまぷー]

悪児さんの三四郎７０をExcellにすると

=IF(MAX(17-(12-ROW()-COLUMN())^2,INT((6-ROW())^2+COLUMN(F1) / 8))=17,"*","")

となり、７６文字になるのかな・・・

基準となるセル番地をA1とF1と２種類とるというのは初めての手法！！

[投稿情報: minmax]

y sakudaさんの式どれもすごい。
ハイブリッド６７そうやるんですね。
RC７４のMOD(COLUMN(),11)>1+2/ROW()
で判定するところ、かなり不思議技ですね。
ハイブリッド７０も苦労されてますね。

さて、自分の式
Ａ系を使わないものは、
=LEFT("Z",COUNT(J4+K1/(B1<>0)/OR(ROW()+COLUMN()=12,ROWS(1:$6)=5)))
で６６字です。
もう少しわかりやすい式でも６６字だったので、
とりあえずかりずらい方を提示しますので分析してみてください。
わかり安い方は後ほど提示します。

あ、周辺のセルは空欄でお願いします。

[投稿情報: くまぷー]

あ、ｓａｋｕｄａさんが同じことをやっている。
先を越されました。(^^ゞ

[投稿情報: minmax]

えくせるバカさんのもよくわからんです。
もう少しみてみよっと

J式は私も同じでした

[投稿情報: y sakuda]

えくせるバカさんのハイブリッド同じ67文字でも発想が全く違う。
面白いもんですねーー
RCラインの方はパット見じゃよう分からん^^;

[投稿情報: minmax]

だれも分析結果を書き込んでくれないので・・・
=LEFT("Z",COUNT(J4+K1/(B1<>0)/OR(ROW()+COLUMN()=12,ROWS(1:$6)=5)))
を分かり易くすると
=LEFT("Z",AND(J4=0,K1=0,B1<>0,OR(ROW()+COLUMN()=12,ROWS(1:$6)=5)))
です。
ほんとは、わかりにくい方を２字短縮して６４が出来ると思ったのですが、
なぜか思うとおりにいかなかったです。
（今後の研究が必要）

[投稿情報: ジョー３]

うーんん、、、

皆さんの、頭脳について行けなくなってきました。

・・・・・・・
例の５８文字も、、最後まで（見るまで）
気づかなかったし、、、

[投稿情報: かず]

あ～っ、ISREFとISERRは逆となるんですね！

今までの理解が不十分でした…
で、59文字です。

=IF(ISERR($K$10 (B9:I9,B1:J1,I2,H3,G4,F5,E6,D7,C8)),"","*")

でも皆さん、相変わらずよく色々な事に、思いつくかれますね～

[投稿情報: y sakuda]

>だれも分析結果を書き込んでくれないので・・・
分析できてない・・・・
なぜ、COUNT(J4+　のJ4 があるのとないので、C2が消えるのか全く分からん^^;

[投稿情報: ジョー３]

=LEFT("*",OR(ABS(ROW()+COLUMN()*{0,1}-6)={4,6})*ISREF($K1 (B:I,J$10)))

sakuda　さん、、
面白いです。
row
column
{4,6}
isref
いっぱい登場ですねーーー

[投稿情報: minmax]

y sakudaさんへ
>C2が消えるのか全く分からん^^;
B2のことですよね。
そこちょっとポイントです。
でもよく見れば当然のことです。

[投稿情報: y sakuda]

>を分かり易くすると
全然分かりやすくなってないｗ
やっとなんとなく分かった。
式で""が入っているとことが0ではないというのを利用してるんだな・・・・
でも、Countレベルでは確認できないからどうやって試したんだろ^^;

[投稿情報: y sakuda]

>面白いです。
お褒めに預かって恐縮です・・・
が、メインエンジンは面白くもなんともないもので、余計なとこ消すとこだけが工夫です^^;

[投稿情報: y sakuda]

しかし、この66紙でやったとしたら、魔法の紙ｗ
それとも、一回頭割って中身しらべないといけないかも^^

[投稿情報: minmax]

＞全然分かりやすくなってないｗ
ANDを使った式の方はご理解頂けたとして、
全くの空欄＋空欄＝０ですが
数式の結果で空欄となっているセルに四則演算するとエラーになります。例（""＋""＝エラー）
Countは一筆書きで前にも言っていますが、エラーを無視してカウントしてくれます。そこであえてエラーを起こしてエラーにならないところだけカウントしています。

66は紙でやりましたが、ANDを使った分かり易い方です。
ただ、紙には魔法がかかっているかも

[投稿情報: えくせるバカ]

なっ、なんじゃこりゃ、、、？！
＞=LEFT("Z",AND(J4=0,K1=0,B1<>0,OR(ROW()+COLUMN()=12,ROWS(1:$6)=5)))
こういうのを本当の黒魔術というのでは、、・・・・いや、正に紙（神）技と言うべきだ～～
＼(◎o◎)／

[投稿情報: minmax]

紙におおざっぱに四角を書いてじっと見つめていると、こんな事が出来たらいいな～って思っちゃうんですよね～。
たまにそれがうまくいくことがあるだけです。

[投稿情報: くまぷー]

昨日はバドの試合で１日中体育館にいたので
疲れて早めに寝てしまいました。
ほんとに皆さんの発想には驚かされます。

特にminmaxさんのカミ技はびっくり！！

＞皆さんの、頭脳について行けなくなってきました。　×２

[投稿情報: えくせるバカ]

y sakudaさんの７４文字はMODの外側の括弧要らないから７２文字でした(^^)

[投稿情報: y sakuda]

>y sakudaさんの７４文字はMODの外側の括弧要らないから７２文字でした

本当だ、気が付かなかった^^;
最初にえくせるバカさんのコメントヲ読んだ時、え！？っと思ったのですが、出発点の発想の問題で括弧が取れるなんて考えもしませんでした。

１．私の元々の発想
ア．2行目、10行目に横線と左下がりの斜め線を目一杯引く
イ．(MOD(COLUMN(),11)>1+2/ROW())を乗じて、1列目、11列目等の余計な部分を消す
でした。
２．えくせるバカさんの修正式
ア．１同様に基本線を引く
イ．基本線に修正後の列番号を乗じる
ウ．列番号が１または２のものを残す
です。
（イで線のあるところ以外は0というのに気が付いてなかった）

同じ様なものですが、私は当ても無くいじりでもしない限り永久に気が付かなかった^^

[投稿情報: ジョー３]

えくせるバカ　さん
すごいなーーー
あっちも、こっちも、、研究されて、
ＰＣ２１のほうも、、、
ここも、あそこも、、、

すごいなーーー、、、、

分からないのは、、無いぐらい、、、
研究されてますかねーーー。。。
すごいこった。。