ひょんなことからEXCEL VBAマクロでツールを作成することになった。

とりあえず、備忘録としてメモを置いておくことにしよう。

1.配列の要素数の変更
Dim a() as Variant
a() = array{"aa","bb","cc","dd","ee"}
Redim Preserve a(10)

このPreserveをつけないと、すでに配列にいれた文字列が消えてしまう。

2.引数の渡し方

public Sub b(ByVal count As Long)
debug.Print "count=" & count
End Sub

このときの呼び出し方は、
Dim test As b
Set test = New b
test.b 4
となる。
Functionのときは、test.b(4)というように括弧をつけるが、Subのときは基本的に不要。
例外はあるみたいだけど。
10月14日の結果
S→A→S 16分57秒
S→K 19分47秒
1周目 06分26秒
2周目 05分53秒
3周目 05分49秒
4周目 05分09秒
5周目 05分31秒
6周目 05分24秒
7周目 05分23秒
8周目 05分15秒
9周目 05分41秒
10周目 05分28秒
11周目 05分28秒
12周目 05分49秒
13周目 05分35秒
14周目 05分30秒
K→S 19分53秒
計02時間15分00秒

10月21日の結果
S→K 15分50秒
1周目 05分37秒
2周目 06分19秒
3周目 05分28秒
4周目 06分09秒
5周目 06分00秒
6周目 05分23秒
K→S 17分28秒