１３マクロ館＋日光・自然＆フィギュアスケート 大好き！！

「カリフォルニア・ポピー」悪児解答

黒魔術です。(^^)ゞ

　

三四郎55
=Mid("** *",(Rows(A1:A$6)+3)*(Cols(A1:$F1)+3) MOD 13,1)
Excel55
=MID("** *",MOD((ROWS(1:$6)+3)*(COLUMNS(A:$F)+3),13),1)

「皇帝」への道

三角関数版　三四郎50への道

はじめは、

=If(Atan2(6-Row(A1),6-Col(A1)) MOD (Pi()/2)<=Pi()/4,"*")

で行くかな、と思ったんです。
一周２πですから、９０°（π／２）ごとに区切って、
そのさらに半分の４５°（π／４）以下を選択すれば･･･

ところが、やってみると、負の部分は上手くいかない。

三四郎のmodは、負数だと、負数が返るんですね。
Excelは負数でも正数が返るので、中央のエラーを除けば

=LEFT("*",(MOD(ATAN2(ROW()-6,COLUMN()-6),PI()/2)<=PI()/4))

で、できてしまいます。

そこで、負数を正数にするべく、あらかじめ全体にπを足すようにしました。

=If((Atan2(6-Row(M4),6-Col(M4))+Pi()) MOD (Pi()/2)<=Pi()/4,"*")

これが、初期作(63文字)で、この時点で、
95未満達成＆最短予測52文字をアップしました。
あとは減量です。PI()を使うと長いので、近似値で誤魔化す。
その結果、55文字になりました。

=If((Atan2(6-Row(A1),6-Col(A1))+Pi()) MOD 1.57<0.8,"*")

さらなる減量のターゲットは、Pi()と0.8です。
どちらも整数にできれば、５文字減らせます。
ここで、MOD 1.57後の数値を見ると、
空白部分の最小値が0.90、＊部分の最大値が0.79
ということは、0.1以上0.2以下の数を全体に足すと
0.8を1にすることができる。
そこで、πを約0.16プラスの3.3にして、

=If((Atan2(6-Row(A1),6-Col(A1))+3.3) MOD 1.57<1,"*")

52文字到達。ここで、さらに、3.3を整数にするべく、
1.57の整数倍を表示させて、1.57×５＝7.85より、8を発見して、
最終形(50文字)

=If((Atan2(6-Row(A1),6-Col(A1))+8) MOD 1.57<1,"*")

ができました。

sinは、その時点までは、考えていませんでした。
家に帰って覗いてみると、もう、ネタばれ状態で・・・

「皇帝」悪児解答

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　問題はこちら

今回は、３つ。

自慢は、三四郎＆Excel69
でも、同じ発想の方居そうですね。(^_^)(^_^)/~

三角関数使用

