|
>はじめまして、アルジといいます。
>
>オブジェクト名が変化して処理は変わらないときの
>書き方がわかりません。
>いまだと下記のような例を30個も書かないといけない状態です。
>しかもこういったものが頻繁に必要になってきました。
>
>
>変わるところは s1〜s30までと c1〜c30まで
>変化します。 s1のときはc1になります。
>いろいろ調べた結果オブジェクトの変数化や
>引数のやり取りで出来そうな気がしましたが、
>具体的な方法がどうしてもわかりません。
>
>いい方法があれば教えてください。
>
>
>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
すいません、情報に不備がありました。
エクセル2000使用
ユーザーフォームにて処理を行っています。
ここでいうs1はスピンでc1はテキストボックスです。
実はa〜oまであり処理により組み合わせで使います。
その中にはラベルやチェックボックスもあります。
目的はソースの簡略化です。
|
|