Excel VBA質問箱 IV

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

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


38854 / 76738 ←次へ | 前へ→

【43012】Re:セルの値が変更した時のコメント
発言  パン E-MAIL  - 06/9/29(金) 9:26 -

引用なし
パスワード
   ▼ゆう さん:

下のコードをテストしてみてください、
あらかじめ”記録”という、シートを作成しておき、プロシージャを記録を残しておきたいシートに記入します。


Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Adr As String
  Adr = ActiveCell.Address
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Undo
  With Sheets("記録").Range("A65536").End(xlUp).Offset(1)
    .Value = Target.Address(False, False)
    .Range("B1").Value = Target.Value
    Application.Undo
    .Range("C1").Value = Target.Value
    .Range("A1:C1").Borders.LineStyle = xlContinuous
  End With
  Range(Adr).Activate
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

>おせわになります。
>
>セルを更新した時、変更前のデータをコメントとして残しておきたいのですが、
>可能でしょうか?
>コメントの
>Worksheet_Changeを使用したとき、変更前のデータはどう取ればよいのでしょうか?
>
>例えば、A1セルの内容を AAからBB、BBからCCに変更したとき(変更日も表示)
>コメントには 『9/27 変更前 AA
>        9/28 変更前 BB』のような感じで、
>履歴として残しておきたいのです。
>どなたかご教授願えないでしょうか。
>よろしくお願いします。

0 hits

【43011】セルの値が変更した時のコメント ゆう 06/9/29(金) 9:06 質問
【43012】Re:セルの値が変更した時のコメント パン 06/9/29(金) 9:26 発言
【43014】Re:セルの値が変更した時のコメント ゆう 06/9/29(金) 9:42 質問
【43013】Re:セルの値が変更した時のコメント ひげくま 06/9/29(金) 9:37 発言
【43016】Re:セルの値が変更した時のコメント ゆう 06/9/29(金) 9:46 お礼
【43015】Re:セルの値が変更した時のコメント だるま 06/9/29(金) 9:46 回答
【43017】Re:セルの値が変更した時のコメント ゆう 06/9/29(金) 10:09 お礼
【43019】Re:セルの値が変更した時のコメント ゆう 06/9/29(金) 10:11 お礼

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