MsgBox vbObjectError

MsgBox vbGeneralDate MsgBox vbLongDate MsgBox vbShortDate MsgBox vbLongTime MsgBox vbShortTime

MsgBox vbSunday MsgBox vbMonday MsgBox vbTuesday MsgBox vbWednesday MsgBox vbThursday MsgBox vbFriday MsgBox vbSaturday MsgBox vbUseSystemDayOfWeek MsgBox vbFirstJan1 MsgBox vbFirstFourDays MsgBox vbFirstFullWeek

http://msdn.microsoft.com/ja-jp/library/cc392193.aspx を読んでみる MsgBox vbBlack MsgBox vbRed MsgBox vbGreen MsgBox vbYellow MsgBox vbBlue MsgBox vbMagenta MsgBox vbCyan MsgBox vbWhite 16進数を表示するのはどうやれば？ MsgBox Hex(vbBlack) …

大丈夫だったのか MsgBox "Hello1" ' あいう

どういう便利さがあるのかの記述なし Sub foo(x, y, z) MsgBox "foo" & x & y & z End Sub Function bar(x, y, z) MsgBox "foo" & x & y & z End Function foo 1, 2, 3 ' foo(1, 2, 3) Call foo(1, 2, 3) bar 1, 2, 3 ' bar(1, 2, 3) Call bar(1, 2, 3)

Sub foo foo_ End Sub Sub foo_ MsgBox "foo" End Sub foo

x = 1 Sub foo(x) MsgBox x x = 10 MsgBox x End Sub foo(2) MsgBox x グローバルではないようだ x = 1 Sub foo MsgBox x End Sub foo は、「1」と表示された

Function foo() MsgBox "foo" End Function foo Function bar(x,y,z) MsgBox "bar" & x & y & z End Function bar 1,2,3 Function foo() foo = 1 End Function MsgBox foo

Sub foo() MsgBox "foo" End Sub foo Sub foo() MsgBox "Foo" End Sub foo 引数がない(あるばあいも？)場合は括弧が必要 2回とも Foo が表示された Sub foo() MsgBox "foo" End Sub ' foo Sub foo(x, y, z) MsgBox "foo" & x & y & z End Sub foo 1, 2, 3 ' …

Dim x(2) x(0) = 10 x(1) = 20 MsgBox x(0) MsgBox x(1) 'Dim x(2) x(0) = 10 x(1) = 20 MsgBox x(0) MsgBox x(1) で、「型が一致しません」のエラー

Dim X(2) X(0) = 10 X(1) = 20 X(2) = 30 For Each x in X MsgBox "Loop 1: " & x Next Dim Y(2) Y(0) = 10 'Y(1) = 20 Y(2) = 30 For Each x in Y MsgBox "Loop 2: " & x Next Dim Z(2) Z(0) = 10 Z(1) = 20 Z(2) = 30 For Each x in Z MsgBox "Loop 3: " &…

For i = 0 To 2 MsgBox "Loop 1: " & i Next For i = 0 To 2 Step 2 MsgBox "Loop 2: " & i Next For i = 2 To 0 Step -1 MsgBox "Loop 3: " & i Next For i = 0 To 2 MsgBox "Loop 4: " & i If i = 1 Then Exit For Next

非推奨ということで説明されていない。Do...Loop の一部の機能が実現できるだけだから非推奨なのか？ 脱出構文もないのかな？？？ x = 0 While x < 2 MsgBox "Loop 1: " & x x = x + 1 Wend

x = 0 Do While x < 2 MsgBox "Loop 1: " & x x = x + 1 Loop x = 3 Do MsgBox "Loop 2: " & x x = x + 1 Loop While x < 2 x = 0 Do Until x > 2 MsgBox "Loop 3: " & x x = x + 1 Loop x = 3 Do MsgBox "Loop 4: " & x x = x + 1 Loop Until x > 2 Do Whil…