三四郎50
=If((Atan2(6-Row(A1),6-Col(A1))+8) MOD 1.57<1,"*")
Excel56
=LEFT("*",((MOD(ATAN2(6-ROW(),6.1-COLUMN())+8,1.57)))<1

非三角関数

三四郎81
=If((Max((Row(A1)-6)/(Col(A1)-6.1),(Col(A1)-6)/(6.1-Row(A1)))*10+7) DIV 8=1,,"*")
Excel84
=IF(INT((MAX((ROW()-6)/(COLUMN()-6.1),(COLUMN()-6)/(6.1-ROW()))+0.8)/0.81)=1,"","*")

三四郎69
=If((Rows(A1:A$6)/Cols(A1:$F1))^Sign((Row(A1)-6)*(Col(A1)-6))>=1,"*")
Excel69
=LEFT("*",(ROWS(1:$6)/COLUMNS(A:$F))^SIGN((ROW()-6)*(COLUMN()-6))>=1)

三四郎とExcelが同じ文字数になるのも、珍しい。(^^)(^^)

「中」への道05

　何度も考えたこと、Col()の引数に、A0とか、A-1とかが使えたら・・・。何度目かにまた同じことを考えたところで、気づきました。マイナスでも良いんだ。ということは、MODが省略できるので、大幅に減らせるはず・・・。Ｆ列を0にするのだから、Col(A1)-6でＯＫ。やってみると・・・

=If((2^(3-Rows(A1:A$6))-1)*(Col(A1)-6) MOD 5,,"*")

　見事、一気に５文字減で、三四郎50の完成。＼(^O^)／
  しかしまた電車が停止。今度は、現場検証だそうです。三鷹駅で止まったまま動きません。とりあえず、三四郎50になったので、一筆書きは一旦終わりにして、仕事を始めました。電車がとまると、いつもならＪＲ東日本の対応に腹が立ってしかたがないのだけど（なんで、三鷹折り返しで運転しないの？とか）、今日に限っては、お陰で、三四郎50ができたので、腹立ちも中くらい。(^^)ﾍﾞ　結局、１時間弱遅刻。約束には間に合った。しかし、土曜は、インターネットへの接続がままならない。とりあえず、三四郎50宣言をアップ。話しが終わって、ちょっとだけ暇ができた。７時２０分になったら、もう仕事以外何もできない。さて、50を切れるか・・・。
　ＲとＣどっちが縮められるか。Ｒはもう無理そう（実は無理じゃなく、きっしーさんはちゃんと縮めていたのだった）。Ｃにターゲットを絞る。また、F1にCol(A0)が入れば･･･。が頭に浮かぶ。浮かぶ。浮かぶ。ちょっと待てよ・・・待てよ・・・。0じゃなくても、分母を消せれば・・・。１行目の分母は、2^(-3)=1/8。ということは、Ｆ列を40にすると、Ａ列は35、Ｋ列は45、できるジャン。＼(^O^)／ 35ということは、35-26=9で、アルファベットの9番目は、abcdefghiで、「i」。ということは、引数をAI1にすればＯＫ。(^^)(^^)

=If(Fp((2^(3-Rows(A1:A$6))-1)*Col(AI1)/5),,"*")

　できた、三四郎47だ。やったぁ～～＼(^O^)／

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道04≫

「中」への道04

　電車はなかなか動きません。悪児の頭もなかなか動かず、進展しません。「救出作業は終わったが、車両に異常があるようで、現在点検中。さらに時間がかかる」というアナウンス。定刻から１時間半後に、人と会う約束があるので、それまでには行かなくてはならないのですが、車両故障まで発生したとなると・・・。それ以上遅れる可能性が出たかな、と思いましたが、もう腹をくくったのです。そのまま、一筆書きを考え続けました。と、そうか、2.5でも良いんだ、と思いつきました。2.5でも整数までなら、５で割るとあまりがでるんだ。早速、5^()の5を2に代えてみました。
　
=If(2^(2-Abs(Row(A1)-6))*(Col(E1) MOD 10) MOD 5,,"*")

　これで、１＆１１列はＯＫです。あとは、４行目と８行目を0にする。
  こっちは、直ぐに思いつきました。０乗して１になっているので、それから、１を引けばよい。他の行は、１を引いても、整数は整数、小数は小数のままだから、影響ない。そう思ってやってみると、

=If((2^(2-Abs(Row(A1)-6))-1)*(Col(E1) MOD 10) MOD 5,,"*")

　できました。できました。(^^)(^^)　三四郎57文字。
　まだ、57文字ですが、いかにも無駄が多そうな式で、まだまだ削れそうです。電車はまだ動きません。ということは、まだまだ時間があります。まずは、Ｒの方。これは、いつものパターンで、Abs()を使うのであれば、Rows()を使った方が、短くなることが多い。早速書き換えです。

=If((2^(3-Rows(A1:A$6))-1)*(Col(E1) MOD 10) MOD 5,,"*")

　三四郎55。２文字短縮です。次は、Ｃの方。現在は、A1セルのColの引数に「E1」を入れ、それを10で割った余りを求めることによって、Ａ列Ｋ列は５、Ｆ列は０が返るようになっています。考えているうちに、やっと電車が動き始めました。これで、最低約束の時間には間に合いそうです。しかし、着くまでにあと５文字、何とか、縮めたい・・・

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道03≫　　　　　　≪「中」への道05≫　　　　　　

「中」への道03

　一段階での解法ですが、もちろん、出かける前にも少し考えていました。まずやってみたのは、mid()と黒魔術による方法。

=Mid("* *",(((6-Row(A1))^4-16)*(Cols(A1:$F6)-1)+200) DIV 65,1)

　できたことはできたのですが、62文字。
　まだまだ削れそうですがそれでも、50字にはとても届きそうにない。
　あとは、やはり、５の倍数化しかないか・・・そう思いながら家を出たのでした。
　電車に座って、ＰＣを取り出し開きながら考えました。まず、Ｃ方向の４行目と８行目および、Ｒ方向の６列目を０にする、これは間違いない。すると、１列目と１１列目は５の倍数になり、他は５の倍数ではなくなるので、あとは四隅の１２点を何とか５の倍数ではなくすればよい・・・、そう整理したところで、閃きました。１－３（９－１１）行の分母に５を入れてやれば良い・・・。早速作ってみました。

=If(5^(2-Abs(Row(A1)-6))*(Col(E1) MOD 10) MOD 5,,"*")

　しかし、結果は・・・。
　Ａ．５^0は0ではなく1になるので、４行目８行目が"*"にならない。
　Ｂ．内側の行は、５の倍数になってしまうので、すべて"*"になってしまう。

　ダメか、と思ったところで、乗り換えでした。
　乗り換えたのは中央快速線。座れたので、ＰＣを取り出しました。しかし、なかなか電車が動かない。変だ、と思ったところで、アナウンスがありました。「人身事故のため、運転を見合わせます。現在、救出中。運転再開の見込みは立ってません」今日はいつもよりも家を出るのが遅れて（もちろん一筆書きのせい）、結構ぎりぎりです。他に迂回路もないので、遅刻はもう確実。ただ、緩行線に乗り換えて、三鷹まで行っていれば少しは早く着けるんだけど、それをやると、ずっと立ち通しになる可能性が大。座っていれば、仕事もできるし、「一筆書き」もできる(^^)(^^)。ということで、腹を据えて、そのまま座っていることにしました。もちろん、仕事より、一筆書き優先。(^^;(^^;)

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道02≫　　　　　　≪「中」への道04≫

「中」への道02

　「中級？初級？」であって、「初級？中級？」ではないのには、理由が２つありました。
  １つは、問題が「中」だから、「中」で始めた。
　もう１つは、一見中級、でも、ホントは（長方形が書ければ）初級では？ということ。
　つまり、「長方形を見つけて５６文字」が最終解答だから、それなら、結構簡単に解けるのでは、と思っていたのです。従って、金曜昼の時点で、01の文を書くと共に、もうひとつ、こんなことを画策していたのでした。(^^)ゞ
　「明日昼辺り、発展問題を追加したいと思っていますが、如何でしょう？」
　出題した「中」より難しい関連問題を土曜昼に日曜２０時までの発展問題として追加出題しようと考え、それをくまぷーさんに提案していたのです。
　この日はその後出勤し、２３時過ぎ帰宅するまでインターネットには接続しませんでした。で、帰宅してパソコンを立ち上げると・・・。
　くまぷーさんから、三四郎５５文字。minmaxさんから、四捨五入で５０文字、という宣言が上がっていたのです。びっくりしました。まさか、５６文字が破られるとは・・・。もちろん、発展問題は、中止。出題者悪児は失脚して、解答者悪児の出番です。とはいえ週末は忙しい。それに、あれだけ時間があって、もうこれ以上はできない、と判断したのに・・・。結局、金曜は、寝る前、しばらく５６文字の減量を中心に考えましたが、むろん、進展のないままでした。
　そして翌朝、さらに衝撃的な宣言が・・・(^^;)(^^;)
　minmaxさんから、Excel、三四郎５０文字の宣言。そして、きっちーさんからも、三四郎５０文字の宣言です。５５や、５４位なら、二段階でも、と思っていましたが、５０文字となると、もう、一段階に違いない。根本的に考え直さなくてはならない、ということです。しかし、土曜はずっと仕事。インターネットを覗くこと自体がほとんどできない、果たして間に合うか・・・。そう思いながら、「出題者悪児の解答」をくまぷーさんにメールで送ってから、家を出ました。（続く）

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道01≫　　　　　　≪「中」への道03≫

「中」への道01

　「田」に触発されて思いついた「中」ですが、思いついた当初は、当然、「田」より断然難しそうに思えました。
　縦３本と横２本を書くのは簡単ですが、その縦３本のうち、両側の２本だけ、上下をカットして、真ん中はそのまま残す。それが難しそうに思えたわけです。
　まず浮かんだのが、「円」でした。消さねばならない四隅の「A1:A3」は、すべて、F6を中心としてA4を通る円の外側にあり、表示しなければならない「中」は円の内側にありますから、縦３本横２本を書いて、円の外側を消すというものでした。

三四郎69
=If(Fp(Row(A1)/4)*Fp(Col(E1)/5)+(SumSq(6-Row(A1),6-Col(A1))>30),,"*")
Excel75
=IF(MOD(ROW(),4)*(MOD(COLUMN(E1),5))+(SUMSQ(6-ROW(),6-COLUMN())>30),"","*")

　もちろん、思いついた当時はまだSUMSQを見つけていませんでしたから、もっと文字数は多かったのですが。(^^)ﾍﾞ

　しかし、その後直ぐに、思いつきました。正方形が書けるなら、長方形も書けるだろう、ということです。「中」の長方形部分は、縦棒がF6から5の距離。横棒がF6から2の距離ですから、横棒の方の距離を2.5倍してやれば、F6から5の距離の正方形と同じように描くことができます。それが、これですね。

三四郎
=If(Max(Abs((6-Row(A1))*2.5),Abs(6-Col(A1)))=5,"*")
Excel
=IF(MAX(ABS((6-ROW())*2.5),ABS(6-COLUMN()))=5,"*","")

　というわけで、「長方形を書く」というのがこの問題のテーマになりました。真ん中の縦棒は、「おまけ」というか、むしろ「長方形」を隠すための「フェイント」みたいなものになりました。これまで含めて１段階で書ければもっと文字数を減らせると思いますが、それはちょっと無理なようです。で、あとは無駄を省いて、

三四郎56
=If(Max(Rows(A1:A$6)*2,Cols(A1:$F1))=6 OR Col(A1)=6,"*")
Excel59
'=LEFT("*",(MAX(ROWS(1:$6)*2,COLUMNS(A:$F))=6)+(COLUMN()=6))
=LEFT("*",OR(MAX(ROWS(1:$6)*2,COLUMNS(A:$F))=6,COLUMN()=6))

になりました。

－－－－－－－－－－－－－－－－－－－－－

と、以上の文を書いたのは、９日（金）のお昼過ぎでした。
その時点では、三四郎は悪児の５６文字（きっちーさんも５６文字）、
Excelは悪児とminmaxさんの５９文字が最短でした。

ところが、その後、思いもかけなかった展開に・・・（続く）

－－－－－－－－－－－－－－－－－－－－－－－－－－

　　　　　　　　　　　　≪「中」への道02≫

三四郎マクロ「表計算一筆書き作成」

表計算一筆書きで、

三四郎を使用する場合の支援マクロを作成しました。

入力したい数式をA1または、F6に入力して、実行して下さい。

（数式が入力されていない場合はシートのフォーマットのみ行います）

!! 表計算一筆書き作成 - - -
!!                      for 三四郎2007
!!                      2007.11.06
!! 実行法：A1かF6に式を入力して実行する
!! 式が未入力の場合は、シートの体裁だけ整える。
    Range("A1:K1").EntireColumn.Select()
    Selections.Surface.ColumnWidth = 3
    Selections.Release()
    if Range("A1").Formula = nil then
        Range("F6").CopyTo(Range("A1"),,3)
    end if   
    Range("A1").CopyTo(Range("A1:K11"),,3) 
    Range("M2").Formula = "=GetCellString(A1)"
    Range("M3").Formula = "=Len(M2)"
end

「女王陛下の旗」への道

表計算一筆書き、「女王陛下への道」

http://kumapooh.justblog.jp/blog/2007/11/post_39db.html#comment-2456489

を見て、最初に思いついたのは、中心を起点として考えると、十字部分は、ＲＣどちらかが、0。バッテン部分は、ＲＣの絶対値が同じ。ということ。

つまり、ＲＣの積が十字部分が0で、バッテン部分が平方数になる。ということは、0も平方数だから、何だ、簡単じゃん、ということで、作ったのが、

=If(Fp(Sqrt(Abs((6-Row(A1))*(6-Col(A1))))),,"*")

同じようなものを作った方、多かったでしょうね。(^^)(^^)

ところが、これだと、E2など、中心から、(1,4)の位置にある、余計な８点も「*」になってしまう・・・。

ここで、一旦止まっちゃいました。
余計な８点を削除する方法が見つからない・・・
しばらく、他の方法で、三四郎57を作って、これで終わりかなぁ、などと思っていました。

しかし、そこで、閃きました。(^^)(^^)
バッテン部分は、ＲＣ同じだから、ＲＣＣにしても、ＲＲＣにしても、Ｒ（Ｃ）の３乗になる。

十字部分は、ＲＣＣにしても、ＲＲＣにしても、0、つまり、0の３乗になる。
一方、お邪魔虫部分(E2等)は、ＲＣＣにしても、ＲＲＣにしても、Ｒ（Ｃ）の３乗にはならない。
これで、できた＼(^o^)／　という感じでした。
作ったのは、三四郎50

=If(Fp(Abs((6-Row(A1))*(6-Col(A1))^2)^(1/3)),,"*")

あとは、減量です。負数の平方根はエラーになりますから、absを付けましたが、負数の立方根は存在するので、absは外せる　(^^)(^^)、そう思って作った

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^(1/3)),,"*")

