Excel VBA質問箱 IV

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

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


40122 / 76732 ←次へ | 前へ→

【41711】Re:置換について
回答  [名前なし]  - 06/8/21(月) 1:21 -

引用なし
パスワード
   ▼しげ さん:
>確認しないと問題が発生するわけではありません。
では、確認なんてやめましょう。無駄ですし。

期間以前の月は無視し、期間内・期間以降の月に
年を追加するようにしてあります。

Sub Macro1()
Dim MonthStart As Date, MonthEnd As Date
Dim CellStart As Range, CellEnd As Range
  
  With Worksheets("シート1")
    MonthStart = DateValue(.Range("A1").Text & "1日")
    MonthEnd = DateValue(.Range("C1").Text & "1日")
  End With
  

  With Worksheets("シート2")
    Set CellStart = .Rows(1).Find(What:=Format(MonthStart, "m月"), _
      After:=.Range("A1"), LookAt:=xlWhole)
    If CellStart Is Nothing Then
      Set CellStart = .Range("A1")
    End If
    
    Set CellEnd = .Cells(1, Columns.Count).End(xlToLeft)
    
    With .Range(CellStart, CellEnd)
      .Cells(1).Value = Format(MonthStart, "yyyy年") & CellStart.Text
      .Cells(1).AutoFill Destination:=.Cells
      .EntireColumn.AutoFit
    End With
  End With
  
  Set CellStart = Nothing
  Set CellEnd = Nothing
  
  MsgBox "完了しました。", vbInformation
End Sub

0 hits

【41608】置換について しげ 06/8/17(木) 0:08 質問
【41624】Re:置換について [名前なし] 06/8/17(木) 11:17 発言
【41635】Re:置換について しげ 06/8/17(木) 23:30 発言
【41640】Re:置換について [名前なし] 06/8/18(金) 1:45 発言
【41710】Re:置換について しげ 06/8/21(月) 0:29 発言
【41711】Re:置換について [名前なし] 06/8/21(月) 1:21 回答

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