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

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

同一シートで
指定範囲のセルA1とA2とA3とA4に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA8とA9とA10に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA14とA15とA3とA16とA17とA18とA19A20に数値を入力し、そのセルに自動で3を加算して表示。
この様な方法を教えていただきたい。

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

できないと思います。
マクロを使えばできますが、
わたしなら誰でも簡単にできる入力用のセルを用意します。
それはいやなのでしょうね。

ところで、A3が２回でてきますが間違いですか。

（マナ） 2017/05/05(金) 19:41

すみません後のA3は間違いです。
マクロの方法を教えていただけませんでしょうか。
（ftr） 2017/05/05(金) 20:11

数値を入力した場合ではなく、
入力されていた数値をクリアした場合は
どうなってほしいのでしょうか。

（マナ） 2017/05/05(金) 20:37

数値をクリアした場合は空白が良いです。
（ftr） 2017/05/05(金) 20:40

使い方は、Worksheet_Changeイベントで検索してください。

 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

（マナ） 2017/05/05(金) 20:49

ありがとうございます。
望んでいた状態での入力と表示が出来ました。
（ftr） 2017/05/05(金) 21:27

コメント返信：

[ 一覧(最新更新順) ]

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

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