|
こんばんは
新規ブックで試して下さい。
「jyunbi」でテストデータを作ります。
数値の入ったセルが日々のデータを入力する位置と仮定します。
「test」で転記しクリアします。
本日(2/1)であればSheet2の 1行目に転記されます。
(シート2のA1セルには1日、A2セルには2日、A3セルには3日のデータを記録したい)
というsuuさんの説明を拡大解釈してます。
月を跨る入力があるのならそのような説明をして下さい。
Sub jyunbi()
With Worksheets("Sheet1")
.Range("B4").Value = 1
.Range("D8").Value = 2
.Range("D10").Value = 3
.Range("D12").Value = 4
.Range("B18:F18").Value = 5
.Range("B20:F20").Value = 6
End With
End Sub
Sub test()
Dim i As Long
i = Day(Date)
With Worksheets("Sheet1")
Worksheets("Sheet2").Cells(i, 1).Value = .Range("B4").Value
Worksheets("Sheet2").Cells(i, 2).Value = .Range("D8").Value
Worksheets("Sheet2").Cells(i, 3).Value = .Range("D10").Value
Worksheets("Sheet2").Cells(i, 4).Value = .Range("D12").Value
Worksheets("Sheet2").Cells(i, 5).Resize(, 5).Value = .Range("B18:F18").Value
Worksheets("Sheet2").Cells(i, 10).Resize(, 5).Value = .Range("B20:F20").Value
.Range("B4,D8,D10,D12,B18:F18,B20:F20").ClearContents
End With
End Sub
|
|