'*****************************************************************************
'[ 関数名 ]　GetCellText
'[ 概 要 ]　Cellの文字列を表示された書式で取得する
'[ 引 数 ]　対象のセル
'[ 戻り値 ]　文字列
'*****************************************************************************
Public Function GetCellText(ByRef objCell As Range) As String
On Error GoTo ErrHandle
Select Case objCell.NumberFormat
Case "General", "@"
GetCellText = RTrim$(objCell.Value)
Exit Function
End Select

If objCell.Text <> WorksheetFunction.Rept("#", Len(objCell.Text)) Then
GetCellText = RTrim$(objCell.Text)
Exit Function
End If

If IsDate(objCell.Value) Then
GetCellText = WorksheetFunction.Text(objCell.Value, objCell.NumberFormatLocal)
Exit Function
End If

If IsNumeric(objCell.Value) Then
GetCellText = objCell.Value
Exit Function
End If
ErrHandle:
GetCellText = RTrim$(objCell.Value)
End Function

返信する