Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30665 / 76738 ←次へ | 前へ→

【51337】Re:オブジェクト名が変化して処理は変わらないときの
発言  アルジ  - 07/9/12(水) 16:12 -

引用なし
パスワード
   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
見たいにしたいです。

長くなってしまってすいませんが、
ご教授お願いします。

0 hits

【51332】オブジェクト名が変化して処理は変わらないときの アルジ 07/9/12(水) 14:08 質問
【51333】Re:オブジェクト名が変化して処理は変わら... アルジ 07/9/12(水) 14:17 発言
【51335】Re:オブジェクト名が変化して処理は変わら... Jaka 07/9/12(水) 14:44 発言
【51337】Re:オブジェクト名が変化して処理は変わら... アルジ 07/9/12(水) 16:12 発言
【51341】Re:オブジェクト名が変化して処理は変わら... Jaka 07/9/12(水) 17:22 発言
【51342】Re:オブジェクト名が変化して処理は変わら... アルジ 07/9/12(水) 17:27 発言
【51359】紛らわしい事をしてすみません。 Jaka 07/9/13(木) 9:24 発言
【51362】Re:紛らわしい事をしてすみません。 アルジ 07/9/13(木) 10:37 お礼
【51343】Re:オブジェクト名が変化して処理は変わら... ichi 07/9/12(水) 17:59 発言
【51344】Re:オブジェクト名が変化して処理は変わら... アルジ 07/9/12(水) 18:03 お礼

30665 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free