Microsoft Access 掲示板

VBAで条件付き書式を4件以上 / 4

9 コメント
views
4 フォロー
4
hatena 2020/09/07 (月) 13:07:09 修正

手元にあるフォームで試してみましたが、6件登録してもエラーにはなりませんでした。

テーブルとか作るのは面倒なので、色は配列にしました。

Private Sub Form_Load()
    Dim Fmt As FormatCondition

    Dim Colors
    Colors = Array(vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan)
    With Me!名前.FormatConditions
        .Delete
        Dim i As Long
        For i = 0 To UBound(Colors)
           Set Fmt = .Add(acExpression, acEqual, "[ID]=" & i + 1)
           Fmt.ForeColor = Colors(i)
        Next
    End With
End Sub

画像1

Access2019ですので、ひょっとしてバージョンで違うのかな。
デザインビューで手作業で条件書式を追加したときは4件以上でも登録できますか。

通報 ...