Приватное Sub Worksheet_Change (цель ByVal как ряд)
Тусклое targ как ряд
Установите вахту «A1» targ = ряда ( ) 'эта клетка (или клетки)
Установите targ = пересеките (targ, цель)
Если targ ничего после этого, то выходите подводная лодка
Выберите случай LCase (targ. Клетки (1))
Случай «яблоко»
frmApple.Show
Случай «банан»
frmBanana.Show
Случай «помеец»
frmOrange.Show
Конец отборный
Подводная лодка конца
|