EXCEL VBA 連想配列

1．サンプル

Dim myDict As Object
Dim i As Variant 

Set myDict = CreateObject("Scripting.Dictionary")

 '' セット
 myDict.Add "A", 10
 myDict.Add "B", 20
 myDict.Add "C", 30

 ''表示
 For Each i In myDict
    Debug.Print i
    Debug.Print myDict(i)
  Next i

2.実行結果

myDict の内容が表示されます

VBA 実行時間を測る

1. 考え方

Timer を使います。

2.サンプル

Sub MySub()
 
 Dim l As Long

  Start = Timer

  For l = 1 To 10000000
    l = l + 1
  Next l
 
  Debug.Print Timer - Start

End Sub

3.実行結果

For ループの時間が、秒で表示されます。

VBA Debug.Assert

1. 文法

Debug.Assert ブール式

で、ブール式がFalseの場合だけ、

処理が中断され、そこで、止まります。

2.サンプル

Sub MySub()
 
 Dim l As Long
 
 For l = 0 To 10
 
   Debug.Print l
   Debug.Assert l = 0

 Next l
    
End Sub

3.実行結果

イミーディエイトウインドウに、

0
1

と表示された後に、処理が止まります。

VBA ブックを開く

1. サンプル

Sub MySub()
 
 Workbooks.Open Filename:="c:\tmp\temp.xlsx"
 
 ''-- Filename:=を省略して、
 ''-- Workbooks.Open "c:\tmp\temp.xlsx"
 ''-- も可能

End Sub

2.実行結果

temp.xlsxが開きます。

VBA 関数の例

1.サンプル

Option Explicit

'------------------
'--- 2つの引数の和を返す関数
'------------------

Function Myadd(a, b)

  Myadd = a + b

End Function

'---
'--- 関数を呼び出す側
'---

Sub Macro2()

 Debug.Print (Myadd(2, 3))

End Sub

2.実行結果

5

が表示されます。