エクセルで、１つのセルで上書き足し算してセルの範囲を指定できますか？パソコン初心者です。お時間

Question

エクセルで、１つのセルで上書き足し算して
セルの範囲を指定できますか？
パソコン初心者です。
お時間があったらお答えをおねがいします！

自分で色々検索して参考になるものがあったのですが
他のセル場所を指定しても反映されずどのように作れば良いか分からなくなってしまいました。

Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim myValue As Double
　 Dim preVAlue As Double
　　'セルは、A1 
　 If Target.Address <> "$A$1" Then Exit Sub
　 With Application
　　　.EnableEvents = False
　　　.ScreenUpdating = False
　　　If VarType(Target.Value) = vbDouble Then
　　　　 myValue = Target.Value
　　　　 .Undo
　　　　 preVAlue = Target.Value
　　　　 If VarType(preVAlue) = vbDouble Then
　　　　　　Target.Value = myValue + preVAlue
　　　　　　Else
　　　　　　Target.Value = myValue
　　　　 End If
　　　End If
　　　.ScreenUpdating = True
　　　.EnableEvents = True
　 End With
End Sub

を使ってA1だけでなくA1からC3まで同じ動作がセルごとにできるようにしたいのですが分かる方がいらっしゃったら教えて頂きたいです。
よろしくお願いします。

作成はシートタブのコードの表示でつくていますが、
他に同じ動作で簡単にできるものがあれば教えて頂きたいです、、、

ママチャリ · Accepted Answer

fuj*** さん。こんなのは、どうでしょう！！

'【標準モジュール】
Public Const strRng As String = "A1:C3"
Public myArray As Variant

'【シートモジュール】
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myRng As Range
    Dim r As Range
    Set myRng = Intersect(Target, Range(strRng))
    If Not myRng Is Nothing Then
        Application.EnableEvents = False
        For Each r In myRng
            r = WorksheetFunction.Sum(r, myArray(r.Row, r.Column))
        Next
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range(strRng)) Is Nothing Then
        myArray = Range(strRng)
    End If
End Sub

fujillin · Answer

こんにちは

ご質問には直接関係はないので、回答ではありませんけれど・・

一つのセルを上書きしてしまう仕様なので、セル範囲（＝複数セル）にコピペで値を入力した際にも問題ないように配慮しておいた方がよさそうな気がします。

まぁ、そのようなコピペなど絶対に行わないというのであれば、無視してくだされば良いですが。

初心者ですが何か。 · Answer

Public myValue As Double

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim preVAlue As Double
    'セルは、A1
   If Intersect(Target, Range("$A$1:$C$3")) Is Nothing Then Exit Sub
   With Application
      .EnableEvents = False
      .ScreenUpdating = False
      If VarType(Target.Value) = vbDouble Then
         myValue = Target.Value
         .Undo
         preVAlue = Target.Value
         If VarType(preVAlue) = vbDouble Then
            Target.Value = myValue + preVAlue
            Else
            Target.Value = myValue
         End If
      End If
      .ScreenUpdating = True
      .EnableEvents = True
   End With
End Sub

かな？

エクセルで、１つのセルで上書き足し算して セルの範囲を指定できますか？ パソコン初心者です。 お時間

fuj*** さん。

こんにちは

Public myValue As Double

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルで、１つのセルで上書き足し算してセルの範囲を指定できますか？パソコン初心者です。お時間