はじめてのVBA

Len

Wed, 20 Aug 2008 22:16:25 +0900

Sub sample()

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

End Sub

Mid

Tue, 12 Aug 2008 22:34:19 +0900

Sub sample()

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

End Sub

Right, Left

Fri, 08 Aug 2008 23:36:22 +0900

Sub sample()

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

End Sub

Hour, Minute, Second

Sat, 02 Aug 2008 14:57:09 +0900

Sub sample()

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

End Sub

Year, Month, Day

Sat, 02 Aug 2008 14:56:10 +0900

Sub sample()

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

End Sub

MsgBox, vbNewLine

Tue, 29 Jul 2008 23:09:56 +0900

Sub sample()

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

End Sub

Format

Tue, 29 Jul 2008 22:54:37 +0900

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

Sun, 27 Jul 2008 22:00:29 +0900

Sub test()

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

End Sub

StrConv

Sat, 26 Jul 2008 23:42:09 +0900

Sub test()

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

End Sub

MsgBox (Level2)

Sat, 26 Jul 2008 23:29:50 +0900

Sub test()

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

End Sub

DateAdd

Sat, 26 Jul 2008 23:23:29 +0900

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

Sat, 26 Jul 2008 23:22:37 +0900

Sub test()

MsgBox Now() '現在の時刻

End Sub

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

Sat, 26 Jul 2008 15:56:57 +0900

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

Sat, 26 Jul 2008 11:50:08 +0900

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 のみ)

Sat, 26 Jul 2008 11:32:12 +0900

'Excel VBA ONLY

Sub test()

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

End Sub