自宅でプロミラムング練習に最適の「エクセルVBA」！

だれでも簡単にプログラム書けるー。

ということでコマンドボタンの紹介だよー。

ポチれば、登録したプログラムが動く。

なんて便利なんだろう。なぜ今まで紹介しなかった・・・

まずはボタンを作ろうね。

ポイントは、かっこいい方の「アクティブX」のボタンを使うこと。

そしたら、一旦デザインモードに。そうするとプログラムが動かないからね。

ボタンの見た目はプロパティから。

フォントサイズも変えておこうね。

次は、プログラムを登録しようね。

コードが自動で書かれる。

エクセルではボタンは「もの」（オブジェクト）なんだね。

ものには、「プログラムを動かすきっかけ」（イベント）がある。

ボタンをクリックしたときに動くコードってこと。

ここにやりたいことを書いたり、既に書いてあるコードを呼び出したりしてね。

じゃーねー。

めだかにアイテムを装備してもらったよ。

まずはお店。

全部１Gｗ

で、赤の帽子

緑の帽子

青の帽子

移動したときに体力が減りにくくなるよ！

たっくんまんだよー

お金ほしい！

お金大好き！

お金だったら目に入れても痛くない！

ずっとお金を見ていたい！

ね？そうでしょ？

ということで、お金を表示しようね。

ちゃっりーん。

結構むずかしかったよ。

まずは数字を描こうねえ。

それから、セルの場所と色をコードに書き起こす。

このときたっくーが使っているコードは一番下に書いておくから必要な人は見てね。

これで「３」を描くプログラムの部品が作れる。

同じようにして0から9まで描けるようになったら、

プログラム上の0～9に応じて、それぞれ対応するプログラムの部品を呼び出す部品を作る。

こうしておくと場所と数字を指定すると臨機応変に数字が描けるぞ。

むずかしいけど、みんなもがんばってみてね。

最後に絵をコードに書き起こすコード。

Sub 絵の読み取り(Target)

    Dim a As Range
    n = 1
   
    For Each a In Range("A1:DD100")
        If a.Interior.Color = 16777215 Then GoTo ラベル1
        gyou = a.Row - Target.Row
        retu = a.Column - Target.Column
       
        'セルの色を取得
        Dim c As Long
        c = a.Interior.Color
   
        Dim r As Long
        r = c And &HFF
   
        Dim g As Long
        g = c And 65280
        g = g \ (2 ^ 8)

        Dim b As Long
        b = c And &HFF0000
        b = b \ (2 ^ 16)   
 
        Cells(n, 1).Value = "    target.offset(" & gyou & "," & retu & ").interior.color=rgb(バイト加算(" & r & ",r),バイト加算(" & g & ",g),バイト加算(" & b & ",b))"
        n = n + 1
ラベル1:
    Next
   
End Sub

Function バイト加算(a, b) As Long

    バイト加算 = a + b
    If バイト加算 > 255 Then バイト加算 = 255
    If バイト加算 < 0 Then バイト加算 = 0
    バイト加算 = Int(バイト加算)

End Function

たっくーだよー

今日はコンピューターとの会話について書くね。

まず、表示されるウインドウと、そのコード。

インプットボックスという会話ツールだね。

プログラムを動かしたときに、使う人が数字や言葉を入力できる。

もう一つ

メッセージボックスという会話ツール。

こちらは、入力する場所はない。

プログラムから、使う人にメッセージを出すときに使うよー。

で、とりあえず現在の針子育成ゲーム。

上のような状態でスタートするよ。

左上のパラメーターは、水質の状態。

今のところ、一番重要なのは水の「汚れ度合」。

水が汚れていると、がんがん体力が落ちて行ってしまう。

水質を維持するのがテーマの一つだよ。

青色の部分は、乗ると水生昆虫に襲われることにした。

スタート直後の針子だとまず食べられちゃう。

だけど、レベルアップしていくと、生き残る場合もある。

水質に応じて発生するプランクトンを食べて体力回復しつつ、

迷路のどこかにあるゴールを目指す。

で、ときどき砂金の粒を見つけることがあって、

ゴールすると、集めた砂金の分、お金をゲットできて、

いろんなアイテムを購入できるようにする。

ゲーム性は、考えると悩ましすぎるね！

この迷路から抜け出せるのだろうか・・・

ちょこちょこコードを書いていただよ。

まずはレベルアップ。とりあえず、プランクトンを食べると経験値1たまるようにした。

そして、プランクトンを食べると水が少し汚れることにして、

よごれが溜まると体力の減り方が激しくなるようにした。

データベースにどんどんメモしていくだよ。

よごれが増えるとプランクトンがランダムで生まれるようにもしただよ。

ランダムというのは、コードに「Rnd」と書くと、

0～1の間のランダムな値になることを利用して実現するよ。

例えば、Rndが、0.5より大きい確率は、50パーセントだよ。

プランクトンが自然発生するので、プランクトンを食べつくすことは少なくなった。

でも水が汚れすぎると、体力の減りが激しすぎてすぐ死ぬだーよ。

死んだときのコードはこちら。

Sub 死亡した場合の処理()

    Sheets(3).Cells(1, 1) = 0
    MsgBox ("死亡した！")

End Sub

