Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30664 / 76732

←次へ　｜　前へ→


	【51332】オブジェクト名が変化して処理は変わらないときの

アルジ - 07/9/12(水) 14:08 -


	引用なし

	パスワード

はじめまして、アルジといいます。

オブジェクト名が変化して処理は変わらないときの
書き方がわかりません。
いまだと下記のような例を30個も書かないといけない状態です。
しかもこういったものが頻繁に必要になってきました。

変わるところは　ｓ1～ｓ30までと　ｃ1～ｃ30まで
変化します。　ｓ1のときはｃ1になります。
いろいろ調べた結果オブジェクトの変数化や
引数のやり取りで出来そうな気がしましたが、
具体的な方法がどうしてもわかりません。

いい方法があれば教えてください。

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 Sub

0 hits

▼

【51332】オブジェクト名が変化して処理は変わらないときの アルジ 07/9/12(水) 14:08

≪