Excel Maniacs

「ごじら」をバラバラに(4)

【´･ω･`】：それではいよいよ、ごじらの登場だ。

　　　　　　=Mid($A1,Col(A1),1)　・・・（１）

　　　　　　の説明に入ろう。

　　　　　　まず、確認しておくが「ごじら」のいるセルはA1だ。

　　　　　　よって・・・　

                $A1="ごじら"

                ・・・となる。これを(1)に代入すると・・・

　　　　　　=Mid("ごじら" ,Col(A1),1)　・・・（２）　!!この式をB1に入力

　　　　　　・・・となる。

　　　　　　(2)の式をC1、D1にコピーすると・・・それぞれ

　　　　　　=Mid("ごじら" ,Col(B1),1)　・・・（３）　　!!C1の式

　　　　　　=Mid("ごじら" ,Col(C1),1)　・・・（４）　　!!D1の式

　　　　　　・・・となる。

(●`ε´●)：お～、コピーすることによって上手く

　　　　　　(2)のCol(A1)が(3)ではCol(B1)に(4)ではCol(C1)に

　　　　　　修正されている！！

【´･ω･`】：そう、ここで

　　　　　　Col(A1)=1

　　　　　　Col(B1)=2

　　　　　　Col(C1)=3

　　　　　　なので・・・(2)(3)(4)はそれぞれ・・・

　　　　　　=Mid("ごじら" ,1,1)　・・・（5）　 !!B1の式

　　　　　　

　　　　　　=Mid("ごじら" ,2,1)　・・・（6）　　!!C1の式

　　　　　　=Mid("ごじら" ,3,1)　・・・（7）　　!!D1の式

               （５）のMId()はごじらの1文字目から1文字分、すなわちごを

　　　　　（6）のMId()はごじらの2文字目から1文字分、すなわちじを

　　　　　（７）のMId()はごじらの３文字目から1文字分、すなわちらを

　　　　　取り出すので・・・

(●`ε´●)：セルB1にご、セルC1にじ、セルD1にらと表示されると

　　　　　　いうわけだ。

【´･ω･`】：うん。ところで今何時？

　　　　　　5時ら！！（投稿時間）

「ごじら」をバラバラに(3)

【´･ω･`】：B１に=Mid($A1,Col(A1),1)ということだったが

　　　　　ちょっと解説をしておこうか。まず、この式の構造だ。

　　　　　この式はCol()とMid()の2つの関数から出来ている。

　　　　　関数を組み合わせた場合、内側のものから実行される。

　　　　　従って、この場合はCol(A1),から実行される。

　　　　　べべちゃん、　Col()の書式は？

(●`ε´●)：=Col（セル番地）だ。

【´･ω･`】：で、どういう働きをするんだ？

(●`ε´●)：=Col（）を使うと与えられた引数（ひきすう）の列番号を

　　　　　　求めることができる。

【´･ω･`】：具体的は？引数がA1だとすると？

(●`ε´●)：A1の列番号は１だから=Col(A1)は１になる。

　　　　　　これがこの式のミソだな。

【´･ω･`】：では次はMid()の説明だ。Mid()を使うと文字列から

　　　　　　部分文字列を取り出すことができるんだ。

　　　　　　書式は・・・

　　　　　　=Mid（元になる文字列, 部分文字列の開始位置, 　文字数)

　　　　　　･･･だ。

　　　　　　では具体的に・・・。

　　　　　　べべちゃん、下の式の答えは？

　　　　　　=Mid("ごじらは怪獣の王です。",5,4)

(●`ε´●)：「ごじらは怪獣の王です。」の5文字目から

　　　　　　４文字分だから怪獣の王が答えだ。

【´･ω･`】：あとは蛇足になるかもしれないがセル番地にくっついた

　　　　　$記号についてだ。例えばD1に=SUM（A1：C1)入力し

　　　　　この式をD2にコピーすると自動的に=SUM（A2：C2)となる。

　　　　　また=SUM（A1：C1)をE1にコピーすると=SUM（B1：D1)と

　　　　　なる。

　　　　　　これは便利なこともあるが、場合によっては困るときもある。

　　　　　列を示すアルファベットの前に$記号を付けておけば列方向（横）に

　　　　　コピーしても参照するセルが固定される。また行を示す数字の

　　　　　前に$記号を付ければ行方向（縦）にコピーしても参照するセルが

　　　　　変わることはないんだ。

　　　　　専門用語で言うと、$記号が付いているのを絶対参照、付いていないのを

　　　　　相対参照って言うんだ。　

(●`ε´●)：おい、くまぷー。どうでもいいけどなかなか本題の

　　　　　　=Mid($A1,Col(A1),1)の説明に入らないな。

【´･ω･`】：しかたがないよ。安っぽい怪獣映画と違ってごじらは

　　　　　なかなか登場しないんだ。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

「ごじら」をバラバラに(2)

(●`ε´●)：え～と・・・

　　　　　　A1に「ごじら」がいるとすると・・・

　　　　　　B１に=Mid($A1,Col(A1),1)と入力して右方向にコピペ!!

【´･ω･`】：さすがべべちゃん！！

　　　　　　なかなかだね。さすがだよ。

(●`ε´●)：おい、くまぷー、褒めてくれるのはいいけど

　　　　　　下の「カテゴリー」を見ると「文字列操作」の他に

　　　　　　「３行マクロ」にもなっているぞ！！

【´･ω･`】：う～ん、気がついてしまったか・・・。

　　　　　　今回のテーマはマクロでやるよりも

　　　　　　関数でやったほうが美しいので

　　　　　　知らんぷりしていようと思っていたんだが・・・

(●`ε´●)：そうはいかないな。

【´･ω･`】：では・・・

　　　　　For %i = 1 To Len(Cells(1,1))
　　　　　　　　Cells(1, %i +1) =Mid(Cells(1,1), %i, 1)
　　　　　Next

　　　　　これでどうだ？３行だけど・・・。