Приватное Sub Detail_Format (Cancel как интежер, FormatCount как интежер)
Const СМЕЛЕЙШИЕ = 700
НОРМАЛЬНЫЙ Const = 400
Если [ваше имя управления] = «закрыл» после этого
[Ваше имя управления] .ForeColor = vbRed
[Ваше имя управления] .FontWeight = СМЕЛЕЙШЕ
Еще
[Ваше имя управления] .ForeColor = vbBlack
[Ваше имя управления] .FontWeight = НОРМАЛЬНЫЙ
Закончитесь если
Закончите подводную лодку
|