表計算一筆書き・・・{UP}【解答】

【コメント】
問題では多くのコメントを頂き有難う御座いました。
今回の「{UP}」、少しは楽しんで頂けましたでしょうか？
皆さんの解答を見るのがこんなに楽しみになるとは・・・。
出題者にしか味わえない喜びを知ることが出来、皆さんに感謝です！

【解答例】
三四郎は解らないのでくまぷーさんにお願いすることにして

結局えくせるバカは５８文字止まりでした。
ＲＣＣ
=TEXT(MIN(ROW()-COLUMNS(A:$F),ABS(COLUMN()-6)),"[>2]　;;●")
ハイブリッド
=TEXT((ROW()-COLUMNS(A:$F))*ISERR($K$11 D1:H8),"[>2]　;;●")

ＲＣＣもハイブリッドもエンジン部分の文字数は
同じかと思っていたのですが・・・さて、どんな工夫や技があるのか、
５７・５５文字を達成された方がおられますので非常に楽しみです。

えくせるバカ

Comments

[投稿情報: くまぷー]

いや～、Textですか～
こんな手を使ってくるとは思ってもみなかった！！

[投稿情報: くまぷー]

ハイブリッドは最初に作った６１から動かなかった・・・(^O^)

=LEFT("@",OR(ROW()-COLUMNS(A:$F)={0,1,2},ISREF($K$11 D1:H8)))

ハイブリッドじゃないのはRCCRの７０文字

=LEFT("Q",OR(ROW()-COLUMNS(A:$F)={0,1,2},(COLUMNS(A:$F)＜4)*(ROW()＞3)))

※不等号が、ブログ上では消えちゃうので全角を使っています。

[投稿情報: くまぷー]

風呂から出てきてみてみると・・・

だ、誰もいない・・・

[投稿情報: y sakuda]

今帰ってきました。えくせるバカさんの解答見ずに私のExcel58を投稿します。
果たして果たし同じだろうか^^

=LEFT("*",(COLUMNS(A:$F)-MIN(ROW()-1,(COLUMN()-6)^2))^2＜2)

ハイブリッドは59しか行きませんでした。
=LEFT("*",((COLUMNS(A:$F)-ROW()+1)^2＜2)+ISREF($K$11 D1:H8))

[投稿情報: y sakuda]

えくせるバカさんのと私の少し違うけど発想は同じみたいですね。
でも、Textと言うのは思いつかなかった。
くまぷーさんのハイブリッドは私の最初のと同じです。
={0,1,2}　をダイエットするのに-1して、-1～1に変えて自乗しました。これで2文字ダイエットです＾＾

[投稿情報: くまぷー]

＞果たして果たし同じだろうか^^

違いました。(^O^)
ほんと、いろいろな手を思いつくな～
カンシン、カンシン・・・と完全に観客モード・・・

[投稿情報: かず]

３分前にやっと解けましたが、７７文字です。
=LEFT("*",(ROW()-COLUMNS(A:$F)＞=0)-(ROW()-COLUMNS(A:$F)＞2)*(COLUMNS(A:$F)＞3))

[投稿情報: くまぷー]

