' ******************************************************
' 指定カラムにフォーカスを移動にする
' ******************************************************
Public Sub SetFocusCell(ByVal nRow As Integer, _
  ByVal strName As String)

	Me.CurrentCell = Me(strName, nRow)
	Me.BeginEdit(True)

End Sub
Public Sub SetFocusCell(ByVal nRow As Integer, _
  ByVal nCol As Integer)

	Me.CurrentCell = Me(nCol, nRow)
	Me.BeginEdit(True)

End Sub
Public Sub SetFocusCell(ByVal strName As String)

	Me.CurrentCell = Me(strName, Me.nCurrentRow)
	Me.BeginEdit(True)

End Sub
Public Sub SetFocusCell(ByVal nCol As Integer)

	Me.CurrentCell = Me(nCol, Me.nCurrentRow)
	Me.BeginEdit(True)

End Sub