【VBA】棒人間を動かすには？（ジタバタ編）
→約 1 分で読めるよ〜
ExcelVBAを使って棒人間を動かします。
スリープとループについても説明します。
ドット絵のセンスは無い！！（泣）
動画
必要なもの
・シート「動き」（シート名だけ変更）
・シート「コマ」にドット絵（部分的に違う絵を２個）
ソースコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal ms As Long) Sub M1() Dim time time = 100 'Worksheets("動き").Cells.Clear Dim i For i = 1 To 12 Sheets("コマ").Range("N1:T17").Copy Sheets("動き").Cells(1, 10).PasteSpecial Sleep time 'Worksheets("動き").Cells.Clear Sheets("コマ").Range("B1:I17").Copy Sheets("動き").Cells(1, 10).PasteSpecial Sleep time Next End Sub |
スリープの設定
|
1 |
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal ms As Long) |
続けて動かすと、一瞬で終わります。
1秒スリープを入れてあげる設定にします。
繰り返し
for文で繰り返します。
詳しくはVBAで処理を繰り返すには？（For～Next）を見てね。
コピーして貼り付け
|
1 2 |
Sheets("コマ").Range("N1:T17").Copy Sheets("動き").Cells(1, 10).PasteSpecial |
「コマ」っていうシートの「N1:T17」セルをコピーして、
「動き」っていうシートの「1, 10」にペーストしてね。
というコードです。
（右に動かすバージョンもあるので、こちらの表記にしています）
コピーの範囲を変えてるだけですが、
ちゃんと（？）ジタバタしてるように見えますよね。
まとめ
ExcelVBAで棒人間を動かしてみました。
いかがでしょうか（泣）
ここでしか読めない！Pythonエンジニア村上さんへの質問
TwitterやQiitaで話題のエンジニア！
村上さんがエンジニアを目指したきっかけは、「2ch」？！
熱い気持ちが文字からも伝わってくるよ。
Twitterも要チェック☆
50名以上のお話が読めるのは、このブログだけ！
村上さんがエンジニアを目指したきっかけは、「2ch」？！
熱い気持ちが文字からも伝わってくるよ。
Twitterも要チェック☆
50名以上のお話が読めるのは、このブログだけ！