Excel Maniacs

15パズル(16)

【´･ω･`】：今回はプレイヤーがマウスでクリックしたときに

　　　　　　数値パネルとブランクパネル交換するコードを書く。

　　　　　　そのためにはプレイヤーがどのセルをクリックしたのか

　　　　　　わからなければならない。実は三四郎にはこういうことを

　　　　　　するときに実に便利な関数がある・・・。

(●`ε´●)：勿体ぶらずに早く言えよ。

【´･ω･`】：まあ、あせるな。それは・・・。

　　　　　　Range?関数だ。

(●`ε´●)：関数に疑問符がついているのか？

【´･ω･`】：うん。これを使うとプレイヤーがどのセルを選択したかが

　　　　　　簡単にわかる。下のようにすればいい。

　　　　　　Set %MyRange = Range?

　　　　　　そして・・・.

　　　　　　Row(%MyRange)　とすれば選択セルの行番号を

                Col(%MyRange)　とすれば選択セルの列番号を

　　　　　　知ることができる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

                

成績一覧表を作る(3)

【´･ω･`】：さて前回は国語の得点の合計を求めた。

（●｀ε´●）：こんなコードだったな。 国語の合計点を表す変数を

　　　　　　%国語として・・・

　　　　　　%国語=0
                For %i = 8 To 52
                      %国語 = %国語 + Cells(%i, 4)
                Next

【´･ω･`】：今回は国語の受験者数を求める。

（●｀ε´●）：関数でやるなら、得点の入力されている

　　　　　　　セルを数えればいい。よって・・・

　　　　　　　=CountNum(D8:D52)

　　　　　　　いたって簡単だな。

【´･ω･`】：マクロでやっても基本的な考え方は変わらない。

　　　　　　国語の受験者数を表す変数を%国語受験者とすると・・・

　　　　　　%国語受験者=0

　　　　　　For %i = 8 To 52
　　　　　　　　　If Cells(%i, 4) <> "" Then
        　　　　　　　　　%国語受験者 = %国語受験者 + 1
　　　　　　　　　End If
　　　　　　Next

　　　　　　・・・となる。

（●｀ε´●）：では解説してくれ。

【´･ω･`】：Ok。まず、%国語受験者=0のコードで変数%国語受験者の初期値を

　　　　　　０にしておく。

　　　　　　次にForループで%iを８から５２まで変化させて・・・

　　　　　　Cells(%i ,4)の内容をチェックしていく・・・。

(●`ε´●)：%iが８の時は　Cells(8 ,4),つまりD8、そして

　　　　　　%iが52の時は　Cells(52 ,4),つまり５２ということだったな？

【´･ω･`】：うん。チェックの具体的内容はセルが空欄かどうかだ。

　　　　　　空欄でなければ、%国語受験者の値を１増加させていく。

(●`ε´●)：これをD8からD52まで繰り返してやれば%国語受験者が

　　　　　　国語の受験者数になるというわけだな？

【´･ω･`】：うん。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

ごじらを逆さまに(5)

【´･ω･`】：ごじらを逆さまに(4)の問題はどうだった？

（●｀ε´●）：悪児さんは簡単すぎると言っているぞ。

【´･ω･`】：悪児さんには簡単すぎるかもしれないが

　　　　　　この辺りでもけっこう歯ごたえがあると感じるかたも

　　　　　　いらっしゃるだろう。取りあえず、下が解答だ。

　　　　　　=Zen(Mid(Han(Kata($A1)),Len(Han(Kata($A1)))-Col(A1)+1,1))

（●｀ε´●）：悪児さんがひぃひぃ言うようなやつをだしてやれよ。

【´･ω･`】：ここを見ているみなさんが出題してもきっと受けてくれるだろう。

（●｀ε´●）：まさか、悪児さんが敵に背中を見せるようなことはあるまい・・・。

　　　　　　　出題・質問はコメント欄に書いてくれればいい。