Excel VBA質問箱 IV

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

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


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

30224 / 76732

←次へ　｜　前へ→


	【51775】Re:クラス化をしたいのですが

ある - 07/10/4(木) 11:57 -


	引用なし

	パスワード

▼あるさん：

テキストフォームのクラス化は出来たのですが
Cellの番号の変化が出来ません（わかりません）でした。
是非ご教授お願いします。

ーーーークラスモジュールーーーーー
Private Sub MyCtrl_txt_change()
With MyCtrl_txt
　　　　If .Value = Cells(i, 2) Then　　　　←ここの　i　をテキストによって変化させたいです。
　　　　　　.BackColor = RGB(255, 255, 255)
　　　　Else
　　　　　　.BackColor = RGB(255, 255, 0)
　　　　End If
　　End With
End Sub

>質問です。下記のようにプロシージャ名がばらばらで
>処理内容が似ているときのものをまとめたいのですが
>どのようにしたらいいのでしょうか？
>今回はセルも1つづつ違うのでその処理といっしょに
>まとめたいですよろしくお願いします、
>
>Private Sub Cutoff_Txt_Change()
>　　If Cutoff_Txt = Cells(2, 2) Then
>　　　　Cutoff_Txt.BackColor = RGB(255, 255, 255)
>　　Else
>　　　　Cutoff_Txt.BackColor = RGB(255, 255, 0)
>　　End If
>End Sub
>Private Sub SpRest_Txt_Change()
>　　If SpRest_Txt = Cells(3, 2) Then
>　　　　SpRest_Txt.BackColor = RGB(255, 255, 255)
>　　Else
>　　　　SpRest_Txt.BackColor = RGB(255, 255, 0)
>　　End If
>End Sub
>Private Sub SpWERest_Txt_Change()
>　　If SpWERest_Txt = Cells(4, 2) Then
>　　　　SpWERest_Txt.BackColor = RGB(255, 255, 255)
>　　Else
>　　　　SpWERest_Txt.BackColor = RGB(255, 255, 0)
>　　End If
>End Sub
>：
>：

0 hits

▼

【51745】クラス化をしたいのですが ある 07/10/3(水) 9:49