Excelpopup单元格计算

第一次海报在这里。 Excel VBA代码我是初学者。 如何创build一个popup窗口，当我点击一个单元格，然后根据popup窗口中input的内容更新时，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