はじめてのVBA

Sub sample()

    MsgBox Choose(2, "みかん", "りんご", "バナナ") '2番目を返します

End Sub

Sub sample()

    MsgBox Len("ABC") '文字数
    MsgBox Len("ABCDEFG") '文字数

End Sub

Sub sample()

    MsgBox Mid("abcdef", 2, 3) '2文字目から3文字

End Sub

Sub sample()

    MsgBox Right("abcdef", 3) '右の3文字
    MsgBox Left("abcdef", 3) '左の3文字

End Sub

Sub sample()

    MsgBox Hour(Now) '時
    MsgBox Minute(Now) '分
    MsgBox Second(Now) '秒

End Sub

Sub sample()

    MsgBox Year(Now) '年
    MsgBox Month(Now) '月
    MsgBox Day(Now) '日

End Sub

Sub sample()

    'メッセージの途中で改行する
    MsgBox "１行目のメッセージ" & vbNewLine & "２行目のメッセージ"

End Sub

Sub sample()

    MsgBox Format(Now(), "yyyy/mm/dd")
    MsgBox Format(Now(), "hh:nn:ss")
    MsgBox Format(Now(), "yyyy/mm/dd hh:nn:ss")
    MsgBox Format(Now(), "yy年m月d日 h時n分s秒")

End Sub

Sub test()

    MsgBox UCase("ABCabc") '大文字に変換する
    MsgBox LCase("ABCabc") '小文字に変換する

End Sub

Sub test()

    MsgBox StrConv("ABC123$", vbWide) '全角文字に変換する
    MsgBox StrConv("ＡＢＣ１２３＄", vbNarrow) '半角文字に変換する

End Sub

Sub test()

    '指定した時間を足す(または減らす)
    MsgBox DateAdd("s", 1, Now), , "1秒後"
    MsgBox DateAdd("n", 1, Now), , "1分後" 'mではないので注意!
    MsgBox DateAdd("h", 1, Now), , "1時間後"
    MsgBox DateAdd("d", 1, Now), , "1日後"
    MsgBox DateAdd("m", 1, Now), , "1ヵ月後"
    MsgBox DateAdd("y", 1, Now), , "1年後"

End Sub

Sub test()

    MsgBox Now() '現在の時刻

End Sub

Sub test()

    Dim i As Integer
    i = 4 '他の数字も試してみてください
   
    If i = 3 Then
        'i=3のとき
        MsgBox "iは3です"
    ElseIf i = 4 Then
        'i=4のとき
        MsgBox "iは4です"
    Else
        'i=3ではなく、i=4でもないとき
        MsgBox "iは3と4以外です"
    End If

End Sub 

Sub test()

    Dim i As Integer
    i = 4
   
    If i = 3 Then
        'i=3のとき
        MsgBox "iは3です"
    Else
        'i=3ではないとき
        MsgBox "iは3ではありません"
    End If

End Sub

'Excel VBA ONLY

Sub test()

    'セルの計算式を設定する
    Sheets("sheet1").Cells(8, 1).Formula = "=1+2+3"

End Sub

'Excel VBA ONLY!

Sub test()

    'セルの文字の色の変更
    Sheets("sheet1").Cells(2, 1).Font.Color = vbRed   '赤

End Sub

'Excel VBA ONLY!

Sub test()
    'セルの背景色の変更
    Sheets("sheet1").Cells(1, 1).Interior.Color = vbRed   '赤
    Sheets("sheet1").Cells(2, 1).Interior.Color = vbGreen '緑
    Sheets("sheet1").Cells(3, 1).Interior.Color = vbBlue  '青
    Sheets("sheet1").Cells(4, 1).Interior.Color = vbCyan    'シアン
    Sheets("sheet1").Cells(5, 1).Interior.Color = vbMagenta 'マゼンタ
    Sheets("sheet1").Cells(6, 1).Interior.Color = vbYellow  'イエロー
   
    'その他の色
    'vbWhite・・・白
    'vbBlack・・・黒

End Sub

'Excel VBA ONLY

Sub test()

    '指定したシートの指定したセルに値を設定する
    Sheets("sheet1").Cells(2, 1) = "こんにちは"

End Sub

Sub test()

    Dim i As Integer
    i = 2

    'iの値が...のとき
    Select Case i
        Case 1
            '1のとき
            MsgBox "大吉"
        Case 2
            '2のとき
            MsgBox "中吉"
        Case 3
            '3のとき
            MsgBox "末吉"
    End Select

End Sub

Sub test()

    Dim i As Integer
    i=3

    If i = 3 Then
        'iが3のとき
        MsgBox "iは3です"
    End If

End Sub

Sub test()

    Dim i As Integer

    'iが1から3になるまで繰り返す(3回)
    For i = 1 To 3
        MsgBox i
    Next i

End Sub

Sub test()

    '使用する変数(値が入る容器のようなもの)を用意する
    Dim i As Integer '整数が入る容器
    Dim s As String '文字列が入る
    
    i = 123 '容器に数字を入れる
    s = "abc" '容器に文字を入れる
   
    MsgBox i
    MsgBox s

End Sub

Sub sample()

    'メッセージを表示する
    MsgBox "こんにちは"

End Sub