Question

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

假设我有一个包含数字的单元格列表，我点击其中一个单元格，然后在弹出的窗口中，我写了+5。原始号码现在更新，添加了5。如果我在PopUp窗口中写了-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

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

1 个答案: