三四郎で５０音表を作る・・・【問題】

【問題】

セルK1に「あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやいゆえよらりるれろわゐうゑを」と入力されている。

K１の文字列を利用して下図のような５０音表を作りたい。

*

*

*

*

*

A1に入力した数式をJ5までコピペして表を作るには

A1にどのような数式を入力すればよいか？

(●`ε´●):ちょっと簡単すぎないか？

【´･ω･`】:そう言うなよ。問題を考えるのは大変なんだから・・・。

※コメント、解答　即OK.

Comments

[投稿情報: khan]

=MID($K$1,(10-COLUMN())*5+ROW(),1)
でどうですか？

[投稿情報: くまぷー]

Khanさん、どもです。
正解です。秒殺されてしまいました。_|￣|○

エクセルではKhanさんの式のようになりますが
三四郎では・・・
=Mid($K$1,Row(A1)+(10-Col(A1))*5,1)
・・・となります。

実は、一太郎の質問掲示板に
「一マスに一字ずつ入力したい」という投稿が
あったので、それを見ての単なる思いつきで
作った問題でした。(^^ゞ

http://www.ichitaro.com/twser...

きっちーさんがマクロをつかった回答をしてますが
表計算ソフトでセルに文字を流し込んで
それをワープロにコピペするなんて手もあるかなと･･･。

[投稿情報: 悪児]

答えが出ちゃってますね。
これは、もう他にやりようがなさそう。(^^;)(^^;)

[投稿情報: きっちー]

別な解答。
=Mid(Fold($K$1,5,11-Col(A1)),Row(A1),1)

３３文字。
=Mid($K$1,50-Col(A1)*5+Row(A1),1)

＞マクロをつかった回答

枠の作成の解説をしても理解してもらえるかわからないので、
マクロで手抜きをしただけです。(' 'ゞ

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

ホント
答え出ちゃってますね
なので
＝LEFT（RIGHT（＄K＄1，5＊COLUMN（）＋1－ROW（）））
にします。

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

K1の文字列が５０音順に並んでなかったら、ちょっと厄介だったでしょうね^^;

[投稿情報: くまぷー]

>これは、もう他にやりようがなさそう。(^^;)(^^;)

そうですね。基本的には同じ回答に
なってしまうかと・・・

>=Mid(Fold($K$1,5,11-Col(A1)),Row(A1),1)

foldですか・・・これは三四郎に特有の関数ですね。
以前、悪児さんがfoldを使った回答を寄せて
くれましたが、私自身はまだ使ったことがありません。
機会があったら、使ってみたいですね。

＞＝LEFT（RIGHT（＄K＄1，5＊COLUMN（）＋1－ROW（）））

流石、えくせるバカさん。いろいろ考えてきますね～。
エクセルではLeft関数やRight関数の第２引数が省略できるんですね。
そう言えばMidの第３引数は省略できたな～。

＞K1の文字列が５０音順に並んでなかったら、

メチャクチャに並んでいたら、問題にならないかと・・・(^^ゞ

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

＞メチャクチャに並んでいたら、問題にならないかと・・・

できそうな気がしていたので
やってみましたが・・・。

=CHAR(LARGE(CODE(MID($K$1,ROW($1:$50),1)),SUM(5*COLUMN()+1-ROW(),IF(5*COLUMN()+1-ROW()={3,12,14,48,49,50},{44,34,36,1,2,3},IF(5*COLUMN()+1-ROW()>{3,12,14,50,50,50},-1,0)))))
でCtrl+Shift+Enterをフィルコピー

･･･これは
かなり強引になってしまいましたね！
すいません(^^ゞ

[投稿情報: くまぷー]

えくせるバカさん、こんばんは。
正直、複雑すぎて解読不能です。(^^ゞ
脱帽です。(^^ゞ