VBA　時刻を文字列に変換

VBAで時刻を文字列変換し、hh:mm 形式で表示させるため、
Columns(2).NumberFormatLocal = "hh:mm;@"　として文字列に変換しましたが、
セル上では、hh:mm で表示されていても、数式バーでは、hh:mm:ssで表示されて
しまいます。

数式バー上でも、hh:mmで表示させるためには、どうしたらよいでしょうか？

kikukiku

2022/07/12 06:17

該当のセルの表示形式を文字列にしてから、 17:04と入力すれば実現できそうです。

退会済みユーザー

2022/07/12 06:52

Columns(2).NumberFormatLocal = "hh:mm;@"で文字列になっていないですか？？

kikukiku

2022/07/12 06:58

ちゃんと検証していませんが、たぶん下記だと思います。 Columns(2).NumberFormatLocal = "@"

kikukiku

2022/07/12 07:03

下記で検証したらうまくいってそう。 Columns(2).NumberFormatLocal = "@" Range("B2").Value = "17:40"

hatena19

2022/07/12 07:24 編集

時刻は入力済みで、数式バーに表示されている値を変更したいということでしょうか。だとしたら、書式設定(NumberFormatLocal)の設定では無理です。書式は見た目を変更するだけですので。ループ処理で各セルの時刻データを秒部分を切り捨てる処理をする必要があります。あと、時刻データを文字列にしてしまうのは、後々活用しにくくなるのでお勧めできません。

hatena19

2022/07/12 07:26

Columns(2).NumberFormatLocal = "hh:mm" Dim r As Range For Each r In Intersect(Range("B1").CurrentRegion, Columns(2)) r.Value = TimeSerial(Hour(r.Value), Minute(r.Value), 0) Next

退会済みユーザー

2022/07/12 11:23

Intersect(Range("B1").CurrentRegion, Columns(2)) が、何を意味しているのか分かりません。 CurrentRegion, Columns(2)なので、結局は、B列をrに入れているということでしょうか？

hatena19

2022/07/12 12:09

For Each の意味を理解してますか。 Intersect(Range("B1").CurrentRegion, Columns(2)) でB列のデータ範囲のセルをループして、秒を切り捨てた値を代入しています。

行動規範の内容に同意します

回答1件

時刻は入力済みで、数式バーに表示されている値を変更したいということでしょうか。
だとしたら、書式設定(NumberFormatLocal)の設定では無理です。
書式は見た目を変更するだけですので。

ループ処理で各セルの時刻データを秒部分を切り捨てる処理をする必要があります。

vba
1    Columns(2).NumberFormatLocal = "hh:mm"    
2
3    Dim r As Range
4    For Each r In Intersect(Range("B1").CurrentRegion, Columns(2))
5        r.Value = TimeSerial(Hour(r.Value), Minute(r.Value), 0)
6    Next

なお、時刻データを文字列に変換するのは、後で活用しにくくなるのでお勧めできませんが、一応、下記のようなコードで文字列に変換できます。

vba
1    Dim r As Range, buf As String
2    For Each r In Intersect(Range("B1").CurrentRegion, Columns(2))
3        buf = Format(r.Value, "hh:mm")
4        r.NumberFormatLocal = "@"
5        r.Value = buf
6    Next