即効テクニック |
● 概要 ●
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