[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数の指定範囲の入力セルに自動的に数値を加算して表示』(ftr)
同一シートで
指定範囲のセルA1とA2とA3とA4に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA8とA9とA10に数値を入力し、そのセルに自動で17を加算して表示。
指定範囲のセルA14とA15とA3とA16とA17とA18とA19A20に数値を入力し、そのセルに自動で3を加算して表示。
この様な方法を教えていただきたい。
< 使用 Excel:Excel2007、使用 OS:Windows10 >
ところで、A3が2回でてきますが間違いですか。
(マナ) 2017/05/05(金) 19:41
(マナ) 2017/05/05(金) 20:37
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.