在文本框中输入特定文本并将 +1 添加到另一个单元格

Question

我是 excel 的新手，但现在我遇到了一些困难。我尝试实现的一件事是，如果我将特定单词添加到文本框中，另一个单元格将获得 +1（因此，如果在文本框中输入了 0 和文本，它将变为 1 等）例如：

单元格 B2 = Apple

单元格 H2：B2 的值

如果可能的话，我想要一个或两个文本框，我可以在其中放置产品类型，另一个文本框用于放置数量。

提前致谢。

Answer 1

好的。这是一个解决方案。

设置命名范围。我在一列中输入了 5 种不同的水果，在相邻的列中输入了 5 种不同的数量（无论在哪里但必须相邻）。我将范围命名为 "Products"，但任何其他名称都可以。
我设置了一个数据验证列表。我使用了单元格 G3，但任何其他单元格都同样适用。我将数据验证列表指向 =INDEX(Products,0,1)，表示 Products 范围的第一列。

现在我给作品添加了代码sheet。这个代码必须在G3所在的worksheet的代码sheet中。该代码 sheet 的名称将类似于 Sheet1 (Sheet1)。不要使用名称如 Module1 的标准代码模块。这是代码。

Private Sub Worksheet_Change(ByVal Target As Range) ' 018

Const Trigger = "G3"                ' change to suit
Dim Qty As Long

With Target
    If .Address = Range(Trigger).Address Then
        On Error Resume Next            ' in case not found
        Qty = Application.VLookup(.Value, Range("Products"), 2, False)
        .Offset(0, 1).Value = Qty + 1
    End If
End With

结束子

请注意，触发器 单元格被命名为 "G3"。这必须是您具有数据验证下拉列表的单元格。

每当 触发器 发生变化时，此代码将运行。您在此处进行选择，VLOOKUP 函数将在 Products 范围的第 2 列中查找数量。如果在列表中找不到该项目，它将 return 0 但您可以设置单元格验证以防止输入不在列表中的项目。该代码会将找到的数量加一并在 .Offset(0, 1) 中发布结果，这意味着 Trigger 单元格右侧的一列。

你可能想用你的想法做其他事情。我认为我建议的系统可以根据您的想法进行调整，包括更改 Products 列表中的数量。

在文本框中输入特定文本并将 +1 添加到另一个单元格

Enter specific text into textbox and add +1 to another cell

excel

vba

textbox