| |
▼jabjab さん：
こんにちは
試してみましたけどうまくいきませんね。
私はこのような事をする場合、引数で渡さずに
変数をPublic宣言して使ってしまいます。
ご参考になれば^^
Public A As testType
Type testType
i As Integer
B As String
dummyFlag1 As Boolean 'Testでは使用しません
dummyFlag2 As Boolean 'Testでは使用しません
dummyFlag3 As Boolean 'Testでは使用しません
End Type
Sub test()
' Dim C As testType
With A
.i = 10
.B = "ABC"
End With
TestOnTime
End Sub
Sub TestOnTime()
If A.i > 0 Then
Cells(1, A.i + 2) = A.B & CStr(A.i)
A.i = A.i - 1
Application.OnTime Now + TimeValue("00:00:3"), "TestOnTime"
End If
End Sub
|
|
Lindy
- 07/9/11(火) 15:20 -
