結合されたセルの隣が全て済なら無色
未があれば赤にしたいのです
下の表はイメージでこの場合A列3を赤くしたいのです
結合は3~6行で可変になってます。
┌─┬───┬─┐
│ │ A │B │
├─┼───┼─┤
│1 │ │済│
├─┤ ├─┤
│2 │ 1 │済│
├─┤ ├─┤
│3 │ │済│
├─┼───┼─┤
│4 │ │済│
├─┤ ├─┤
│5 │ │ │
├─┤ 2 ├─┤
│6 │ │済│
├─┤ ├─┤
│7 │ │済│
├─┼───┼─┤
│8 │ │済│
├─┤ ├─┤
│9 │ │ │
├─┤ 3 ├─┤
│10│ │済│
├─┤ ├─┤
│11│ │未│
└─┴───┴─┘
どうぞ宜しくお願いします。
表がずれていたら申し訳ありません。

A 回答 (3件)

全然すっきりしていませんが、マクロを書いてみました。

ご参考まで。A列が空セルになったところで打ち切ります。
Sub test()
Dim myCell As Range

Set myCell = Range("a1")
Do While myCell.Value <> ""
myCell.Interior.ColorIndex = completeCheck(myCell)
Set myCell = myCell.Offset(1, 0)
Loop
End Sub

Private Function completeCheck(target As Range) As Long
Dim myCell As Range
Dim incompleteFlag As Boolean
Dim completeFlag As Boolean

completeFlag = True
For Each myCell In target.MergeArea.Cells
If myCell.Offset(0, 1).Value <> "済" Then
completeFlag = False
If myCell.Offset(0, 1).Value = "未" Then
incompleteFlag = True
End If
End If
Next myCell
If completeFlag = True Then
completeCheck = xlNone
Else
If incompleteFlag = True Then
completeCheck = 3
Else
completeCheck = target.Interior.ColorIndex
End If
End If
End Function
    • good
    • 0

一つ、書くの忘れました



「数式が」 =(B1="未")+(B2="未")+(B3="未")

です
    • good
    • 0

A1 に条件付き書式で


 =(B1="未")+(B2="未")+(B3="未")
とし、書式で「赤」に設定します
3行以上有るところは、必要に応じて(B?="未")を増やします
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報