エクセルＶＢＡとmsg関数

質問

こんばんは。
エクセルＶＡＢ初心者です。

現在、エクセル2003で以下の画像のような
表を作成しました。

上段が請求書データ（シート1）で、
下段が請求書の印刷フォーム（シート2）です。

ＶＢＡで実行する処理は、請求書データＮＯをそれぞれ
任意でクリックし、選択しているＮＯの行データをシート2にそれぞれ
転記していき、一括で印刷するものです。

以下のように、コードを作りました。

Sub 発行()
Dim i As Range
Dim m As Integer
Dim W1 As String
With Selection
W1 = Cells(.Row, 1).Value & " ～ " & _
Cells(.Rows.Count + .Cells(1, 1).Row - 1, 1).Value & vbCrLf & _
" の請求書を発行しますか？"
m = MsgBox(W1, vbYesNoCancel)
If m <> vbYes Then Exit Sub
For Each i In .Resize(, 1)
With Sheets("Sheet2")
.Range("b1").Value = Cells(i.Row, 1).Value
.Range("e1").Value = Cells(i.Row, 2).Value
.Range("c5").Value = Cells(i.Row, 3).Value
.Range("b3").Value = Cells(i.Row, 4).Value
.Range("c6").Value = Cells(i.Row, 5).Value
.PrintOut
End With
Next
End With
End Sub

ここで質問なのですが、"の請求書を発行しますか？"
の後に、選択している行の数を（合計Ｏ枚）のように
表示したいのですが、どのようなコードを入れればいいのでしょうか。

また、メッセージボックスのウインドウの中の文字が
小さいので、もう少し大きくしたいのです。

以上の2点ですが、お願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

keithin · ベストアンサー

すでにあなたのマクロで実現できていることの，組み合わせで出来ますよ。

変更後：
W1 = Cells(.Row, 1).Value & " ～ " & _
　Cells(.Rows.Count + .Cells(1, 1).Row - 1, 1).Value & vbCrLf & _
　" の請求書を発行しますか？" & vbCrLf & _
　"(合計 " & .rows.count & " 枚)"

＞もう少し大きく

メッセージボックスでは出来ません。
そういうモノとして使っていただいた方が簡単ですが，どうしても支障があるようならユーザーフォーム（UserForm）を自前で作成し，表示させるような事も出来ます。
メッセージはユーザーフォーム上に配置したラベルコントロールなどで表示させ，Yes/No/Cancelボタンはそれぞれコマンドボタンを配置しマクロでそれぞれの命令を作成します。