Excel VBA質問箱 IV

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

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


16104 / 76738 ←次へ | 前へ→

【66105】条件付き書式について
質問  助けてください。  - 10/7/30(金) 15:03 -

引用なし
パスワード
   excel2007で下記のマクロを実行しようとしているのですが、
マクロ実行後の条件付き書式が想定通りに設定されず
上手くいきません。

なぜ、このようになるのでしょうか?
また、改良方法があればお教えください。


Sub Macro9()
  
  areaA1 = "$H$56:$X$456"
  areaA2 = "$P$56:$X$456"
  areaA3 = "$Q$56:$X$456"
  
  Cells.Select
  Selection.FormatConditions.Delete
  
  Range(areaA1).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=NOT(EXACT(TRIM($H56),""""))"
  Range(areaA1).FormatConditions(1).StopIfTrue = False
  With Range(areaA1).FormatConditions(1).Borders(xlTop)
    .Weight = xlThin
    .LineStyle = xlContinuous
  End With
  
  Range(areaA2).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=NOT(EXACT(TRIM($P56),""""))"
  Range(areaA2).FormatConditions(1).StopIfTrue = False
  With Range(areaA2).FormatConditions(1).Borders(xlTop)
    .Weight = xlThin
    .LineStyle = xlContinuous
  End With
  
  Range(areaA3).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=NOT(EXACT(TRIM($Q56),""""))"
  Range(areaA3).FormatConditions(1).StopIfTrue = False
  With Range(areaA3).FormatConditions(1).Borders(xlTop)
    .Weight = xlThin
    .LineStyle = xlContinuous
  End With
  
  Range(areaA1).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=EXACT($BB56,0)"
  Range(areaA1).FormatConditions(2).StopIfTrue = False
  Range(areaA1).FormatConditions(2).Interior.ColorIndex = 16
  
  Range(areaA2).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=EXACT($BC56,0)"
  Range(areaA2).FormatConditions(2).StopIfTrue = False
  Range(areaA2).FormatConditions(2).Interior.ColorIndex = 16
 
  Range(areaA3).FormatConditions.Add Type:=xlExpression, Formula1:= _
  "=EXACT($AA56,$AA$45)"
  Range(areaA3).FormatConditions(2).StopIfTrue = False
  Range(areaA3).FormatConditions(2).Interior.ColorIndex = 16
  
End Sub
1 hits

【66105】条件付き書式について 助けてください。 10/7/30(金) 15:03 質問
【66106】Re:条件付き書式について よろずや 10/7/30(金) 19:06 発言
【66118】Re:条件付き書式について 助けてください。 10/8/2(月) 10:15 質問
【66114】Re:条件付き書式について UO3 10/7/31(土) 18:09 発言
【66119】Re:条件付き書式について 助けてください。 10/8/2(月) 10:18 お礼
【66146】【再質問】条件付き書式について 助けてください。 10/8/4(水) 17:44 質問
【66147】Re:【再質問】条件付き書式について りん 10/8/5(木) 16:38 発言
【66152】Re:【再質問】条件付き書式について 助けてください。 10/8/5(木) 17:40 質問
【66153】Re:【再質問】条件付き書式について りん 10/8/5(木) 18:55 回答
【66160】Re:【再質問】条件付き書式について 助けてください。 10/8/6(金) 9:38 質問
【66190】Re:【再質問】条件付き書式について りん 10/8/6(金) 21:06 発言
【66154】Re:【再質問】条件付き書式について りん 10/8/5(木) 19:07 発言
【66161】Re:【再質問】条件付き書式について 助けてください。 10/8/6(金) 9:45 回答

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