は、しかし、なぜかエラーになってしまうのです。(-_-;)(-_-;)
調べてみると、三四郎では、負数の立方根を求めると、エラーになっちゃうんですね。(-_-;)(-_-;)　Excelでは、もちろんＯＫですから、これはバグでしょう・・・(;_;)(;_;)

で、縮められたのは、absを^2にすることで1文字だけ。

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")

このよけいな、「^2」を除けばとても綺麗な式で、数値も試行錯誤の必要がないもので、非常に気に入り、これで満足してしまいました。

しかし、答え合わせ後、minmaxさんの手法を頂くと、さらに2文字減らせることが分かりました。

=If(Fp(((6-Row(A1))^4*(6-Col(A1))^6)^0.1),,"*")
=If(Fp(((6-Row(A1))*(6-Col(A1))^4)^2^0.2),,"*")

特に後者は、負数の立方根が求められるのであれば（三四郎のバグがなければ）、45文字になって、きっちーさんの三角関数46文字を抜けたので、ますます、三四郎のバグが情けない・・・(^^;)(^^;)

この、三四郎49ができて、もう、縮められないと判断して、着手したのが、三角関数版です。
くまぷーさんから、変化球宣言が出ていましたが、Excelはできたけど、三四郎は短くならない、というコメントが出たので、くまぷーさんは、三角関数じゃないだろうな、と思いましたが、きっちーさんは、
多分三角関数だろう、と思いました。
そこで、今回初めて、三角関数に挑戦しました。Atan2の存在を知らなかったので、AtanやAngleで、中心がエラーになるのに悩みましたが、Atan2を見つけてからは、結構簡単でした。できたのは、

=If(Len(Atan2(Row(A1)-6,Col(A1)-6)/Pi())<6,"*")

など、三四郎47三種類。
エンジン部分は同じで、その記号化の手法が違いますが、三四郎の場合、文字数は変わらないことがほとんどのようですね。

その後、きっちーさんの三四郎46宣言を受けて、sinやcosも試したのですが、0<>0が5=5になる、というのには、全く気付かず、完敗でした。(^^)ゞ

でも、悪児的には、三四郎49

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")

が、今でも、一番気に入っています。(^^)(^^)

「女王陛下の旗」悪児解答

１．今回の自慢解答。(^^)ゞ
　基本の「お決まり」の関数のみ。

三四郎49
=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")
Excel 50
=LEFT("*",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3))<3)
=MID("**",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3)),1)

２．悪児最短
　３種類あるけど、みんな、長さも、基本も同じ。(^^;)(^^;)

三四郎47
=If(Atan2(Row(A1)-6,Col(A1)-6)*4 MOD Pi(),,"*")
=If(Fp(Atan2(Row(A1)-6,Col(A1)-6)*4/Pi()),,"*")
=If(Len(Atan2(Row(A1)-6,Col(A1)-6)/Pi())<6,"*")

　Excelでは、エラーになってしまう・・・(-_-;)(-_-;)
　（まぁ、三四郎47がExcelでは、48に当たることの証明、ということで）
Excel48（ちょいズル）
=LEFT("#",LEN(ATAN2(ROW()-6,COLUMN()-6)/PI())<6)

３．最初の60切り

三四郎56
=If(Fp((Abs(Rows(A1:A$6)^2-Cols(A1:$F1)^2)+1)^0.5),,"*")
Excel58
=MID("*",LEN(SQRT(ABS(ROWS(1:$6)^2-COLUMNS(A:$F)^2)+1)),1)

４．基本的な方法
三四郎60
=If((Row(A1)=6)+(Col(A1)=6)+(Rows(A1:A$6)=Cols(A1:$F1)),"*")
Excel60
=LEFT("*",(ROW()=6)+(COLUMN()=6)+(ROWS(1:$6)=COLUMNS(A:$F)))

「星のまたたき」悪児解答

表計算一筆書き「星のまたたき」

http://kumapooh.justblog.jp/blog/2007/10/post_f659.html

悪児解答

三四郎ズル３つ＆Excelズル無し＆お遊び

（ろくなものないです。(^^;)(^^;)）

三四郎

１．循環＆カスタマイズ

=If($F$6=1,--(SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5),--(Rows(A1:A$6)+Cols(A1:$F6)<=5))

（ズル：F6の表示形式を　[E;=1]"";[E;=0]"*"　にカスタマイズ）

２．循環＆作業セル

