【VBA】棒人間を動かすには?(ジタバタ編)
ExcelVBAを使って棒人間を動かします。
スリープとループについても説明します。
ドット絵のセンスは無い!!(泣)
動画
必要なもの
・シート「動き」(シート名だけ変更)
・シート「コマ」にドット絵(部分的に違う絵を2個)
ソースコード
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で棒人間を動かしてみました。
いかがでしょうか(泣)
ここでしか読めない!Web系Masakiさんへの質問
Web系エンジニアは必読。
ポートフォリオは、構想から約2ヶ月で完成したそう。
めっちゃかわいいの!
Twitterも要チェック☆
ほかにも50名以上のお話が読めるのは、このブログだけ!
ポートフォリオは、構想から約2ヶ月で完成したそう。
めっちゃかわいいの!
Twitterも要チェック☆
ほかにも50名以上のお話が読めるのは、このブログだけ!