吹雪〜月夜の狼画〜
コード・プログラムも要するにテキスト（文章）なので、この場をお借りして、掲載させていただきました。
Sub 雪のアニメーション()
Dim 雪の数 As Integer ' 雪の数
Dim i As Integer
Dim 列(1 To 100) As Integer ' 雪の列位置を保持
Dim 行(1 To 100) As Integer ' 雪の行位置を保持
雪の数 = 100 ' 雪の数を調整可能
' 画面更新を停止
Application.ScreenUpdating = False
' 背景を黒に設定
Cells.Interior.Color = RGB(0, 0, 0)
Cells.Font.Color = RGB(255, 255, 255) '文字色を白に設定
' 初期位置を設定
For i = 1 To 雪の数
列(i) = Int(Rnd() * 100) + 1 ' 1から100までのランダムな列
行(i) = Int(Rnd() * 100) + 1 ' 1から100までのランダムな行
Next i
Do While True ' 無限ループ
' 画面をクリア
Cells.ClearContents
' 雪を降らせる
For i = 1 To 雪の数
' 雪の位置を更新
行(i) = 行(i) + 1
' 画面外に出た雪は再配置
If 行(i) > 100 Then
行(i) = 1
列(i) = Int(Rnd() * 100) + 1
End If
' 雪を表示
Cells(行(i), 列(i)).Value = "*"
Cells(行(i), 列(i)).Font.Color = RGB(255, 182, 193) ' ピンク色に設定
Next i
' 待機
Application.Wait Now + TimeSerial(0, 0, 0.1) ' 0.1秒待機
' 画面更新
Application.ScreenUpdating = True
DoEvents
Application.ScreenUpdating = False
Loop
End Sub
ちなみに、この月夜の狼も、Excelのオートシェイプ機能で描画しています。
実際に動作している動画のURL
https://youtube.com/shorts/-_KRGHI9o54?si=__vGA12L9t9kE6mW
何度も言って恐縮てすが、私が中学生の頃は、電波新聞社の「マイコンBASICマガジン」にBASICプログラムが掲載されるなんて、夢のまた夢だったのですが、今はこうやって自由に掲載できて、皆さんに観ていただけるプラットフォームがあるというのは、本当に幸せなことです。
