VBAで出した数字の分表示について

質問

Public Sub Jikoku()
Range("A1").Value = Format(Now(), "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Jikoku"
End Sub

このVBAをつかって時間を出してセルの書式設定で
mm表示で時間だけ表示しようとすると
例えば9：32：26だとしても01と表示されてしまいます。
mm：ssだと32：26と出るのですが、分だけだとうまくいきません。
原因が分かる方いらっしゃいますでしょうか？
原因かどうかわかりませんが年数表示が1900年となってしまいます。
PCの設定は2014年なのですが、、

回答No.1

keithin · ベストアンサー

ちなみにセルに手書きで
12:34:56
と時：分：秒を記入し、そこにセルの書式設定の表示形式のユーザー定義で
yyyy/m/d h:m:s
と設定してみると、
1900/1/0 12:34:56
という表示が現れます。

また数字のゼロを記入したセルに年月日の表示形式を取り付けると、
1900/1/0
が現れます。
日付のデータを持たない時刻だけの数字は、この日付で計算されるエクセルのシクミになっています。

＞mm表示で時間だけ表示しようとすると
＞例えば9：32：26だとしても01と表示されてしまいます。

ｍだけを使うと「月」のｍと解釈されて、１月の１が表示されます。
これはエクセルの仕様上の制約です。回避する方法はありませんので、ｍを使って分だけを表示する事はできません。
ｈのあとのｍ、ｓの前のｍだけが分を表示できます。

＞VBAをつかって時間を出してセルの書式設定で
＞mm表示で時間だけ表示しよう

とりあえずこんな具合で。
sub macro1()
range("A1") = minute(now)
application.ontime now + timeserial(0,0,1), "macro1"
end sub

お礼

うまくいきました！いつも有難うございます！