Excel VBA質問箱 IV

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

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


51846 / 76732 ←次へ | 前へ→

【29741】Re:単一のセルの値が更新された時
回答  りん E-MAIL  - 05/10/12(水) 21:56 -

引用なし
パスワード
    川崎 さん、こんばんわ。

>単一のセルの値が更新された時に更新前の値を記憶
>しておいて更新後の値から更新前の値を引いた差分を
>求めたいのですが、
基本的にはJakaさんと同じ内容です。

Dim Dt1 As Double, Dt2 As Double 'グローバルで宣言(ずっと保持するため)
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(False, False) = "A1" Then
    Dt2 = Target.Value '入力された値
    If Dt1 > 0 Then
      With Application
        .EnableEvents = False
        Target.Value = Dt2 - Dt1
        .EnableEvents = True
      End With
    End If
    '
    Dt1 = Dt2
  End If
End Sub

グローバル変数は今一つ信用できないので(どのタイミングかで値が失われることがある)、変数に入れずにどこかのセルに入れておくほうが確実かもしれません。
0 hits

【29696】単一のセルの値が更新された時 川崎 05/10/12(水) 3:57 質問
【29708】Re:単一のセルの値が更新された時 MARBIN 05/10/12(水) 10:15 回答
【29735】Re:単一のセルの値が更新された時 kobasan 05/10/12(水) 20:46 発言
【29739】Re:単一のセルの値が更新された時 川崎 05/10/12(水) 21:37 質問
【29741】Re:単一のセルの値が更新された時 りん 05/10/12(水) 21:56 回答
【29745】Re:単一のセルの値が更新された時 kobasan 05/10/12(水) 22:14 発言
【29746】Re:単一のセルの値が更新された時 川崎 05/10/12(水) 22:28 お礼

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