Excel VBA質問箱 IV

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

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


33797 / 76734 ←次へ | 前へ→

【48153】Re:年、月、曜日から該当する日を表示
回答  Kein  - 07/4/5(木) 13:44 -

引用なし
パスワード
   作業列とオートフィルターを使うコードです。エラーへの対処はしていません。

Sub Get_WDay()
  Dim SDy As Date, EDy As Date
  Dim MyR As Range
  Dim Wdy As String
 
  SDy = DateSerial(Range("A1").Value, Range("A2").Value, 1)
  EDy = DateAdd("m", 1, SDy)
  Wdy = Range("A3").Text
  Range("A4:A10").Clear
  Range("IV1").Value = "曜日"
  With Range("IU2")
   .Value = SDy
   .AutoFill .Resize(EDy - SDy), xlFillDays
   Set MyR = Range(.Cells(1), .End(xlDown))
  End With
  MyR.Offset(, 1).Formula = "=TEXT($IU1,""aaa"")"
  Range("IV1", Range("IV65536").End(xlUp)).AutoFilter 1, Wdy
  MyR.SpecialCells(12).Copy Range("A4")
  ActiveSheet.AutoFilterMode = False
  Range("IU:IV").Clear: Set MyR = Nothing
End Sub

3 hits

【48143】年、月、曜日から該当する日を表示 ピンキー 07/4/5(木) 2:53 質問
【48146】Re:年、月、曜日から該当する日を表示 ichinose 07/4/5(木) 7:50 発言
【48168】Re:年、月、曜日から該当する日を表示 訂正 ichinose 07/4/5(木) 20:26 発言
【48153】Re:年、月、曜日から該当する日を表示 Kein 07/4/5(木) 13:44 回答
【48193】Re:年、月、曜日から該当する日を表示 ピンキー 07/4/7(土) 21:14 お礼

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