条件に合ったデータを抽出し、別シートに印刷データを作成しています。
既に使用しているマクロを変更して使いたいのですが、いままではmonthを使用して合致する「月」のデータを抽出していましたが、今度「月」が入力してあるセルに新たに上期、下期の文字も混ぜても抽出できたらと考えています。どのように変更すれば可能なのか教えていただけないでしょうか?
なお、実際に作成する際は"表紙""C2"から"C3"以降の繰り返しになります。またコードは抜粋していますので足りないところがあるかもしれませんがご容赦ください。
A号
'必要項目を記入します。
With Sheets("A号")
Range("a65536").End(xlUp).Offset(1).Select
Selection.Value = .Range("a1").Value
Selection.Font.Size = 18
Range("a65536").End(xlUp).Offset(1).Select
Range(Selection, Selection.Offset(, 10)).Value = .Range("a2:j2").Value
Selection.Offset(, 10).Value = "点検予定月"
Selection.Offset(, 11).Value = "点検設計"
Selection.Offset(, 12).Value = "点検日"
Selection.Offset(, 13).Value = "点検結果"
Selection.Offset(, 14).Value = "備考"
Range(Selection, Selection.Offset(, 14)).HorizontalAlignment = xlCenter
'点検対象を探して記入します。
a = 3
Do Until .Cells(a, 1).Value = ""
If Year(.Cells(a, 12).Value) = Year(Sheets("表紙").Range("c2").Value) Then
If Month(.Cells(a, 12).Value) = Month(Sheets("表紙").Range("c2").Value) Then
.Cells(a, 10).Value = .Cells(a, 13).Value
.Cells(a, 13).ClearContents
.Cells(a, 11).Value = .Cells(a, 15).Value
.Cells(a, 15).ClearContents
.Cells(a, 14).ClearContents
.Range(.Cells(a, 1), .Cells(a, 10)).Copy
Range("a65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders
Application.CutCopyMode = False
Range("k65536").End(xlUp).Offset(1).Value = .Cells(a, 12).Value
Range("n65536").End(xlUp).Offset(1).Value = "良 否"
End If
End If
出力結果
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/06/17 13:24