Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2991 / 13644 ツリー ←次へ | 前へ→

【64869】営業日だけ日付印刷 VBA初心者 10/3/22(月) 14:12 質問[未読]
【64870】Re:営業日だけ日付印刷 UO3 10/3/22(月) 15:22 回答[未読]
【64871】Re:営業日だけ日付印刷 VBA初心者 10/3/22(月) 20:26 質問[未読]
【64872】Re:営業日だけ日付印刷 UO3 10/3/22(月) 22:58 回答[未読]
【64877】Re:営業日だけ日付印刷 VBA初心者 10/3/23(火) 19:11 お礼[未読]

【64869】営業日だけ日付印刷
質問  VBA初心者  - 10/3/22(月) 14:12 -

引用なし
パスワード
    VBA初心者です。

 一枚のシートの適宜の場所に、年と月(例えばA1に「年」B1に「月」)を
入力してマクロを実行すると土・日・祝日以外の指定月分の日付が
F3のセルに1日から末日まで一枚づつ
印刷されるというのはどのようにすればいいでしょう?

よろしくお願いいたします。

【64870】Re:営業日だけ日付印刷
回答  UO3  - 10/3/22(月) 15:22 -

引用なし
パスワード
   ▼VBA初心者 さん:

こんにちは。
本件については様々なサイトで、方法の提示があります。
以下は井上治さんのページ。祝日・会社の休み等々の対応もされていて
参考になるかと思います。

h tp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_050.html

【64871】Re:営業日だけ日付印刷
質問  VBA初心者  - 10/3/22(月) 20:26 -

引用なし
パスワード
   >UO3 さん
 早速の回答ありがとうございます。
教えていただきましたサイトをずーっと拝見させていただきました。
でも、初心者の私にはちょっと、むづかしいような・・・・・

私の知人で少しだけわかるって人に「土・日・休日」関係なしの
1日から末日までをプリントする方法ならと下記のように教わりました。

Dim i As Integer
Dim myDate As String

myDate = Range("a1").Value & "/" & Range("b1").Value & "/" & 1

For i = 1 To Day(DateAdd("m", 1, myDate) - 1)
  Range("f3").Value = i
  ActiveSheet.PrintOut
Next i

End Sub

これを、少し利用して何とかする方法ってないでしょうか?
よろしくお願いいたします。

【64872】Re:営業日だけ日付印刷
回答  UO3  - 10/3/22(月) 22:58 -

引用なし
パスワード
   ▼VBA初心者 さん:
こんばんは。
それでは、たとえば以下のようなコードで。

Option Explicit

Sub Sample()
Dim i As Integer
Dim days As Integer
Dim BaseYY As Integer
Dim BaseMM As Integer

  BaseYY = Range("a1").Value
  BaseMM = Range("b1").Value
  '指定月の日数。(翌月1日の前日の日付)
  days = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(BaseYY, BaseMM, 1))))

  For i = 1 To days
    If WorksheetFunction.Weekday(DateSerial(BaseYY, BaseMM, i), 2) < 6 Then
    '6:土曜日、7:日曜日
      Range("f3").Value = i
      ActiveSheet.PrintOut
    End If
  Next i

End Sub

【64877】Re:営業日だけ日付印刷
お礼  VBA初心者  - 10/3/23(火) 19:11 -

引用なし
パスワード
   こんばんは。

>UO3 さん
本当にありがとうございます。

とっても、助かります。
参考にして自分でも勉強しながらやってみます。

本当にありがとうございました。

2991 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free