MsgBoxへの和暦表示について

　G2に=DATE(C1,G1,1)で日付を取得し和暦表示で「H25年03月」とセルの書式設定で
しているのですが、これをMsgBoxに同じように表示させたいのですが、お教え願えま
せんでしょうか。

Windows7 Office2010

Dim ret As Integer

ret = MsgBox(ActiveSheet.Range("G2").Value & "の勤務割表を編集データを元に作成します。よろしいですか?", _
vbOKCancel + vbQuestion, "作成")

Select Case ret
Case vbOK

処理のコード文

Case vbOKCancel
Exit Sub
End Select

No.1 ベストアンサー 回答者： sean9 回答日時： 2013/03/23 10:15

こんにちは。

フォーマットを指定します。
Dim text = Format(ActiveSheet.Range("G2").Value, "ge年mm月")
ret = MsgBox(text & "の勤務割表を編集データを元に作成します。よろしいですか?", _
vbOKCancel + vbQuestion, "作成")

もしくは

ret = MsgBox(Format(ActiveSheet.Range("G2").Value, "ge年mm月") & "の勤務割表を編集データを元に作成します。よろしいですか?", _
vbOKCancel + vbQuestion, "作成")

になります。

この回答へのお礼

　御丁寧な解答ありがとうございます。Formatの指定はわかっていたのですが、
Valueの後の "ge年mm月"の書き方がわかりませんでした。

紙媒体ではこうはいきませんし。

お礼日時：2013/03/23 22:16

No.2 回答者： n-jun 回答日時： 2013/03/23 10:26

Range("G2").Value

ではなく

Range("G2").Text

ならどうですか？