페이지 이력

'==========================================================================
'특정 Sheet 더블클릭 이벤트 정의
'==========================================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True   '기본 더블클릭 기능 취소 
    ShowDatasetForm Target   '입력폼 생성
End Sub


'==========================================================================
'입력 폼 생성후 해당 cell 에 값 지정
'==========================================================================
Public Sub ShowDatasetForm(ByVal Target As Range)
    Dim mxmodule As Object
    Dim result As Object    
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object
    Set result = mxmodule.xapi.ShowDataForm(Target, "DS1", 310, 420)   'cell object, dataset 명, form 너비, form '첫번째높이
컬럼의 값을 사용  
    
    If result Is Nothing = False Then Target.Value = result.GetValue(1)  '2번째 컬럼의 값을 사용  할경우 result.GetValue(2)
        
End Sub