【´・ω・`】:尻取りに飽きてきたかもしれないけど・・・。
【問題】
B1からB8にそれぞれ・・・
うし
かいじゅう
こども
しまうま
もなか
まきがい
いぬ
たらこ
・・・と入力されている。
今、C1に「たらこ」と入力したとき
D1に何か数式を入力し・・・
たらこどもなかいじゅうしまうまきがいぬ
・・・と尻取りになるように表示させたい。
どのようにすればよいか?
« 三四郎で尻取り・・・第2弾【解答】 | メイン | 三四郎で尻取り・・・第3弾【解答】 »
最後に、下の画像の中に見える文字と数字を入力してください。これはプログラムを使ってコメントを自動的に投稿するのを防ぐために行われています。
画像を読み取れない場合は 別の画像を表示してください。
アカウント情報
(名前は必須です。メールアドレスは公開されません。)
日 | 月 | 火 | 水 | 木 | 金 | 土 |
---|---|---|---|---|---|---|
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 | 31 |
いや、それは、尻取り第2弾の
式の二つ目のD1をいじるだけでいいはずで・・・・・
なんか拍子抜け。
投稿情報: きっちー | 2007年7 月11日 (水曜日) 午前 09時38分
前の問題が次の問題の
ヒントになっていることは
よくあることです。(^^ゞ
投稿情報: くまぷー | 2007年7 月11日 (水曜日) 午後 08時06分
ざざっと解答。
再計算など回数オーバーはエラートラップなし。
(1)再計算8回で
(2)D1に =If(C$1 AND Left(D1,Len(C$1))=C$1,Left(D1,Len(D1)-1) & Search("like'^" & Right(D1,1) & "'",$B$1:$B$8),GetCellValue(C$1))
他には、
(1)D1に =If(C$1 AND Left(D2,Len(C$1))=C$1,Left(D2,Len(D2)-1) & Search("like'^" & Right(D2,1) & "'",$B$1:$B$8),GetCellValue(C$1))
(2)D1をD8までコピペ
if を多用した方が短くなりそうな。
投稿情報: きっちー | 2007年7 月12日 (木曜日) 午前 12時51分
きっちーさん、こんばんは。
ははは、もの足りませんでしたか?(^。^)
次回はもっと難しいものを!・・・と
言いたいところですが、次回は
もう少し、基本的なものを、と考えています。(^。^)
投稿情報: くまぷー | 2007年7 月12日 (木曜日) 午後 07時35分