Excel VBA質問箱 IV

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

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


36642 / 76732 ←次へ | 前へ→

【45269】Re:VBAを使った4つ以上の条件付き書式
発言  ponpon  - 06/12/17(日) 12:21 -

引用なし
パスワード
   ▼ジジ さん:
>シート内のF列からZ列内を対象に
>「1」から始まる値を含むセルの背景を黄色に
>「2」から始まる値を含むセルの背景を緑色に
>「3」から始まる値を含むセルの背景を水色に
>「4」から始まる値を含むセルの背景を赤色に
>するVBAはどんなコードにすればいいのでしょうか。
>
>値はこれから入力するもので、随時変更もします。

>また、コピーして入力されることもあります。
>これらにも対応して背景色を変化させたいです。

おはようございます。
複数貼り付けられることもあるのでしょうか?
こんな感じになると思います。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim myNO As Long
  Dim r As Range
  
    If Application.Intersect(Target, Range("F:Z")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each r In Target
      If IsNumeric(r.Value) Then
       Select Case Left$(CStr(r.Value), 1)
         Case "1": myNO = 6
         Case "2": myNO = 4
         Case "3": myNO = 8
         Case "4": myNO = 3
       End Select
      r.Interior.ColorIndex = myNO
      Else
      r.Interior.ColorIndex = xlNone
      End If
    Next
    Application.EnableEvents = True
End Sub
0 hits

【45268】VBAを使った4つ以上の条件付き書式 ジジ 06/12/17(日) 8:36 質問
【45269】Re:VBAを使った4つ以上の条件付き書式 ponpon 06/12/17(日) 12:21 発言
【45270】Re:VBAを使った4つ以上の条件付き書式 ジジ 06/12/17(日) 12:41 質問
【45272】Re:VBAを使った4つ以上の条件付き書式 ponpon 06/12/17(日) 13:54 発言
【45274】Re:VBAを使った4つ以上の条件付き書式 ジジ 06/12/17(日) 19:54 お礼
【45277】Re:VBAを使った4つ以上の条件付き書式 ジジ 06/12/17(日) 23:54 質問
【45281】Re:VBAを使った4つ以上の条件付き書式 Kein 06/12/18(月) 2:54 回答
【45312】Re:VBAを使った4つ以上の条件付き書式 ジジ 06/12/18(月) 22:44 お礼

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