x = 4 Select Case x Case 1 MsgBox "Case 1" Case 2 MsgBox "Case 2" Case 3 MsgBox "Case 3" Case 4 MsgBox "Case 4" End Select x = "hoge" 'x = "foo" Select Case x Case "foo" MsgBox "Case 1" Case "bar" MsgBox "Case 2" Case "baz" MsgBox "Case 3"…

If True Then MsgBox "1 Then" If 1 Then MsgBox "2 Then" If 0 Then MsgBox "3 Then" If True Then MsgBox "3 Then" End If If False Then MsgBox "4 Then" Else MsgBox "4 Else" End If If False Then MsgBox "5 1" ElseIf False Then MsgBox "5 2" ElseIf…

MsgBox Not True MsgBox True And True MsgBox True And False MsgBox 1 And 3 MsgBox 1 Or 8 MsgBox True Xor True MsgBox True Imp False MsgBox 1 Imp 2 Imp って何？

MsgBox 1=1 MsgBox 1=2 MsgBox 1<>2 MsgBox 1<2 MsgBox 2>1 MsgBox 1<=1 MsgBox 1>=1 Class Foo End Class Dim x, y Set x = New Foo Set y = New Foo MsgBox x Is x MsgBox x Is y

MsgBox -1 MsgBox 1+2 MsgBox 2-3 MsgBox 2*3 MsgBox 2/3 MsgBox 10\3 MsgBox 10 Mod 3 MsgBox 2 ^ 3 MsgBox 2 & 3

Option Explicit Const str = "foo" MsgBox str Option Explicit Const str = "foo" str = "bar" MsgBox str 「不正な代入です」とエラー なぜ、ここで日付リテラルおよび時間リテラルの話が出てくるのだろうか？

Option Explicit Dim size size = 1 Dim A() ReDim A(size) A(0) = 1 A(1) = "foo" MsgBox A(0) MsgBox A(1) Preserve なしの確認 Option Explicit Dim A() ReDim A(1) A(0) = 1 A(1) = "foo" ReDim A(1) MsgBox A(0) MsgBox A(1) Preserve ありの確認 Optio…

Option Explicit Dim size size = 1 Dim A(size) A(0) = 1 A(1) = "foo" MsgBox A(0) MsgBox A(1) で、 「整数型の定数がありません」のエラー

Option Explicit Dim A(1,1) A(0,0) = "0,0" A(0,1) = "0,1" A(1,0) = "1,0" A(1,1) = "1,1" MsgBox A(0,0) MsgBox A(0,1) MsgBox A(1,0) MsgBox A(1,1) Option Explicit Dim A(1,1,1) A(0,0,0) = "0,0,0" A(1,1,1) = "1,1,1" MsgBox A(0,0,0) MsgBox A(1,1,…

Option Explicit Dim A(1) A(0) = 1 A(1) = "foo" MsgBox A(0) MsgBox A(1)

先頭である必要はありそうだが、1行目である必要はないのかな？ Option Explicit Dim x x = "foo" MsgBox x

Dim x Dim x, y, z だと二重定義でエラー 複数はカンマ区切りらしい Dim x Dim y, z 先頭でなくても良いか確認 Dim x MsgBox "foo" Dim y

MsgBox not_initialize MsgBox (not_initialize + 1)

バイト型はどういう場合に？ 通貨型、とりあえず無視 型だけでなく、例も書いておいてくれよ〜 MsgBox VarType(not_assign) MsgBox VarType(Null) MsgBox VarType(True) MsgBox VarType(1) MsgBox VarType(32767) MsgBox VarType(2147483647) MsgBox VarType…

VBScript ユーザーズガイドに記述があるか分からないのだが、 コメントは使いたくなるから調べてみた。複数行のコメントはないらしい。 ' MsgBox "Hello1" REM MsgBox "Hello2" MsgBox "Hello3" Hello3 の行のみ表示された