（４）文字型変数を使う例題

文字型も数値型も変数の使い方は同じです。
今回は日付関数・時間関数の使い方も勉強しましょう。
文字列の連結は＆でつなぎます。
メッセージボックス内での改行はvbCrLfを使います。
ではVBAのプログラムを参考にしてください。

Sub moji()
    Dim tuki As String
    Dim 日 As String
    Dim hi As Long
    tuki = Cells(4, 1)
    日 = Cells(5, 1)
    hi = Day(Date)
    Cells(1, 3) = Cells(1, 1) & Cells(2, 1) & Year(Date) & Cells(3, 1) & Month(Date) & tuki & hi & 日
    Cells(2, 3) = "時間は" & Hour(Time) & "時" & Minute(Time) & "分" & Second(Time) & "秒"
End Sub
Sub mojimsg()
    Dim tuki As String
    Dim jikan As String
    tuki = Cells(1, 1) & Cells(2, 1) & Year(Date) & Cells(3, 1) & Month(Date) & Cells(4, 1) & Day(Date) & Cells(5, 1)
    jikan = "時間は" & Hour(Time) & "時" & Minute(Time) & "分" & Second(Time) & "秒"
    MsgBox tuki & vbCrLf & jikan
End Sub