お～、かずさん、どもです。
こんどのは点を表示させるセルの数が
多かったから、流石にK方式は厳しかったようですね(^^ゞ

[投稿情報: minmax]

電池なくなりそう・・
58は
=MID("*",LEN(MIN(ROW()-COLUMNS(A:$F),TYPE($I$1 B:F))*4),1)
56は
=IF(INT((ROW()-COLUMNS(A:$F))*TYPE($I$1 B:F)/33),"","*")
55は
=MID(" *",(ROW()-COLUMNS(A:$F))*TYPE($I$1 B:F)/48+3,1)
もうちょっとやる時間があれば１文字くらい縮まりそうなきもするな～

今回タイプを使ってみました

[投稿情報: minmax]

そうそう55はスペース２個です

[投稿情報: y sakuda]

Type?
関数自体は知ってますが、いったいどういう使い方してるんだ？
見ただけじゃ理解できない^^;
これから解析します・・・・・

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

今日もお仕事、再び大雪で
車の除雪、帰り道前はノーマル野郎が
トロトロ運転、はぁ～仕方ないが・・・。
とにかくやっと帰ってこれました。

おおっ、かず様解答ありがとうございます。
くまぷーさんの７０文字も、y sakudaさんのも５９・５８どれも予想外でビックリ(@o@
特にｙ sakudaさんの５９はテッキリ
=MID("●",LEN((ROW()-COLUMNS(A:$F))*ISERR($K$11 D1:H8)*4),1)
だと思ってたので、
５８もおそらく私のと同じだと・・・
minの使い方も違ってるし、、
いろいろあるもんですね～
・・・そしてminmaxさん、
ＴＹＰＥとは考えも及ばなかった、降参ですm(__)m

あと
ジョー3さん、kirさん、
ｋ＠自転さん、悪児さん、
出来たら来てくださいねぇ～(^_^)/

[投稿情報: くまぷー]

＞出来たら来てくださいねぇ～(^_^)/

きっちーさんも・・・d(^-^)ネ!

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

あっ、、、そうでした！！
大魔術師のきっちーさま
m(>_<)m、まってまーす

[投稿情報: ジョー３]

うわーーーーーー、、、、

[投稿情報: くまぷー]

>うわーーーーーー、、、、

この叫びの意味は？！

[投稿情報: y sakuda]

minmaxさんの・・・Typeはどう使っているのか理解できましたが、その後が・・・・
灰色魔術の部類ｗ

それにしても今回TextやらTypeやら新機軸が・・・・
そろそろ頭が固くなったσ(^^)ついてけないな・・・

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

>そろそろ頭が固くなったσ(^^)ついてけないな・・・
私はだいぶ物忘れが激しくなってきました(>_<)ﾔﾊﾞｯ

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

このまま「祭りのあと」はちょっとさびしいので
ジョー３さんのサイト
http://www.21style.jp/bbs/jsp55/index.html
に私が去年、印象的だった掲示板のトピを
「チャレンジ問題」として勝手に書き込ませていただきました。m(__)m
よかったらチャレンジしてﾈ！

[投稿情報: くまぷー]

メインのパソコン(DELL)が今朝
突然、昇天してしまいました。
今、ACERの39，800パソから
書き込みをしています。
これから、最低限の環境だけSet Upします。（TT)

[投稿情報: ジョー３]

みなさんすごいですーーーー
もちろん、、
Sakudaさんを、含めて、、・・・・
今日帰ってきたら、ゆっくり見てみたいです。・・・・・

[投稿情報: ジョー３]

きちんと見てないけど、、
textねーーー、、、いいですねーーー
ISREFを混ぜるのも、、いいですよねーーー
皆さんすごいです。
typeですかーーーー思いつかない！！です。＝いいなーーーー。。
なんか、、以前の、きっちー　さんのを、、、
なぜかしら、ふっと、、思ってしまった。

[投稿情報: y sakuda]

えくせるバカさんのRCCと私の58のエンジンは微妙に違うのでなんとかならないかと思っていじってみたら、どうやっても長くなった・・・
難しいものですね^^;

[投稿情報: y sakuda]

>メインのパソコン(DELL)が今朝突然、昇天してしまいました。

データは大丈夫ですか？
（合掌）

[投稿情報: くまぷー]

>データは大丈夫ですか？

ダメなのもあります。(TT)

「くまぷーのexcel道場」などの
サイトのファイル転送パスワードが
わからなくなってしまった・・・。(TT)

[投稿情報: y sakuda]

私も一月初めにPCがいかれて（結局修理してHDDの中身は大丈夫でした）少々困りました。
それ以来、月に１～２回のバックアップまでの間、当日変更（新規）のファイルをバックアップするようにしました^^;

[投稿情報: くまぷー]

凡人ですから、災害が起こるまで対策なし・・・

これを教訓として、地震対策として
飲料水でも買っておくか・・・

[投稿情報: くまぷー]

幸い、「表計算一筆書き」用の
ファイルはすべてJustのサーバーにあり、

かつ最近のものだから、パスワード暗記しているから
大丈夫だけど・・・

[投稿情報: kir]

こんにちは。57文字でした。
=LEFT("*",(ROW()-COLUMNS(A:$F)-1)^2*ISERR($K$11 D1:H8)<2)

[投稿情報: くまぷー]

お～、kirさん、どもです。
やはり、kirさん、短くまとめてきましたね！！

[投稿情報: y sakuda]

えくせるバカさんのハイブリッドでもアット思ったんですが、ISErrは思いつかなかった・・・・・
方形の部分をエラーにしてISREFをFalseにすると言う発想はあったんですが難しく考えすぎてた^^;

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

kirさんの５７文字待ってました(^O^)v
不思議なことに、こうして拝見すると
この５７文字が一番自然に思えますね…

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

minmaxさんの55文字
$K$1→$K1で一文字減少
54文字に出来ました。

[投稿情報: minmax]

島流し２日目
今日も帰りの船が出なかった。
明日は帰れると思う。
やっと携帯の電池も充電できたので書き込んでみました。
コメントに参加したかったー(T-T)

[投稿情報:]

おー
そうやれば1文字減少出来ますねー

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

>コメントに参加したかったー(T-T)
よし、よし、、(^^ゞ

[投稿情報: ジョー３]

>よかったらチャレンジしてﾈ！
うはっ、、、こっちも難しい。

[投稿情報: きっち－]

＞大魔術師のきっちーさま

いやいやいやいやいやいや・・・・

空き時間で構想していたものができました。

三四郎2007：５３文字

=If(Cols(A1:$F6)*0.91-Row(A1) MATCH "-.*[0|1|2]","●")

いつものＲＣです。

セミナーはのこり一週間。

[投稿情報: きっちー]

ミスった。

５１文字

=If(Cols(A1:$F6)*0.91-Row(A1) MATCH "-.*[0-2]","●")

[投稿情報: ジョー３]

ありゃりゃ、、、

[投稿情報: くまぷー]

＞５１文字

＞=If(Cols(A1:$F6)*0.91-Row(A1) MATCH "-.*[0-2]","●")

ぐ、ぐげぇ～、51文字！！
よくこんなのを思いつくな～！！

流石、大魔道士！！

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

おお、大魔術師でMr.三四郎の
きっちーさま登場！で最短・・・
三四郎ではMATCHがこんな風に使えるんですね～

Excel（VBA)のLIKE演算子にも似てますが、
Excelに変換するとどうなるのかなぁー？

[投稿情報: y sakuda]

うーん、これは長くしてもExcelには直しづらい^^;

[投稿情報: くまぷー]

三四郎のヘルプにはLIKE演算子は
出ているが、MATCH演算子は出てこない。
正規表現を使っているようなのだが・・・
結局、知識不足でようわかりまへん。

参りました。◇＼(o・Ｑ・o)／◇