Excel VBA質問箱 IV

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

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


30254 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   質問です。下記のようにプロシージャ名がばらばらで
処理内容が似ているときのものをまとめたいのですが
どのようにしたらいいのでしょうか?
今回はセルも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



1 hits

【51745】クラス化をしたいのですが ある 07/10/3(水) 9:49 質問
【51748】Re:クラス化をしたいのですが Jaka 07/10/3(水) 11:08 発言
【51749】Re:クラス化をしたいのですが ある 07/10/3(水) 11:14 お礼
【51775】Re:クラス化をしたいのですが ある 07/10/4(木) 11:57 質問
【51777】Re:クラス化をしたいのですが Jaka 07/10/4(木) 12:36 発言
【51781】Re:クラス化をしたいのですが ある 07/10/4(木) 13:30 お礼

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