|
教えてください。
日々の精算書のデータを最終合計表(月間の各種の合計表)に転記しています。
ところが、1日だけ2日の日に転記されました。
その後は問題なく2日からは順調に転記ができます。
h1には =now() を設定しています。(表示形式:ユーザー定義 dd )
最終合計表のa5:a35 は、1日から31日(表示形式:ユーザー定義 dd )
h1とa5:a35の表示形式は、色々試してみましたが、出来ませんでした。
次回確認できるのは、4月1日しかないですが、
その他の方法の方が確実でよいでのしょうか?
他の方法があればご提案、ご回答ください。
Sub 転記()
Dim Hiduke As String
Dim myDate As Date
Dim c
Dim d
Worksheets("最終合計表").Select
myDate = Range("h1").Value
Hiduke = Day(myDate)
MsgBox Hiduke + ("日のデータの書き込みを行ないます")
With Worksheets("最終合計表").Range("a5:a35")
Set c = .Find(Hiduke)
c.Select
Selection.Offset(0, 2).Select
ActiveCell.Value = Worksheets("精算書").Range("am38").Value
Selection.Offset(0, 1).Select
ActiveCell.Value = Worksheets("精算書").Range("am40").Value
Selection.Offset(0, 1).Select
ActiveCell.Value = Worksheets("精算書").Range("am42").Value
End With
Worksheets("売掛金明細表").Select
myDate = Range("x1").Value
With Worksheets("売掛金明細表").Range("a6:a36")
Set d = .Find(Hiduke)
d.Select
Selection.Offset(0, 2).Select
ActiveCell.Value = Worksheets("売掛金精算表").Range("j5").Value
Selection.Offset(0, 1).Select
ActiveCell.Value = Worksheets("売掛金精算表").Range("n5").Value
Selection.Offset(0, 1).Select
ActiveCell.Value = Worksheets("売掛金精算表").Range("ao5").Value
End With
End Sub
|
|