
書くことはできません
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
If Minute(Now)<10 then
"0" & Minute(Now)
Else
Minute(Now)
End If _
& ".xlsm"
これを最もエレガントな方法で行うにはどうすればいいでしょうか?
答え1
使用できますIif
:
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Iif(Minute(Now)<10, "0" & Minute(Now), Minute(Now)) & ".xlsm"
答え2
または、数値をフォーマットします。
STRINGA = "NamewordStuff" & Format(Date, "YYYY-MM-DD") & "-" & Hours(Now) & _
Format(Minute(Now),"00") & "xlsm"