VBA 文字列と認識されてしまっているセルを数字に変換したい

Question

文字列として認識されているセル（時刻表示）を、数字として認識させたいのですが、どの様なコードで実現出来るかお聞き出来ますでしょうか。

実現したいこと

• 10:10:15と記載されたセルの値を関数を用いて時刻として計算に使用したいです。そのため、10時10分15秒と認識させられる様、VBAを用いて該当セル（A9〜A列の文字が書いてある最下行まで）を、文字列から数字に変換したいです。

（表示方法はそのままで良い）

前提

ExcelのVALUE関数を使用しても、
時刻として見なされない（＝関数によってその値を用いて時刻の計算が出来ない）様でした。

因みに、Excelで該当セルの値を用いて時刻の計算をする為に、文字列から数字に変換を行いたいです。
→(計算例)該当セルの時刻＋15分＝B2セルの時刻より遅いか早いかを判断する

該当のソースコード

※それ以前のコードで既に、A列の最下行を取得する変数LineEndを定義しております。

Comments

[cherishlieben]

文字列として認識されているセル（時刻表示）を、数字として認識させたいのですが、どの様なコードで実現出来るかお聞き出来ますでしょうか。

こちらがご質問したい内容になります。

[otn]

> ExcelのVALUE関数を使用しても、時刻として見なされない（＝関数によってその値を用いて時刻の計算が出来ない）様でした。

具体的なファクトを提示しましょう。
=VALUE("10:10:15")
と、文字列を引数にVALUE関数をセルに入力すると、0.423784722 という数値になります。
これに、VALUE("0:15") を加算して、TEXT(和,"hh:mm:ss") をすると 10:25:15 という文字列になります。

[cherishlieben]

ご教示ありがとうございました。
承知致しました。

Answer 1

回答ではありません。確認です。
時刻は、どちらの形式で登録されていますか。
１．文字列の形式
書式設定の表示形式が文字列（左詰めとなる）

２．シリアル時刻形式
書式設定の表示形式が時刻（右詰めとなる）

どちらかにより、処理の方法が異なります。

Answer 2

10:15:15 とかかれたセルはシリアル時刻として登録されているはずです。
セルの書式設定で　h:mm:ss　になっているはずです。
１５分を加算するにはTimeValue関数を使います。
以下は、A9～A12の各セルの値に１５分を加算した結果が、B2セルの値（10:15:15）と比較して、
その結果をB9～B12に表示するマクロです。
等しければ、＝
B2の値より大きければ、＞
B2の値より大きければ、＜
を表示します。

Public Sub test()
    Dim wrow As Long
    For wrow = 9 To 12
        If Cells(wrow, 1).Value + TimeValue("0:15:0") = Cells(2, 2).Value Then
            Cells(wrow, 2).Value = "="
        End If
        If Cells(wrow, 1).Value + TimeValue("0:15:0") > Cells(2, 2).Value Then
            Cells(wrow, 2).Value = ">"
        End If
        If Cells(wrow, 1).Value + TimeValue("0:15:0") < Cells(2, 2).Value Then
            Cells(wrow, 2).Value = "<"
        End If
    Next
End Sub

実行結果

Answer 3

Splitの後にJoinしたらどうでしょう