Excel VBA質問箱 IV

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

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


136 / 73341 ←次へ | 前へ→

【78834】Re:特定の指名した氏名にバックカラーをつけたい
発言  β  - 17/2/9(木) 10:17 -

引用なし
パスワード
   ▼トキノハジメ さん:

A1から右、1行目のセルに条件付書式をセットするコードサンプルです。

たとえば

  With Range("A1", Cells(1, Columns.Count).End(xlToLeft))

これを

  With Range("A1", ActiveSheet.UsedRange)

にすれば、A1から始まるシート内全領域に一度にセットすることも可能です。

Sub Sample()
  With Range("A1", Cells(1, Columns.Count).End(xlToLeft))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=OR(A1=""山田"",A1=""沼田"")"
    With .FormatConditions(.FormatConditions.Count).Interior
      .PatternColorIndex = xlAutomatic
      .Color = vbRed
      .TintAndShade = 0
    End With
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
      "=OR(A1=""川田"",A1=""西村"")"
    With .FormatConditions(.FormatConditions.Count).Interior
      .PatternColorIndex = xlAutomatic
      .Color = vbCyan
      .TintAndShade = 0
    End With
  End With
End Sub

50 hits

【78812】特定の指名した氏名にバックカラーをつけたい トキノハジメ 17/2/8(水) 11:30 質問[未読]
【78814】Re:特定の指名した氏名にバックカラーをつ... β 17/2/8(水) 13:53 発言[未読]
【78821】Re:特定の指名した氏名にバックカラーをつ... トキノハジメ 17/2/8(水) 18:02 質問[未読]
【78822】Re:特定の指名した氏名にバックカラーをつ... マナ 17/2/8(水) 19:53 発言[未読]
【78861】Re:特定の指名した氏名にバックカラーをつ... トキノハジメ 17/2/12(日) 16:07 お礼[未読]
【78833】Re:特定の指名した氏名にバックカラーをつ... β 17/2/9(木) 9:54 発言[未読]
【78862】Re:特定の指名した氏名にバックカラーをつ... トキノハジメ 17/2/12(日) 16:12 質問[未読]
【78863】Re:特定の指名した氏名にバックカラーをつ... β 17/2/12(日) 17:28 発言[未読]
【78834】Re:特定の指名した氏名にバックカラーをつ... β 17/2/9(木) 10:17 発言[未読]
【78864】Re:特定の指名した氏名にバックカラーをつ... トキノハジメ 17/2/12(日) 18:51 お礼[未読]

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