|
▼(。。j) さん:
ログを残すと言うことは、あとで何かに利用すると言うことですよね?
それですと今の1つのCELLに複数情報入れるのはどうかと思い勝手に
こんなものを考えてみました。(CELL内文字数制限もあると思いますし)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Worksheets("Sheet1")
'データ転記スペースを確保。
'データが65535以上になったときの処理入れてません。
.Range("D2:J2").Insert Shift:=xlDown
'処理時刻の記述。
.Range("D2").Value = Now()
'データをLog最上部に転記。
.Range("E2").Value = .Range("A3").Value
.Range("F2").Value = .Range("B3").Value
.Range("G2").Value = .Range("A4").Value
.Range("H2").Value = .Range("B4").Value
.Range("I2").Value = .Range("A5").Value
.Range("J2").Value = .Range("B5").Value
'入力データ消去。
.Range("A3:B5").ClearContents
End With
End Sub
質問通りの回答については、超初心者様が書かれていますのでそちらを
参考としてください。
>いつもお世話になっております。
>またよろしくお願いします。
>
>状況とコメントの列があり、ここは常に内容が変わります。記録保存のため、
>隣の行にログ列をつけて、ここに状況とコメントの内容をエクセルを閉じる度にセル内に1文字スペースを空けてコピーさせていきたいと思っています。
>
>以下のような感じです。。。
>
> A B C
>1 状況 コメント ログ
>2
>3 熱い クーラー買いますか? 熱い クーラー買いますか?
>4 眠い 顔洗ってきなさい。 眠い 顔洗ってきなさい。
>5 うるさい 窓しめるよ。 うるさい 窓しめるよ。
>
> ↓↓↓
>
> A B C
>1 状況 コメント ログ
>2
>3 寒い エアコン買いますか? 熱い クーラー買いますか? 寒い エアコン買いますか?
>4 痛い 病院いきなさい。 眠い 顔洗ってきなさい。 痛い 病院いきなさい。
>5 汚い 洗えば? うるさい 窓しめるよ。 汚い 洗えば?
>
>
>どうかよろしくお願いしますm(_ _)m
|
|