Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo ERR_EX
Dim aK As Long
    aK = [Key]
    Select Case True
        Case ((aK >=  3 ) And (aK <  5 ))
            Me!formula.FontName =  "Arial CYR" 
            Me!formula.FontSize =  18 
        Case (aK =  2 )
            Me!formula.FontName =  "Arial CYR" 
            Me!formula.FontSize =  32 
            Err.Raise - 100 , ,  "abuyz-c!" 
        Case (aK =  5 )
            Me!formula.FontName =  "Courier" 
            Me!formula.FontSize =  32 
        Case (aK =  6 )
            Me!formula.FontName =  "Courier" 
            Me!formula.FontSize =  64 
        Case Else
            Me!formula.FontName =  "Times New Roman Cyr" 
            Me!formula.FontSize =  12 
        End Select
EX_ERR:
    Exit Sub
ERR_EX:
    'Cancel = True
    Resume EX_ERR
End Sub