Приватное Sub Worksheet_BeforeDoubleClick (цель ByVal как ряд, Cancel как булевско)
Если Target.Cells.Count > 1 после этого выходят подводная лодка
Если не пересечь, то (цель, ряд («E18: E328»)) Ничего после этого
Target.Font.Name = «Marlett»
Если цель = vbNullString после этого
Цель = «r»
Еще
Цель = vbNullString
Если не пересечь, то (цель, ряд («E46: E48»)) Ничего после этого
Если Application.CountA, то (ряд («E46: E48»)) = 0 после этого
Ряд («F46») = «поистине»
Еще
Ряд («F46») = «ложно»
Закончитесь если
Закончитесь если
Закончитесь если
Cancel = True
Закончитесь если
Закончите подводную лодку
|