用于单元格计算的 Excel 弹出窗口

Question

第一次海报在这里。我是Excel VBA代码的初学者。如何创建一个弹出窗口，当我单击一个单元格时显示该窗口，然后根据弹出窗口中输入的内容进行更新？该单元格包含我要更新的数字。

假设我有一个包含数字的单元格列表，我单击其中一个单元格，然后在窗口弹出窗口中写 +5。原始数字现在更新，并添加了 5。如果我在弹出窗口中写 -5，情况也会相反。

Answer 1

这应该让你开始：

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetRange As Range
    Dim activeRange As Range
    Dim origVal As Integer
    Dim addVal  As Integer
    Dim dialogResult As String

    Set targetRange = Target(1, 1)
    Set activeRange = Range("B2:B207")
    If Not Intersect(targetRange, activeRange) Is Nothing Then
        origVal = targetRange.Value
        dialogResult = InputBox("Enter number to add")
        If dialogResult <> "" Then
            If IsNumeric(dialogResult) Then
                addVal = dialogResult
                targetRange.Value = origVal + addVal
            Else
                MsgBox "Please enter a valid number!", vbCritical
            End If
        End If

    End If
End Sub