即効テクニック |
● 概要 ● Formatイベントに書式を設定することで、文字の書式を変更することができます。書式の設定と、If文やSelect Case文を併用すると、値によって書式を変更することができます。 ●サンプル● Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If 部署 = "システム" Then '部署が「システム」の場合、文字色が赤、太字、斜体にする Report_11.部署.ForeColor = RGB(255, 0, 0) Report_11.部署.FontBold = True Report_11.部署.FontItalic = True Else '部署が「システム」以外の場合、文字色が黒、太字を解除、斜体を解除する Report_11.部署.ForeColor = RGB(0, 0, 0) Report_11.部署.FontBold = False Report_11.部署.FontItalic = False End If End Sub