Excel Maniacs

文字列操作・・・単語数を数える(2)

【´･ω･`】：A1に「Nothing is as important as health.」と入力されているとして・・・

　　　　　単語数を数えるやり方を考えてみよう。前回、Count系の関数では

　　　　　うまくないことは述べた。

(●`ε´●)：Count系の関数はセルの個数を数えるのに使うんだったな。

【´･ω･`】：うん、そういうこと。では復習は終わり。それでは「単語数を数える(2)」を

　　　　　　始めようか。

　　　　　「Nothing is as important as health.」の文字数はいくつだ？

(●`ε´●)：え～と。ピリオドまで入れて29文字だ。

【´･ω･`】：本当か？

(●`ε´●)：ああ、よ～く数えたんだから間違いない！

【´･ω･`】：じゃあ、文字数を数えるLEN関数で確かめてみてくれ。

(●`ε´●)………あれ、？？？

【´･ω･`】：どうしたんだ？

(●`ε´●)：29にならない。３４になってしまう。どうしてだ？！ 【´･ω･`】：べべちゃんが文字数を数えたときは無意識のうちにスペースを                除いて数えていた。だから文字数が２９になった。しかし…。 (●`ε´●)：しかし、LEN関数はスペースも文字として扱い、それを                 勘定に入れて数えていたから３4になった。 【´･ω･`】：その通り！だから３４から２９を引いた５がスペースの数だ。 (●`ε´●):：そしてその５に１を足した６が単語の数だ！！ 【´･ω･`】：ビンゴ！！それでは以下にスマートなやりかたの手順を                 しめそう。A1に元になる英文が入力されているとして… １．B1に=LEN(A1) 　　元になる英文の文字数を求める。先の例では３４。 ２．C1に=SUBSTITUTE(A1, " ","") 　　半角スペースを消去。 　※SUBSTITUTE関数の書式は以下の通り。この関数には置換機能がある。

=SUBSTITUTE(A1, "検索する文字列 ","置換したい文字列")

３．D1に=LEN(C1) 　　スペース消去後の文字数を求める。先の例では２９。 ４．E1に＝B1-D1 　　元になる英文に含まれるスペースの数を求める。 　　「元になる英文の文字数」－「スペース消去後の文字数」先の例では５。 ５．F1にE1+1 　　「元になる英文に含まれるスペースの数」＋１。これが単語の数。先の例では６。 ★エラー対策 【´･ω･`】：さて、ここまでで基本的なことが終わった。 (●`ε´●)：これから何をやるんだ？ 【´･ω･`】：仕上げとしてエラー対策だ。 (●`ε´●)：エラー対策？ 【´･ω･`】：そう。例えば今作った式は 単語数=　「元になる英文に含まれるスペースの数」＋１ 　　　　　という考えに基づいている。これには大きな落とし穴があるんだ。 (●`ε´●)：落とし穴？ 【´･ω･`】：うん。確かに大概の場合はこの式が成立する。 　　　　　　しかし、英文の入力してある蘭を空欄にしてみて欲しい。 (●`ε´●)：あっ！単語の数は当然、０にならなければいけないのに、 　　　　　　１と表示されている！ 【´･ω･`】：そう。これは明らかにおかしい。空欄の時は別扱いに 　　　　　　しなければならない。 単語数=　IF（空欄, 0, 「元になる英文に含まれるスペースの数」＋１) 　　　　　とするか 単語数=　 「元になる英文に含まれるスペースの数」＋IF（空欄, 0, １) 　　　　とするのが基本かな。 snsSample012.lzhをダウンロード

学級通信・・・あなたの夢は何ですか？

あなたの夢はなんですか？この問いを「あなたは将来、何をしたいですか」という言葉に置き換えてみても構いません。もう一度、問います。

あなたの夢はなんですか？

この問いかけに胸をはって即座に答えられるオトナはそんなに多くはないでしょう。もしも、あなたがコドモならば

ぷろ野球の選手！！

とか

飛行機のぱいろっと！！

とか、思いつくまま元気に答えられるかもしれません。コドモの夢は大きければ大きいほど、声は大きければ大きいほどよしとされています。 ところで、どうしておとなになると自分の夢を語るのにためらいを感じてしまうのでしょうか？それはある程度の年齢になってくると自分のことを客観的に見る力が備わってくるからです。こうなるとコドモのようには無邪気に自分の夢を語ることなどできなくなります。 自分のことを客観的に見ることができればごく少数の例外を除いて自分がほんとうにつまらないちっぽけな存在に思えるはずです。友がみな我より偉く見えてきます。

おれってグレート！！

なんて言っている者はまだとるに足らないコドモと考えてまず間違いありません。 自分を客観的に見ればよっぽど脳天気な人間でないかぎり自分自身の限界がだいたい見えてしまいます。ここで多くの人間は努力することをやめてしまいます。努力することがみっともないことにさえ思えてきます。

どうせ頑張ったってできやしないよ… 疲れるだけ損さ… そうさ、無駄さ… 疲れるだけさ… (-.-)

どう頑張ってみてもできないかもしれません。所詮は疲れるだけの無駄なあがきかもしれません。でもくまぷーはできる限り、あがいてみます。お前なんかにはできやしないよ、と笑われてもあがいてみます。どんなにみっともなく見えてもあがいてみます。 悲しいけれど、くまぷーは、かっこよくスマートにやれるほどの才能に恵まれてないことは知っています。しかし、だからといって自分の夢を捨ててしまうのはもっといやですから。

えっ、ところで「自分の夢」って何かって？！ * *

世界征服にきまってんだろ！！ （￣＾￣）（爆）

一太郎マクロ･･･マス目に単語をランダムに並べる

　プログラム的には山場がやってきたようだ。単語配置は右から左、

左から右、上から下、下から上、右下から左上、左上から右下、

左下から右上、右上から左下の８方向にランダムに配置する。

　そのためには大雑把に言うと１～８までの乱数を生成し、

Select Case文で処理を分岐すればよいだろう。以下が大雑把では

そのコードだ。

!!変数%Dirにより単語の配置方向をランダムに変化させる

Randomize(ThisTime())
%Dir = Int(Rand() * 8)+1　!!8方向

Select Case %Dir
　　　　　Case 1
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 2
　　　　　　　　　　!!左下から右上方向に単語を配置する処理を記述
　　　　　Case 3
　　　　　　　　　　!!左から右方向に単語を配置する処理を記述
　　　　　Case 4
　　　　　　　　　　!!左上から右下方向に単語を配置する処理を記述
　　　　　Case 5
　　　　　　　　　　!!上から下方向に単語を配置する処理を記述
　　　　　Case 6
　　　　　　　　　　!!右上から左下方向に単語を配置する処理を記述
　　　　　Case 7
　　　　　　　　　　!!右から左方向に単語を配置する処理を記述
　　　　　Case 8
　　　　　　　　　　!!右下から左上方向に単語を配置する処理を記述
End Select

　単純にいえば単語の配置方向をランダムに変化させることについては

これでいいのだが、上記のコードでは単語が斜めに配置される確率が、

水平・垂直に配置される確率に比べて極端に小さくなってしまう。

　例えばFrankenstein(12文字）という単語をを１２×１２のマス目に配置する場合。

水平方向
　　　右から左：12通り
　　　左から右：12通り

垂直方向
　　　上から下：12通り
　　　下から上：12通り

なのに対して

斜め方向
　　　右上から左下：1通り
　　　右下から左上：1通り
　　　左上から右下：1通り
　　　左下から右上：1通り

ということで48通り対４通りになってしまう。垂直方向、水平方向が48通り

なのに対して斜め方向ではたったの4通りしかないのだ。

次回はこの辺りを改善したい。