|
' ******************************************************
' カラムデータ取得
' ******************************************************
Public Function GetColumnText(ByVal strName As String) _
As String
GetColumnText = Me.Rows(nCurrentRow).Cells(strName).Value
End Function
Public Function GetColumnText(ByVal nIndex As Integer, _
ByVal strName As String) As String
GetColumnText = Me.Rows(nIndex).Cells(strName).Value
End Function
' ******************************************************
' 行の取得
' ******************************************************
Public Function FindNextRow() As Boolean
FindNextRow = True
nCurrentRow += 1
If nCurrentRow + 1 > Me.Rows.Count Then
nCurrentRow = Me.Rows.Count - 1
FindNextRow = False
End If
End Function
| |