はじめてのVBA

Len

2008-08-20T13:16:25Z

Sub sample()

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

End Sub

Mid

2008-08-12T13:34:19Z

Sub sample()

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

End Sub

Right, Left

2008-08-08T14:36:22Z

Sub sample()

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

End Sub

Hour, Minute, Second

2008-08-02T05:57:09Z

Sub sample()

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

End Sub

Year, Month, Day

2008-08-02T05:56:10Z

Sub sample()

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

End Sub

MsgBox, vbNewLine

2008-07-29T14:09:56Z

Sub sample()

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

End Sub

Format

2008-07-29T13:54:37Z

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

UCase, LCase

2008-07-27T13:00:29Z

Sub test()

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

End Sub

]]>
Upperのcase、Lowerのcaseと覚えましょう！
（写植の活字ケースは、大文字ケースと小文字ケースがあるそうですよ）

StrConv

2008-07-26T14:42:09Z

Sub test()

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

End Sub

MsgBox (Level2)

2008-07-26T14:29:50Z

Sub test()

    'メッセージを表示する
    MsgBox "こんにちは" 'メッセージのみ
    MsgBox "こんばんは",vbInformation 'アイコンも表示する
    MsgBox "おはようございます",vbInformation,"タイトル" 'タイトルも表示する

End Sub

DateAdd

2008-07-26T14:23:29Z

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

Now

2008-07-26T14:22:37Z

Sub test()

MsgBox Now() '現在の時刻

End Sub

If ... Then ... ElseIf ... Else ... End If

2008-07-26T06:56:57Z

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

If ... Then ... Else ... End If

2008-07-26T02:50:08Z

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

Formula (Excel VBA のみ)

2008-07-26T02:32:12Z

'Excel VBA ONLY

Sub test()

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

End Sub