Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


17512 / 76738 ←次へ | 前へ→

【64679】Re:保存後にログをとるには。。。
発言  SS  - 10/3/7(日) 12:56 -

引用なし
パスワード
   ▼(。。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
0 hits

【64677】保存後にログをとるには。。。 (。。j) 10/3/5(金) 16:11 質問
【64678】Re:保存後にログをとるには。。。 超初心者 10/3/6(土) 9:44 発言
【64729】Re:保存後にログをとるには。。。 (。。j) 10/3/10(水) 15:09 発言
【64732】Re:保存後にログをとるには。。。 超初心者 10/3/10(水) 15:44 発言
【64679】Re:保存後にログをとるには。。。 SS 10/3/7(日) 12:56 発言
【64728】Re:保存後にログをとるには。。。 (。。j) 10/3/10(水) 15:06 発言
【64738】Re:保存後にログをとるには。。。 SS 10/3/10(水) 20:00 発言
【64747】Re:保存後にログをとるには。。。 (。。j) 10/3/11(木) 14:22 お礼
【64749】Re:保存後にログをとるには。。。 (。。j) 10/3/11(木) 16:39 発言
【64780】Re:保存後にログをとるには。。。 よろずや 10/3/13(土) 8:19 回答

17512 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free