回答受付が終了しました

Excelのvbaについて質問です。 下記のコードについてです。 'マウスイベントを取得するための決まり文句的なもの

Visual Basic | Excel96閲覧xmlns="http://www.w3.org/2000/svg">100

回答(1件)

0

Sub test() Static cnt As Long, once As Boolean, ary() Dim a As Long, b As Long If once = False Then once = True ary = Array(350, 200, 200, 150, 100, 150) End If a = ary(cnt * 2) b = ary(cnt * 2 + 1) cnt = cnt + 1 If cnt = 3 Then cnt = 0 MsgBox a & "," & b Application.OnTime Now() + TimeValue("00:00:03"), "test" End Sub 直接の回答じゃありません。 変数が実行ごとに変化する構造をお望みなんですよね。 そのサンプルです。 適当に組み合わせをお考えください。