Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
現状のセルの数値に異なるセルの数値を足す関数
投稿日時: 19/03/10 08:33:37
投稿者: athrski

現状のセルの数値に違うセルの数値を入力するだけで、現状のセルに足された数値が表示される方法はないでしょうか?
 

回答
投稿日時: 19/03/10 08:40:22
投稿者: WinArrow
投稿者のウェブサイトに移動

↓のスレと同じ質問(しかも、ノーアンサー)をしないようにしましょう。(マルチポスト)
 
https://www.moug.net/faq/viewtopic.php?t=78007

投稿日時: 19/03/10 13:53:26
投稿者: athrski

ノーアンサーご無礼しました。

回答
投稿日時: 19/03/10 14:56:12
投稿者: よろずや

こんな感じかな。
 

Option Explicit
Private WithEvents App As Application

Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    App.EnableEvents = False
    With Range("A1")
        .Value = .Value + Target.Value
    End With
    Target.Value = 0
    App.EnableEvents = True
End Sub

Private Sub Workbook_Open()
    Set App = Application
End Sub

投稿日時: 19/03/10 17:02:13
投稿者: athrski

ご指南、有難うございます。
少し、落ち着いて取り組んでみます。