=If(If($L$1,SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

（ズル：L1に　=L2 MOD 2　L2に　=L1+1）

３．Now利用：必ず変わるわけではない

=If(If(IsOdd(Second(Now())),SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

Excel

１．ズル無し（循環小数）

=IF(IF($H$11="",INT(SUMSQ(ROW()-6,COLUMN()-6)/5)=5,ROWS(A1:A$6)+COLUMNS(A1:$F6)<=5),IF(INT(RAND()*2),"★","☆"),"")

２．お遊び（F9を押し続けると、瞬きます：Now利用：形不正確）

=MID("　★☆ ☆ ★☆     ",(MID(NOW()&REPT("0",15),13,1)+SUMSQ(ROW()-6,COLUMN()-6))/4+1,1)

コスモス悪児解答（三43Ex45

表計算一筆書き、

「コスモス」

http://kumapooh.justblog.jp/blog/2007/10/post_6d9a.html#comments

の悪児解答です。

皆さんと同じだと思いますが・・・(^^)(^^)

三四郎43

=If(Ip(SumSq(6-Row(A1),6-Col(A1))/5)=5,"*")

Excel45

=LEFT("*",INT(SUMSQ(6-ROW(),6-COLUMN())/5)=5)

「小田代湖]悪児解答（三四郎62）

悪児の三四郎62文字です。(^^)(^^)

基本は、二段階で変わりませんが、
外枠の取得を大いに短縮できました。＼(^o^)／

=If(Find(5,Row(E5) & Col(E5))+Lcm(Row(C3),Col(C3)) MOD 4,,"*")

ExcelではFind()で検索文字が見つからないと、
エラーになるので使えません。(-_-;)(-_-;)
お節介Excelめ ！！

小田代湖

表計算一筆書きの、今週の問題は、

悪児が出題した、「小田代湖」

別に、小田代湖とは何の関係もなく、

前回のくまぷーさん出題の「田」（タイトルは「交響曲第６番」）より、

　

　

　一回り「小さい田」を書け、というもの。

結構難しいだろうと思ったが、

問題作成時に用意していた、三四郎71文字、Excel77文字の解答が、

ジョー３のExcel  62文字に、あっさりと破られてしまった。

出題者としては、完敗である。(^^;)(^^;)

あわてて、解答者悪児として、三四郎62文字を作ったが、

Excelは、75文字から、進まない。Excel 62文字、

早く見てみたいものだ。(^^)ゞ

なお、問題作成者としては、予想以上に奥深い問題で、

満足しています。(^^)(^^)

表計算一筆書き：田園_悪児解答

くまぷーさんの、表計算一筆書き、「交響曲第６番田園」

http://kumapooh.justblog.jp/blog/2007/10/post_71d8.html

の、悪児の解答です。

三四郎（３１文字）

=If(Row(E5)*Col(E5) MOD 5,,"*")

Excel（３７文字）

=IF(MOD(ROW(E5)*COLUMN(E5),5),"","*")

みなさんと、同じでしょう。(^^)(^^)

表計算一筆書き

くまぷーさんが、
出題していた三四郎＆Excelの問題、
「ピラミッドを書こう」
などを、

表計算一筆書き

と命名した。

まだまだ、続くようだ。(^^)(^^)

また初心者向け解説も始まったので、
まだチャレンジしていない方は、
ぜひ読んでみましょう。(^_^)(^_^)/~

http://kumapooh.justblog.jp/blog/2007/10/post_a74f.html

三四郎マクロ「乱数入力」

マクロ名　「乱数入力」

機能　　範囲指定したセルに１からセル数までの連続数をランダムに入力する

実行法　乱数を入力したいセルを範囲指定して実行する。

ダウンロードは、こちらから。

http://members2.jcom.home.ne.jp/r_watanabe/3mcr/003smc.lzh

手裏剣への道03（了）

７．切り捨てではなく、切り上げ。
　0と1の間に仕切を入れるには、どうすればよいか？
DIVのやることは、切り捨てだけど、これを切り上げにすれば、0と1は区別される、
ということに気付くまで、ちょっとかかってしまった。で気付いて作ったのが、次の式。

=Mid(" *  * *       *",RoundUp(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

69文字。
これで、見事、70文字を切って、手裏剣が完成。＼(^o^)／
（第３のハードルクリア(^^)(^^)）

ここまで、約２５分ほど。
ここで、70文字を切った、というコメントを出したのだった。(^^)(^^)

８．文字数の削減。
　あとは、更なる文字数の削減。RoundUp()は普段多用しているけど、切り上げに使える別な関数があったはず・・・。そんな記憶があったので、調べて、Ceilを見つけ、交換して、66文字。切り捨ては、Ipというもっと短いのがあったので、96で割ったときに、商を切り捨てて、0は1にし、1は2にするには、96*2-1の191を加えておけばよい、ということで、Ip版を作ったが、これも66文字。では、DIVを使ったら、と試したが、こちらも、66文字。
Excelでも、66文字が最短だった。

三四郎の３種の中では、

=Mid(" *  * *       *",Ceil(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

が、一番綺麗かな？
また、見慣れない関数は使っていない、という点では、

=Mid(" *  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4+191) DIV 96,1)

が、ベストかも。(^^)(^^)

手裏剣への道02

５．If()じゃ、ダメ。
　さて、「カスタマイズ」の式をif関数を使ってセルに書き込むことはできるけど、それではもちろんとんでもない長さになってしまう。ifが使えるのは、２択かせいぜい３択まで。ここは、最低６択になるのだから、ifではダメ。ではどうすれば良いか。

６．Mid()による条件分岐。
　はるか昔、N88DISKBasicというのを使っていた頃・・・。長いプログラムを書く場合、メモリの関係で、できるだけ文字数を少なくしたかった。そこで多用したのが、Mid関数による条件分岐。フラッグが１なら、ｙを、２なら、ｎを、３なら、ｆを表示させたい場合に、
%sel = Mid("ynf",%flag,1)とやるわけである。ここも、数値をいくつかに区切って、それに対応させて★の表示非表示をさせれば良いのだ。もちろん、いくつずつに区切ったら良いのか、それは試行錯誤するしかないなぁ、と思って次の式を作った。

=((Row(E6)-6)^4+(Col(E6)-6)^4) DIV $M$1

これで、M1に、色んな数字を入れていけば・・・。で、最初の数字は・・・。
(1) できるだけ大きな数字が良い。
(2) 0は、非表示で、1は★、次の非表示は97。
ということは、当然、96ですね。
で、96を入れてみたら・・・。

　　

　　

　　

なんと、★とするセルは、0,3,5,13となり、
真ん中を除いて、非表示のセルとの重複はないではないか。＼(^o^)／
まだ、真ん中が、★になっているけど、これを使って式にすると、

=Mid("*  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4) DIV 96+1,1)

これで、中心が★になってしまうことを除けば、手裏剣が書けたのだ。
文字数は、63。あとは、中心をどうするかだけど・・・

これで、第２のハードルクリア(^^)(^^)

手裏剣への道01

＞悪児さんはどのような発想から
＞このような式を思いつくのか？？？

というご質問を頂きましたので、お答えします。(^^)ゞ

０．特殊関数は捨てる。
　HarMean()のような、得体の知れない関数（(^^;)(^^;)）を使うという可能性は当然考えた。しかし、図形から浮かんでくるものはないし、片端から調べるのは趣味ではないので、この路線は捨てることにした。

１．点対称にこだわる。
　形は点対称。ということは、Row(A1)-6とCol(A1)-6を使うことは必須。これを使って７０字未満ということは、両者とも、１度しか使えない筈。で、これを使って各セルを数値化する式を考える。

２．まず２乗。
　まず考えたのは、多分皆さん考えたと思うけれど、２乗の和。

=(Row(F6)-6)^2+(Col(F6)-6)^2

　これを使えば、真ん中の円の部分は簡単に取れる。でも、羽の部分と中心を見て、これでは不可能ということが判明する：この式をA1:K11にコピペすると、次のような数値になる。

 

　

　

　

　　

　　

これでは、★を表示させるB3と表示させないA6が同じ25になってしまうのだ。

３．次いで、４乗。
　次に考えたのは、当然、４乗の和。

=(Row(F6)-6)^4+(Col(F6)-6)^4

すると、数値の重複が（ほとんど？）なくなるのだ。

　　

　　

　　

　　

　　

　　

４．まず、ズル。
　これで、三四郎の場合、「ズル」を使うとできてしまう。(^^)(^^)
　「ズル」とは、Excelの「セル書式」の「ユーザー定義」に当たる、「表示形式」の「カスタマイズ」。ここに、

[E;>1200]"*";[E;>=600]"";[E;>=300]"*";[E;>=90]"";[E;>0]"*";[E;=0]""

を指定すると、手裏剣が表示されるのだ。(^^)(^^)
Excelでは、４種類しか指定できないが、三四郎では、制限がないので、６種類くらいは楽勝なのだ。＼(^o^)／

これで、第１のハードルクリア。(^^)(^^)　(続く）

手裏剣解答

三四郎（66文字）

全部、66文字。変わらなかった・・・(^^;)(^^;)

１．
=Mid(" *  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4+189) DIV 95,1)
２．
=Mid(" *  * *       *",Ip(((Row(F6)-6)^4+(Col(F6)-6)^4+191)/96),1)
３．
=Mid(" *  * *       *",Ceil(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

ズルを使うと、(28文字)
=(Row(F6)-6)^4+(Col(F6)-6)^4

Excel（66文字）

Excelでも、66文字でした。

=MID(" *  * *       *",INT(((ROW()-6)^4+(COLUMN()-6)^4+189)/95),1)

ストライク＆手裏剣

くまぷーさんの、三四郎（＆Excel）図形シリーズ、

第３弾は、「ストライク」

http://kumapooh.justblog.jp/blog/2007/09/post_49a6.html

第四弾は、「手裏剣」

http://kumapooh.justblog.jp/blog/2007/09/post_428e.html

だった。

　「ストライク」は、正直、ちょっとやさし過ぎて（＆工夫の余地もほとんどなく）、あまり面白くなかったが、「手裏剣」は、結構難問。ハードルが３つあるんだけど、その第１がなかなか気付きにくい。言い換えれば、気付けば、そんなことか、ってことなんだけど。

　ハードルの２・３は、if文より効率の良い条件分けの手法。これは、if嫌いの悪児の場合、以前（N88DISKBASICの時から）から使っていたもので簡単なのだけど、ifを常用している人には難しいかも。(^^)ゞ。でも、くまぷーさんは、if使いな筈だから、悪児とは、違う方法かしら？(^^)(^^)。

　答え合わせが、楽しみ。(^_^)(^_^)/~

三四郎vsExcel_02（三四郎でピラミッドより）

三四郎でピラミッド
（詳しくは、↓
http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html
　　　　　　　　　　　　　　　　　　　　　　　　　）

を、

１．他の機能を使って、数式だけより短い式で。

解く解答だが、これもExcel組はほとんどの人が気がついたようだ。

一般解答
[三四郎]
=If(Abs(6-Col(A1))-Row(A1)＜0,"*")

[Excel]
=IF(ABS(6-COLUMN())-ROW()＜0,"*","")

から、数値を文字列に変換する部分を省いて、

[三四郎]
=Abs(6-Col(A1))-Row(A1)

[Excel]
=ABS(6-COLUMN())-ROW()

を入力する。
あとは、この結果が、
負になる場合に"*"、それ以外は""を表示させるよう、
セルの表示形式を書式文字を使って設定する。

その方法は、
[三四郎]
「書式」－「表示形式」で右下の「カスタマイズ」をクリックして、
下の、表示書式に、
[E;<0][C;黒]"*";" "
と入力すると、負の場合、黒文字で、"*"を表示し、
それ以外は、何も表示しない、という指定ができる。

[Excel]
「書式」－「セル」－「ユーザー定義」で、
;"*";;
と入力すると、負の場合"*"を表示し、それ以外は何も表示しない、
という指定ができる。

一見、Excelの方が、簡単そうに見えるが、
それは、Excelが最大４種の設定までしかできないからで、
三四郎の方が、遙かに細かく書式設定をすることができる。

三四郎でぐるぐる渦巻き_悪児解答６

最後に、もうひとつお遊び。
左上１／４だと、行列の小さい方の奇数偶数で、*の有無を判定できるので、
左上はそれで判定し、残りはそのミラー表示。
ミラー表示が、思ったより遙かに面倒だった。(^^;)(^^;)

三四郎（129文字）
=If(Row(A1)＞6,Index(A$1:A$6,1,12-Row(A1)) & "",If(Col(A1)＞6,Index($A1:$E1,12-Col(A1),1) & "",If(Min(Row(A1),Col(A1)) MOD 2,"*")))

Excel（111文字）
=IF(ROW()＞6,OFFSET(A$6,6-ROW(),0),IF(COLUMN()＞6,OFFSET($F1,0,6-COLUMN()),LEFT("*",MOD(MIN(ROW(),COLUMN()),2))))

offsetが使える分、Excelの方が、簡単。

三四郎でぐるぐる渦巻き_悪児解答５

そして、エンジンの短縮を思いついて、悪児最少文字数版

三四郎（47文字）
=If(Max((Row(A1)-6)^2,(Col(A1)-6)^2) MOD 2,"*")

Excel（49文字）
=LEFT("*",MOD(MAX((ROW()-6)^2,(COLUMN()-6)^2),2))

三四郎でぐるぐる渦巻き_悪児解答４

この単純版をもっと圧縮できないか、
というので作ったのが、単純四分割ミラー版

三四郎（106文字）
=Mid("*******     * ***** *   * * *** * * ",Abs(Row(A1)-1-10*(Row(A1)＞6))*6+Abs(Col(A1)-12*(Col(A1)＞6)),1)

Excel（145文字）
=LEFT("*",INDEX({1,1,1,1,1,1;1,0,0,0,0,0;1,0,1,1,1,1;1,0,1,0,0,0;1,0,1,0,1,1;1,0,1,0,1,0},ABS(ROW()-12*(ROW()＞6)),ABS(COLUMN()-12*(COLUMN()＞6))))

三四郎でぐるぐる渦巻き_悪児解答３

これでやめようと思ったけど、
馬鹿馬鹿しいのを思いついたので。(^^;)(^^;)

三四郎（154文字）
=Mid("************         ** ******* ** *     * ** * *** * ** * * * * ** * *** * ** *     * ** ******* **         ************",(Row(A1)-1)*11+Col(A1),1)

Excel（275文字）
=LEFT("*",INDEX({1,1,1,1,1,1,1,1,1,1,1;1,0,0,0,0,0,0,0,0,0,1;1,0,1,1,1,1,1,1,1,0,1;1,0,1,0,0,0,0,0,1,0,1;1,0,1,0,1,1,1,0,1,0,1;1,0,1,0,1,0,1,0,1,0,1;1,0,1,0,1,1,1,0,1,0,1;1,0,1,0,0,0,0,0,1,0,1;1,0,1,1,1,1,1,1,1,0,1;1,0,0,0,0,0,0,0,0,0,1;1,1,1,1,1,1,1,1,1,1,1},ROW(),COLUMN()))

Excelも、midを使えばもっと短くなるけど、
これが一番単純、ってことで。(^^)ゞ

三四郎でぐるぐる渦巻き_悪児解答２

で、三四郎では、ifの方が短くなるかな、ということで、
ifにすると、

三四郎（49文字）
=If(Max(Abs(Row(A1)-6),Abs(Col(A1)-6)) MOD 2,"*")

Excel（52文字）
=IF(MOD(MAX(ABS(ROW()-6),ABS(COLUMN()-6)),2),"*","")

で、三四郎は、Leftyoより、短くなりました。
ExcelはLeftの方が短いですね。

三四郎でぐるぐる渦巻き_悪児解答１

最初に作ったのは、

三四郎（51文字）
=Left("*",Max(Abs(Row(A1)-6),Abs(Col(A1)-6)) MOD 2)

Excel（51文字）
=LEFT("*",MOD(MAX(ABS(ROW()-6),ABS(COLUMN()-6)),2))

で、「*」の表示法ではなく、エンジンそのものは、これで決まり！
と思ってました。(^^)ゞ

今度は、三四郎でグルグル渦巻き、だって

もう、次のお題が出た。

三四郎でぐるぐる渦巻き、だそうだ。

詳しくは、↓こちら。

http://kumapooh.justblog.jp/blog/2007/09/post_21f4.html

風呂に入って考えていたら、

解法が閃いた。直ぐ閃いたので、皆さん直ぐに気付くかな？

と思ったら、結構そうでもないらしい。

今のところ、三四郎派の悪児ときっちーさんが、気付いているようだ。

Excel組に、勝てるかな？　(^^)(^^)

三四郎vsExcel_01（三四郎でピラミッドより）

三四郎でピラミッド
（詳しくは、↓
http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html
　　　　　　　　　　　　　　　　　　　　　　　　　）

に寄せられた解答で、一番オーソドックスなのは、
ABS()関数と、If関数を使ったもの。

三四郎では、31文字で

=If(Abs(6-Col(A1))＜Row(A1),"*")

Excelでは、33文字で

=IF(ABS(6-COLUMN())＜ROW(),"*","")

となる。
増減の収支は、
col関数とCOLUMN関数という関数名の差で、三四郎が－３
Row等の引数省略の可否で、Excelが－４
If関数の第２引数省略時の動作の差で、三四郎が－３
で、都合、三四郎の－２となる。

関数名の長さの差は、あまり意味がない。
（文字数の少なさを競う遊び以外ほとんど長さは関係ない）
Row等の引数省略は、三四郎でも可能であって欲しかった。
これは、Excelの勝ち。
If関数の第２引数省略時の動作。
Excelの方が詳細な設定ができるということで、
Excelの方が高機能といえるが、反面、
三四郎の「いい加減さ」も「融通が利く」ともいえて、
どちらがまさっているともいえない。

では、総合は？

皆さん、どう思います？

三四郎でピラミッド解答

三四郎とExcelの解答を↓にアップします。

ダウンロードして、ご覧下さい。

http://members2.jcom.home.ne.jp/r_watanabe/tmp/pyramide.lzh

三四郎でピラミッド・・・だと？

くまぷーさんが、

三四郎でセルを使って、ピラミッドを作る

という問題を出題された。(^^)(^^)

http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html

A1の数式を対象範囲にコピーするだけで作る、

というのが、くまぷー問題の「お約束」だけど、

悪児としては、数式だけではなく、他の機能も使ったり

数式も１種類でなくとも良い、というように、

もうちょっと柔軟に考えた方が面白いと思うので、

こっちで、そういうものを考えようと思う。

いままで、考えたのは、

１．他の機能を使って、数式だけより短い式で。

２．１行目は、Ｆ列に、「*」を文字列として入力。

　　そして、２行目以下は、A2の式をコピペ

いかがでしょう？　どちらも、解答は、

くまぷーさん同様、9/10　午後6時までご遠慮を。(^^)ゞ

ごじら＆こﾞし゛ら08

さて、くまぷーさんの解答だが、
Shift-F2で１文字ずつ現れてくるのも面白いけど、
１度に表示させることができたら、それはそれで面白そう。

三四郎では(もちろんExcelでも)反復回数を指定できるから、
反復回数を複数回にするとできるのではないか、
ということで、「きんぐぎどら」は６文字なので、
反復回数を６回にして、やってみた。

すると・・・「らどぎぐんき」にならずに、
「きききききき」になってしまった・・・(^^;)(^^;)

要するに、反復計算では、１度、全部のセルを計算した後、
また最初のセルから２度目の計算をする、
というのではないらしい。このケースでは、どうみても、
A3を６回反復して計算し、その後B1の再計算にかかるらしい。
どうもこの辺が理解できなくて、
悪児は循環参照は苦手(というより非論理的で嫌い？）なのだが、

とすれば、B1だけで済ませてしまえばできるのではないか、
と考えて、B1の式をもう一度見てみた。

A3を参照しているのは、元文字列の切り取り始点を指定するとき。
その数字は、今までに切り取った回数＋１となっている。
だから、それを引いたあとで余計な＋１分を足し直しているのだが、
それなら最初から、切り取った回数分を引いてやれば良い。
そして、切り取った回数は、そのまま、B1セルに入力されている
文字数分だから、-A3+1を-Len(B1)に替えてやれば良い。

ということで、B1の数式を
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-Len(B1),1),B1))
に差し替え、A3を空白にし、反復回数を10回にして、
A2に一旦0を入れて、初期化してから、1を入れたら、
Shift-F2を押すまでもなく、「らどぎぐんき」が表示された。＼(^o^)／

これなら、99文字まで（三四郎の反復回数の最大値）
一発＆一セル変換ですね。(^^)(^^)

ごじら＆こﾞし゛ら07

くまぷーさんの解答の、解説の続きです。

そして、式Ｂ。
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

はじめのIf関数は、式Ａ同様初期化のための仕掛けだ。
A2がゼロ（空白でも数値以外の文字列でも可）だと、B1が空白にされる。

次のIf関数は、終了判定。
B1に入力された文字列が、A1と同じになると、もう変化させない。
（式では、B1がA1より小さい間は、B1の文字列にA1から切り取った
１文字を追加し、それ以外は、B1をそのままにする）

さて、その１文字の切り取りと追加が、この部分。
B1 & Mid(A1,Len(A1)-A3+1,1)

Mid関数の引数は、Mid（元文字列,始点,切り出し文字数）。
つまり、A1から、その、(Len(A1)-A3+1)番目の１文字を切り出して、
B1の文字列の末尾に連結する。

つまり、A3が1の時は、A1の文字数番目（つまり最後）の文字を切り出し、
A3が2の時は、その一つ前、というように、
「再計算」の度にA3の数字が１ずつ増えるから、それに応じて、
後ろから順に切り出して、逆順に連結していくわけだ。

Shift-F2を押す度に、ひとつずつ文字が繋がっていく・・・
見事なもんですねぇ～～(^_^)(^_^)/~

ごじら＆こﾞし゛ら06

くまぷーさんが、悪児の解答を解説してくれている。(^^)(^^)　。

http://kumapooh.justblog.jp/blog/2007/04/9_73fe.html

お礼に、こちらでも、くまぷーさんの解答の解説をしよう。

くまぷーさんの解答で、数式の入っているのは、次の２セルだ。

ひとつはA3で、式（以下式Ａ）は、
=If(A2=0,0,A3+1)

もうひとつは、B1で、式（以下式Ｂ）は、
=If(A2=0,"",If(Len(B1)<Len(A1),B1 & Mid(A1,Len(A1)-A3+1,1),B1))

これを見て、「あれ？」と思った方は、表計算をよく知っている方だ。
式Ａは、A3セルに入っているのに、式の中でA3セルを参照している。
つまり、
A3=A3+1
ということで、A3セルの値は、計算をし直す度に1ずつ増えてしまうことになる。
これは、普通の使用法では、避けるべきことなのだが、
くまぷーさんは、これを上手く利用して、
マクロを使わずに、シートを動かすのがお得意なのだ。

さて、式Ａの場合、単に数を増やすだけではなく、
A3の値を初期化する（０にする）ための仕掛けもされている。
それが、If関数だ。
A2セルが、ゼロなら、A3セルにゼロを代入し、
ゼロでなければ、A3セルの値を計算し直す度に１増加させる。
これで、最初に、A2にゼロを入力して初期化してから
A2に1を入力すると、A3が1になり、以下
計算し直すたびにA3の値が1ずつ増加することになる。

なお、計算をし直せ（「再計算」という）という命令は、
三四郎の場合、shift-F2で行われる。（続く）

ごじら＆こﾞし゛ら04

こんどは、次のような問題がだされた。

問題：A1に入力された「ごじら」をB1に「らじご」と表示させる。

　　　ただし、下のような決うちは不可。

　　　=Right(A1,1) & Mid(A1,2,1) & Left(A1,1)

　　　A1に入る文字数は不定。A1に「きんぐぎどら」とあれば

　　　　　　　B1に「らどぎぐんき」と表示させる。

これは、難問です。ただ、最大文字数が１０文字くらいなら、

簡単にできる。上限は、２０文字くらいかな・・・(^^;)(^^;)

ごじら＆こ゛し゛ら03

次は、

A1に全角カタカナの「ゴジラ」をバラバラにして逆さまにして欲しい。

だそうだ。

http://kumapooh.justblog.jp/blog/2007/04/4_476a.html

やってみました。

三四郎じゃあんまり簡単なので、Excelでも。(^^)ゞ

ごじら＆こ゛し゛ら02

こ゛し゛らを18文字以下で「ばらばら」にする、「方法」

１．「右詰」

A2に、

=Left($A1,Col(A1))

E2まで、右コピー。

A2:E2のセル書式－配置－横位置を右詰にし、セルの列幅を１文字分にすると・・・

２．さらに「ずる」

A2に

=Mid($A1,A8,1)

E2まで、右コピー。

A8からE8に、1,2,3,4,5を入力すると・・・

３．Mid以外。

Foldをつかう。

=Fold($A1,1,Col(A1))

これは、「ずる」じゃ、ありません。(^^)ゞ

ごじら＆こ゛し゛ら

くまぷーさんの
「教員のための三四郎活用講座」で、
A1セルに入っている「ごじら」をばらばらにせよ
という問題が提出された。
B1～B5に数式を入れて、
B1に「こ」、B2に「゛」、B3に「し」、B4に「゛」、B5に「ら」
と表示させるのである。

http://kumapooh.justblog.jp/blog/2007/04/3_2b1b.html

なお、式は、各セルに別々に入れるのではなく、
B1に入れた式をB5まで「右コピー」するのが「お約束」

もちろん、すぐに作った。

=Hira(Zen(Mid(Han(Kata($A1)),Col(A1),1)))

当然といえば当然だが、
これは、べべちゃんの解答と全く同じ。

ところが、今度はそのべべちゃん、
「ごじら」ならぬ「こ゛し゛ら」なら、
三四郎で、「等号を含めて１８文字！！」でできる、
とおっしゃってるではないか。

やってみた。

=Mid($A1,Col(G1),1)

とこが、文字数を数えると、19文字！！
一文字多いではないか。
ううん、ちょっと困ったが、できない、じゃ、情けない。

ちょっと「ずる」しても、ってことで、考えた。

まずは、「右詰」を使った。これだと、ジャスト１８文字。
これかなぁ～～(^^;)(^^;)

それからもっと「ずる」をして、１４文字とか、
Midを使わずに、２０文字、なんていうのも考えた。

ところが、その後くまぷーさん曰く。
１８というのは数え間違えで、１９文字だった。
あちゃ～～　＿|￣|○