IT系/VBA/基本/Hello World

Last-modified: 2020-06-28 (日) 14:55:25

概要
Hello World
- Hello World色々
TIPS
リンク集
その他メモ

概要

よくあるHello World。

Hello World

Excelの開発タブ*1から、「Visual Basic」を選択。
［Alt］＋［F11］キーでショートカットも可能。
VBEが開くので、プロジェクトウインドウのプロジェクトを右クリック→「挿入」→「標準モジュール」を選択。
コードウィンドウに以下のコードを打ち込む。
```
Sub Test
    MsgBox "Hello World"
End Sub
```
「Test」プロシージャにカーソルを合わせメニューバーの再生ボタン（Sub/ユーザーフォームの実行ボタン）を押下して実行。
［F5］キーでショートカットも可能。
「Hello World」と書かれたメッセージボックスが表示される
これでVBAはマスターした！

Hello World色々

「VBA で色々な Hello World｜俊爺（としじ）｜note」で掲載されているHello World。

Sub main()
    '' // まずは素直に
    Debug.Print "Hello World"
    '' // 反転させて書いてみます
    Debug.Print StrReverse("dlroW olleH")
    '' // 配列をjoin
    Debug.Print Join(Array("H", "e", "l", "l", "o", " ", "W", "o", "r", "l", "d"), "")
    '' // 反転させた配列から取り出してみます
    Dim arr: arr = Array("d", "l", "r", "o", "W", " ", "o", "l", "l", "e", "H")
    Dim i
    For i = UBound(arr) To LBound(arr) Step -1
        Debug.Print arr(i);
    Next
    Debug.Print
    '' // byte配列に入れてみます（文字列と同じなんです）
    Dim byteString() As Byte: byteString = "Hello World"
    Debug.Print byteString
End Sub

Sub main()
    Dim arr: arr = Array(72, 101, 108, 108, 111, 32, 87, 111, 114, 108, 100, 33)
   Dim a
    For Each a In arr
        Debug.Print Chr(a);
    Next
    Debug.Print
End Sub