|
Jaka さん返信ありがとうございました
リンク先を見させていただきました。
しかし、少しやりたいことと違うみたいでした。
自分の説明がへたですいませんでした。
やりたいことは
Private Sub s1_SpinUp()
↑
ここのs1とこのイベントの中のc1をs2c2、s3c3としていきたいのです。
↓
If c1.Text <> "" Then
c1.Text = DateAdd("n", -30, c1.Text)
c1.Text = Format(c1.Text, "h:nn:ss")
End If
End Sub
今は下記のようなソースになってしまっています。
Private Sub s1_SpinUp()
If c1.Text <> "" Then
c1.Text = DateAdd("n", -30, c1.Text)
c1.Text = Format(c1.Text, "h:nn:ss")
End If
End SubPrivate Sub s2_SpinUp()
If c2.Text <> "" Then
c2.Text = DateAdd("n", -30, c2.Text)
c2.Text = Format(c2.Text, "h:nn:ss")
End If
End Sub
・
・
・
最終的には
Private Sub s(i)_SpinUp()
If c(i)..Text <> "" Then
c(i).Text = DateAdd("n", -30, c(i).Text)
c(i).Text = Format(c(i).Text, "h:nn:ss")
End If
見たいにしたいです。
長くなってしまってすいませんが、
ご教授お願いします。
|
|