


Private Sub vsFG_StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'Прилепляем к полянке Даты dtPicker
With Me.vsFG
If Col = .ColIndex("ДатаТвоя") Then
Cancel = True
dtPick.Value = .TextMatrix(Row, Col)
dtPick.Move .CellLeft, .CellTop, .CellWidth, .CellHeight
dtPick.Visible = True
dtPick.SetFocus
SendKeys "{f4}"
End If
End With
End SubСейчас этот форум просматривают: Google-бот, SemrushBot и гости: 12