サポート掲示板

　新規投稿　｜　タイトル一覧　-　ツリー　-　スレッド　-　投稿一覧　｜　検索　｜　設定　

No.35に関するツリー

▼-修正メモ [takana] (2010/03/04 17:10)
　└Re:修正メモ [Boston] (2016/08/07 19:32)

Name: takana Date: 2010/03/04 17:10

'*****************************************************************************
'[ 関数名 ]　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