W
WolfOfTambov
Здрасте товарищи. Есть такой код.
При загрузке формы создаются поля комбосписка Combo_PPN, и ему присваивается значение из ячейки"вставка". При выборе какого-либо значения из списка это значение записывается в ячейку "вставка" и выводится соответствующий график (процедура PPN).
Проблема в том, что событие Change наступает при любом изменении комбосписка, в том числе и при создании полей при запуске формы. Нельзя ли сделать так, чтоб оно наступало только при выборе значения из списка?
Код:
Private Sub UserForm_Initialize()
'список плавких вставок
With Combo_PPN
.AddItem "ППН200"
.AddItem "ППН400"
.AddItem "ППН500"
.AddItem "ППН630"
End With
'выводим значение текущих уставок
With UserForm1
.Combo_ty.Value = Range("G4")
.Combo_Kots.Value = Range("отсечка")
.Combo_Diap.Value = Range("диапазон")
.Combo_Iy.Value = Range("E4")
.Combo_PPN.Value = Range("вставка")
.Combo_umnt.Value = Range("коэфф_врем_текст")
.Combo_Un.Value = Range("U_1")
.Combo_Str.Value = Range("Sном")
.Combo_RelePKL = Range("ПКЛ")
.Combo_TipTr = Range("тип_тр")
End With
End Sub
Private Sub Combo_PPN_Change()
'изменяем график плавкой вставки
Worksheets("формулы").Activate
Range("вставка").Value = Combo_PPN.Value
PPN
End Sub
При загрузке формы создаются поля комбосписка Combo_PPN, и ему присваивается значение из ячейки"вставка". При выборе какого-либо значения из списка это значение записывается в ячейку "вставка" и выводится соответствующий график (процедура PPN).
Проблема в том, что событие Change наступает при любом изменении комбосписка, в том числе и при создании полей при запуске формы. Нельзя ли сделать так, чтоб оно наступало только при выборе значения из списка?