Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16018 / 76734

←次へ　｜　前へ→


	【66190】Re:【再質問】条件付き書式について

りん

- 10/8/6(金) 21:06 -


	引用なし

	パスワード

助けてください。さん、こんばんわ。

>（他のバージョンでは問題ないのですよね。。。）
他のバージョンだと３つまでしか式が入れられないので完全な形では試せていませんが、３つずつ適用してみたりして試してますが一応不具合はなかったです。

範囲によって該当するインデックスがずれているのが良くないのかもしれないので、範囲ごとに条件式を追加するようにしてみました。

Sub Macro9()
　　'ループさせるために配列で処理
　　Dim areaA(1 To 3) As String　'範囲をあらわす文字列
　　Dim s1(1 To 3, 1 To 2)　　　 '条件式の文字列
　　Dim II As Long, TP As Long
　　'内容をセット
　　areaA(1) = "$H$56:$O$456"
　　areaA(2) = "$P$56:$P$456"
　　areaA(3) = "$Q$56:$X$456"
　　'条件式
　　s1(1, 1) = "=NOT(EXACT(TRIM($H56),""""))" 'area1 条件1,area2 条件1,area3 条件1
　　s1(2, 1) = "=NOT(EXACT(TRIM($P56),""""))" 'area2 条件2,area3 条件2
　　s1(3, 1) = "=NOT(EXACT(TRIM($Q56),""""))" 'area3 条件3
　　s1(1, 2) = "=EXACT($BB56,0)"　　　　　　　'area1 条件2,area2 条件3,area3 条件4
　　s1(2, 2) = "=EXACT($BC56,0)"　　　　　　　'area2 条件4,area3 条件5
　　s1(3, 2) = "=EXACT($AA56,$AA$45)"　　　　 'area3 条件6
　
　　'条件消去
　　Cells.FormatConditions.Delete
　　'範囲によって式の数＝ループの回数を変える
　　For JJ = 1 To 3
　　　　With Range(areaA(JJ))
　　　　　　.Cells(1).Select
　　　　　　For TP = 1 To 2
　　　　　　　　For II = 1 To JJ
　　　　　　　　　　 With .FormatConditions.Add(Type:=xlExpression, Formula1:=s1(II, TP))
　　　　　　　　　　　　.StopIfTrue = False
　　　　　　　　　　　　If TP = 1 Then
　　　　　　　　　　　　　　With .Borders(xlTop)
　　　　　　　　　　　　　　　　.Weight = xlThin
　　　　　　　　　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　　　　　　　End With
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　.Interior.ColorIndex = 16
　　　　　　　　　　　　End If
　　　　　　　　　　End With
　　　　　　　　Next
　　　　　　Next
　　　　End With
　　Next
　　'
　　Erase areaA, s1
End Sub

試してみてください。

1 hits

▼

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