Excel VBA質問箱 IV

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

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


36639 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼ジジ さん:
>ただ、「1」から始まる値なので「1テスト」でも黄色になるようにしたいので、

どのような値が入るのかよくわかりませんので、変化する値を
限定できませんが、

以下のように変えてみてください。
  '・・・・・・
  Dim myVal
    '・・・・・・
    For Each r In Target
      If Not IsEmpty(r.Value) Then
       myVal = Left$(r.Value, 1)
       Select Case myVal
         Case 1: myNO = 6
         Case 2: myNO = 4
         Case 3: myNO = 8
         Case 4: myNO = 3
         Case Else: myNO = xlNone
       End Select
       r.Interior.ColorIndex = myNO
      End If
    Next
    '・・・・・・


>また、列の範囲はZ列までとしましたが、さらに増えるかもしれません。
>その場合、
>If Application.Intersect(Target, Range("F:AZ")) Is Nothing Then Exit 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 お礼

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