ここから本文です

ＶＢＡ初心者です。エクセルの1枚の表を一月分印刷し、その表のシート内（Ｔ8）に...

プロフィール画像

hir********さん

2016/4/2519:27:57

ＶＢＡ初心者です。エクセルの1枚の表を一月分印刷し、その表のシート内（Ｔ8）に曜日を入れたいのですが、 日付の連番はなんとかできたのですが、曜日は分からないので手書きです。

現在 以下のようなＶＢＡでやっています。これに手を加えて曜日を入れたいのですが、どなたか教えてもらえないでしょうか

Sub NumberPrint()
Dim idx As Integer
Dim frmPage, toPage
frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _
& "開始番号を入力してください", Type:=1)
toPage = Application.InputBox("終了番号を入力してください", Type:=1)
If frmPage > 0 And toPage >= frmPage Then
For idx = frmPage To toPage
Range("q8").Value = idx
ActiveSheet.PrintOut
Next idx
Else
MsgBox "開始番号、終了番号が不適切です。印刷は行いません"
End If
End Sub

閲覧数：
53
回答数：
1
お礼：
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

crm********さん

2016/4/2520:24:26

下記でいかがでしょうか。

Range("q8").Value = idx の下に


Range("T8") = Format(CDate(Month(Date) & "/" & idx), "aaa")


↑を追加してお試しください。

違反報告

  • プロフィール画像

    質問者

    hir********さん

    2016/5/207:26:29

    回答ありがとうございます！　仕事に使用しているので　とても助かります。

    違反報告

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

みんなで作る知恵袋　悩みや疑問、なんでも気軽にきいちゃおう！

Q&Aをキーワードで検索：

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる