そろそろワムの詞を語るときが
1 ：名前はいらない：
来たんじゃないのか？
|
|
|
2 ： ◆UnderDv67M ：2007/01/11(木) 17:53:31 ID:ox5Qu7mF
ちょっと予定より2年くらい早いですよ
'Sleep(200)を使う為にはこの宣言が必要↓
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
http://www.coara.or.jp/~wadasho/rakanka1.htm
http://ja.wikipedia.org/wiki/%E7%BE%85%E6%BC%A2%E6%9E%9C
http://ja.wikipedia.org/wiki/%E7%BE%85%E6%BC%A2%E6%9E%9C
Private Sub CommandButton8_Click()
If CheckBox2.Value = True Then
Dim myTime As Date
myTime = Now()
For I = 0 To 360 '6時間 '1分ごと
Application.OnTime myTime + TimeValue("00:00:08") * I, "Macro12"
Next
End If
If CheckBox3.Value = True Then
Dim myTime1 As Date
myTime1 = Now()
For I = 0 To 360 '6時間 '1分ごと
Application.OnTime myTime1 + TimeValue("00:00:03") * I, "Macro12"
Next
End If
End Sub
If CheckBox2.Value = True Then
Dim myTime As Date
myTime = Now()
For I = 0 To 360 '6時間 '1分ごと
Application.OnTime myTime + TimeValue("00:00:08") * I, "Macro12"
Next
End If
If CheckBox3.Value = True Then
Dim myTime1 As Date
myTime1 = Now()
For I = 0 To 360 '6時間 '1分ごと
Application.OnTime myTime1 + TimeValue("00:00:03") * I, "Macro12"
Next
End If
End Sub
10 ：名前はいらない：2007/01/28(日) 01:22:41 ID:pCNWDeFT
来てるかもな