만일 첫번째 컬럼(Col = 1)이 콤보박스이고 다른 컬럼들은 일반 입력상자라고 하자.
콤보박스일경우 엔터를 치면 콤보박스의 목록이 펼쳐지고 다시 엔터를 누르면 선택한 항목으로 채워진다.
이 콤보박스일경우 엔터로 목록펼치고 선택하는 액션을 취하기 때문에 엔터키로 다음 셀로 이동하는 속성을 줘버리면
키보드로 콤보박스의 내용을 제어할수 없다.
때문에 콤보박스일때만 엔터로 다음셀 넘어가는 속성을 잠시 꺼두었다고 콤보박스 목록 내용을 선택할때 다음셀로 넘어가는
속성을 다시 켜주면 된다. 아래 코드를 야려보면 이해가 될것이다. -_-
Private Sub fpSpread1_LeaveCell(ByVal Col As Long, ByVal Row As Long, ByVal NewCol As Long, ByVal NewRow As Long, Cancel As Boolean)
If NewCol = 1 Then
fpSpread1.EditEnterAction = EditEnterActionNone
Else
fpSpread1.EditEnterAction = EditEnterActionNext
End If
End Sub
이렇게 해두어서 첫번째 컬럼일 경우에만 엔터 액션이 안먹히도록 한다. 그래야 엔터누를때 콤보박스의 리스트가 펼쳐질수 있다.
콤보박스 리스트를 선택한 후에(엔터로도 선택 가능) 자동으로 옆의 셀로 이동시키도록 한다.
Private Sub fpSpread1_ComboCloseUp(ByVal Col As Long, ByVal Row As Long, ByVal SelChange As Integer)
fpSpread1.EditEnterAction = EditEnterActionNext
End Sub