ひとつめの処理は、移動を無効にするためのコードだーよ。

シート3のA1セルが0の場合は移動できないようにしてあるよ。

ふたつめの処理は、画面にメッセージを出力するコード。

死んじゃったら分かるようにね。

今のところ針子は一匹だけなので、死んじゃったらゲーム終了。

レベルアップしたら体力も増えて死ににくくなる予定だーよ。

めだかをはじめ、野生の動物は、小さい時期ほど死亡率が高いんだよ。

人間は、お年寄りの方が死亡率が高いけどね。

ラクトアイスよりアイスクリームの方が脂肪率が高いのとまあ似たようなもんだね。

それでは、たっくー製ミルク迷路でもご賞味ください！

激ムズです。

たっくーだよ。

前回は針子の体力を表示するようにした。

ちょっと変わったよ。

分かりにくいけど、つぶつぶ感がアップしたと思う。

拡大したのがこれ。

これたっくーだよ。

これね。たっくー基本プランクトンだからね。

針子は、プランクトンを食べたら体力を回復するようにした。

ちょい

ちょい

これでだいぶ移動できるぞ。

ちなみにプランクトンの位置もちゃんとデータベースにメモしておいてね。

食べた後は消すようにもしておく。

次は何しようかなぁー。

た、たっくーだよ。。

寒いね。

雨も降ってるし。

家に帰る間、身を削るようだったよ。

さてさて、前回、針子がマス目の上を動けるようになった。

ついでに体力ゲージもつけちゃったよ。

針子の上の緑のバーだよ。

シート２はこうなってる。

体力の最大値と、今の体力をメモする場所をつくった。

こんなふうに、数字を覚えておく（長い記憶を整理して集めておく）場所を

DB（データベース）というよ。ドラゴンボールじゃないよ。

こういう画面表示するところや、人が操作するところは、インターフェイスとかいう。

コードを書くところは、アプリケーションだ。

アプリケーションの入力や出力をインターフェイスがして、記憶はデータベースがやる。

体力をちょっと減らしてみようか。

移動すると体力が１減るようにコードを変えてみた。

わかりにくいね。もうちょっと歩いてみる。

ひん死に。寒すぎて歩くたびに体力が削られるのだろう。

かわいそうにー！

まあこんなところにしておこう。

じゃあ、また頭としっぽが逆のどじょうさがしをどうじょ～

Hey! Let's　Go　～♪

I　Have　Your　Huhuhu ～♪

（散歩という曲の英語版のつもりだよ）

ハーイ　タックン　ダヨ！

トゥディ　ミーたちは　キャラクターをムーブするよ。

いろいろ難しかったので、平面になった。

ちょんと一匹いるのはめだかの赤ちゃんだ。

（めだかの赤ちゃんは、しっぽが本当に細くて針みたいだから、「針子」って言うんだよ）

針子を移動させるのにどうしたらいいか、実に悩んだ。

大事なのは簡単に動かせること。

つーことで、画面をクリックすると、

クリックした場所に応じて

一ブロック動く方式にしたよ。

まず、針子の場所をプログラムが覚えなきゃいけないね。

今の画像の位置は（6,4）という座標にいる。

「一時的な記憶」は便利だけど、「プログラムの部品」の実行が終わると忘れてしまう。

その都度変わるから、プログラムの中に書くのも無理だね。

エクセルは「長い記憶」が得意だ。

別のシートに座標を書き込んでおこう。

もちろん、コードで書くんだよ。下のコードは、たっくーの書いたもの。

    For n = 1 To nm
        For m = 1 To mm
            If Sheets(3).Cells(n + 1, m + 1).Interior.Color = vbBlack Then
                Call おちばを描画(target.Offset(n * 8 + m * 8, -n * 16 + m * 16), r, g, b)
            Else
                Call どろを描画(target.Offset(n * 8 + m * 8, -n * 16 + m * 16), r, g, b)
                If l = nn Then
                    Call はりこを描画(target.Offset(n * 8 + m * 8, -n * 16 + m * 16), r + n * 0, g + m * 0, b)
                    Sheets(2).Cells(3, 1) = n
                    Sheets(2).Cells(3, 2) = m
                End If
                l = l + 1               
            End If
        Next
    Next

別のシートの場合、ちゃんと、そのシートだとコンピューターに分かるように書こうね。

そして、ワークシートのセレクションチェンジイベント（選択セルが変更になったらプログラムが作動）を使って、

選択セルの位置を判定して、

（下のコードはたっくーが書いたもの）

    If target.Row > 137 Then
        If target.Column > 150 Then
            Sheets(2).Cells(3, 2) = m + 1
            m = m + 1
        Else
            Sheets(2).Cells(3, 1) = n + 1
            n = n + 1
        End If
    Else
        If target.Column > 150 Then
            Sheets(2).Cells(3, 1) = n - 1
            n = n - 1
        Else
            Sheets(2).Cells(3, 2) = m - 1
            m = m - 1
        End If
    End If

さっきメモした針子の座標を移動させる。

そして、移動先に針子を、移動元に床を描くようにコードを書けば、

つい

ついと

進む。

そろそろパックマンみたいなゲームは作れそうになってきたかな？

おまけ。針子が１匹かくれんぼ。