[教えて！VBA] 第8回 変更前のセルの値を保持/利用するにはどうすればいいの？？

 1Private Sub Worksheet_Change(ByVal Target As Range)
 2    Dim OldValue As Variant
 3    Dim currentCellAddress
 4    
 5    '//ポイント①　変更前の値を調べたいセル以外では処理を行わないようにする
 6    If Target.Address(False, False) <> "B3" Then Exit Sub
 7    
 8    '//ポイント②　いったんイベントを無効化し、イベントの発火を停止する
 9    Application.EnableEvents = False
10    
11    '//カーソル位置を退避させる
12    currentCellAddress = Selection.Address
13    
14    '//ポイント③　いったんセルの値をもとに戻し、古い値を変数に退避させてから再度変更後の値に戻す
15    Application.Undo
16    OldValue = Target.Value
17    Application.Undo
18    
19    '//変更前の値を別のセルに移す
20    Me.Range("D3").Value = OldValue
21    
22    '//カーソル位置を元に戻す
23    Me.Range(currentCellAddress).Select
24    
25    '//イベントを再度有効にする
26    Application.EnableEvents = True
27    
28End Sub
29

 1Private Sub Worksheet_Change(ByVal Target As Range)
 2    Dim inputValue As Variant
 3    Dim OldValues(0 To 1) As Variant
 4    Dim currentCellAddress
 5    
 6    '//変更前の値を調べたいセル以外では処理を行わないようにする
 7    If Target.Address(False, False) <> "B3" Then Exit Sub
 8    
 9    '//いったんイベントを無効化し、イベントの発火を停止する
10    Application.EnableEvents = False
11    
12    '//カーソル位置を退避させる
13    currentCellAddress = Selection.Address
14    
15    '//いったんセルの値をもとに戻し、古い値を変数に退避させてから再度変更後の値に戻す
16    inputValue = Target.Value                    '//入力した値を変数に退避
17    Application.Undo
18    '//ポイント①　入力した値が空欄であるかどうかで削除処理か変更処理かを分ける
19    If inputValue = "" Then
20        OldValues(0) = "delete"
21    Else
22        OldValues(0) = "change"
23    End If
24    OldValues(1) = Target.Value
25    Application.Undo
26    
27    '//変更前の値を別のセルに移す
28    '//ポイント②　削除処理であればF3セルに、変更処理であればD3セルに移す
29    If OldValues(0) = "delete" Then
30        Me.Range("F3").Value = OldValues(1)
31    Else
32        If OldValues(1) <> "" Then Me.Range("D3").Value = OldValues(1)
33        
34    End If
35    
36    '//カーソル位置を元に戻す
37    Me.Range(currentCellAddress).Select
38    
39    '//イベントを再度有効にする
40    Application.EnableEvents = True
41    
42End Sub

 1
 2Private Const HOKURIKU As String = "富山;石川;福井;"
 3
 4Private Sub Worksheet_Change(ByVal Target As Range)
 5    Dim OldValue As Variant
 6    Dim currentCellAddress
 7    Dim HOKURIKUs() As String
 8    Dim oneHokuriku As Variant
 9    Dim isHokuriku As Boolean
10    
11    '//変更前の値を調べたいセル以外では処理を行わないようにする
12    If Target.Address(False, False) <> "B3" Then Exit Sub
13    
14    '//いったんイベントを無効化し、イベントの発火を停止する
15    Application.EnableEvents = False
16    
17    '//カーソル位置を退避させる
18    currentCellAddress = Selection.Address
19    
20    '//北陸県を配列として取得する
21    HOKURIKUs = Split(HOKURIKU, ";")
22    isHokuriku = False
23    
24    '//ポイント①　入力値が北陸県のいずれかに該当すれば戻さない
25    '//　　　　　　該当しなければ変更前に戻すようにする
26    For Each oneHokuriku In HOKURIKUs
27        If Target.Value = oneHokuriku Then
28            isHokuriku = True
29            Exit For
30        End If
31    Next oneHokuriku
32    If Not isHokuriku Then Application.Undo
33    
34    '//カーソル位置を元に戻す
35    Me.Range(currentCellAddress).Select
36    
37    '//イベントを再度有効にする
38    Application.EnableEvents = True
39    
40End Sub

 1Private Sub Worksheet_Change(ByVal Target As Range)
 2    Dim OldValue As Variant
 3    Dim currentCellAddress
 4    Dim lists() As String
 5    Dim firstCount As Long
 6    Dim valueFromList As Variant
 7    Dim i As Long
 8    
 9    '//変更前の値を調べたいセル以外では処理を行わないようにする
10    If Target.Address(False, False) <> "B3" Then Exit Sub
11    
12    '//いったんイベントを無効化し、イベントの発火を停止する
13    Application.EnableEvents = False
14    
15    '//カーソル位置を退避させる
16    currentCellAddress = Selection.Address
17    
18    '//いったんセルの値をもとに戻し、古い値を変数に退避させてから再度変更後の値に戻す
19    Application.Undo
20    OldValue = Target.Value
21    Application.Undo
22    
23    '//変更前の値を別のセルに移す
24    '////配列の形で現在のリストを取得する
25    lists = Split(Me.Range("D3").Value, vbLf)
26    firstCount = LBound(lists)
27    
28    '////リスト項目が10以上であれば、最初の値を消すようにする
29    If (UBound(lists) - LBound(lists) + 1) = 10 Then firstCount = firstCount + 1
30    
31    '////新しいリストを作成する
32    For i = firstCount To UBound(lists)
33        valueFromList = valueFromList & lists(i) & vbLf
34    Next i
35    valueFromList = valueFromList & OldValue
36    
37    Me.Range("D3").Value = valueFromList
38    
39    '//カーソル位置を元に戻す
40    Me.Range(currentCellAddress).Select
41    
42    '//イベントを再度有効にする
43    Application.EnableEvents = True
44    
45End Sub
46
47