[[20030901213932]]　『上書きしても累計を正しくしたい』（KEN）　ページの最後に飛ぶ

『上書きしても累計を正しくしたい』（KEN）

たとえばA1に1　B1に累計として1と表示される場合
A1を2と置き換えてもB1には　3と表示させることは出来るのでしょうか？

 シートモジュールにコピペして下さい。(INA)

 Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("A1").Address Then
      Range("B1").Value = Range("B1").Value + Range("A1").Value
   End If
 End Sub

教えてください。A1とB1だけの関係のときは上記のようなプログラムで
出来たのですが、これが広い範囲になったときはどうすればよいのですか？
たとえば、A1からA10と　B1からB10　までなど・・・

 Worksheet_Changeイベントの対象となる範囲をIf文で判別させています。
 よってイベントの対象によって、動作を変えるのであれば、その分だけ場合分けする 必要があります。

 Private Sub Worksheet_Change(ByVal Target As Range)   
   If Target.Address = Range("A1").Address Then
          Range("B1").Value = Range("B1").Value + Range("A1").Value
   End If    
   If Target.Address = Range("A2").Address Then
          Range("B2").Value = Range("B2").Value + Range("A2").Value
   End If
　　　　：
　　　　：　　　　　　
　　　以下同様

 End Sub

 (INA)

 Private Sub Worksheet_Change(ByVal Target As Range)
   With Target
     If .Column = 1 And .Row <= 10 Then
       .Offset(0, 1).Value = .Value + .Offset(0, 1).Value
    End If
   End With
 End Sub

  こんな感じでもいいかもしれませんね　　　（りな）

コメント返信：

[ 一覧(最新更新順) ]

[[20030901213932]] 『上書きしても累計を正しくしたい』（KEN） ページの最後に飛ぶ

[[20030901213932]]　『上書きしても累計を正しくしたい』（KEN）　ページの最後に飛ぶ