|
▼kein さん:
返信ありがとうございます。また、質問なんですが、データを判別して月によって貼り付けるセルの位置を指定することは出来ますでしょうか?
たとえば1月分のデータはA1,2月分はA2という風に。
よろしくお願いします。
>最終保存日の月が1ヶ月前なら、シート1をコピーしてシート2に貼りつける。
>というコードは
>
>Sub Auto_Open()
> Dim x As Integer, y As Integer
>
> x = Month(FileDateTime(ThisWorkbook.FullName))
> y = Month(Date)
> If x = 12 Then
> If y = 1 Then
> Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Range("A1")
> End If
> Else
> If y - x = 1 Then
> Sheets("Sheet1").Cells.Copy Sheets("Sheet2").Range("A1")
> End If
> End If
>End Sub
>
>Sub Auto_Close()
> ThisWorkbook.Save
>End Sub
>
>こんな感じですね。標準モジュールに入れて下さい。
|
|