[[20180517211334]]　『複数の指定範囲の入力セルに自動的に数値を加算し』（ftr）　ページの最後に飛ぶ

『複数の指定範囲の入力セルに自動的に数値を加算して表示』（ftr）

同一シートで
指定範囲のセルA1.A2.A3.A4に数値を入力し、そのセルに自動で17を加算して表示。

 指定範囲のセルA8.A9.A10に数値を入力し、そのセルに自動で10を加算して表示。 
 指定範囲のセルA14.A15.A16.A17.A18.A19.A20に数値を入力し、そのセルに自動で3を加算して表示。 
この様な方法を教えていただきたい。

＜使用 Excel：Excel2007、使用 OS：Windows10 ＞

 自動かどうかわかりませんが、

 >指定範囲のセルA1.A2.A3.A4に数値を入力し、そのセルに自動で17を加算して表示。

 の場合でしたら、どこかに17と入力してそれをコピーして
 張り付ける時に右クリック→形式を選択して貼り付け→加算
 で、その様な結果になるにはなりますけどね
（SoulMan） 2018/05/17(木) 22:13

以前に下記の質問をしました。
指定範囲のセルA1とA2とA3とA4に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA8とA9とA10に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA14とA15とA16とA17とA18とA19A20に数値を入力し、そのセルに自動で3を加算して表示。
（入力されていた数値をクリアした場合は空白表示。）

その回答として次の回答を頂き、使用しており対応できておりました。

Option Explicit

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim c As Range

    Set r = Intersect(Target, Range("A1:A4,A8:A10,A14:A20"))
    If r Is Nothing Then Exit Sub

    Application.EnableEvents = False

     For Each c In r
        If c.Value <> "" Then
            If c.Row < 11 Then
               c.Value = Val(c.Value) + 17
            Else
               c.Value = Val(c.Value) + 3
            End If
        End If
     Next

    Application.EnableEvents = True

 End Sub

その後加算する対象が3か所以上になる場合が必要となり、その方法を教えて頂きたく質問致しました。
（ftr） 2018/05/17(木) 22:37

 以下につづく
[[20180517224045]]
（SoulMan） 2018/05/17(木) 23:00

コメント返信：

[ 一覧(最新更新順) ]

[[20180517211334]] 『複数の指定範囲の入力セルに自動的に数値を加算し』（ftr） ページの最後に飛ぶ

[[20180517211334]]　『複数の指定範囲の入力セルに自動的に数値を加算し』（ftr）　ページの最後に飛ぶ