（VBA-EXCEL）根据单元格值自动更改并增加activex文本框的值

我在

工作表1

中有一个activex文本框，它需要根据

工作表2

中的单元格值自动更改。
此值应递增，就像ID号的概念一样，如果添加客户，递增的值必须显示在文本框中准备保存

---

有人对上述内容有任何建设性的建议吗？

请将以下代码粘贴到工作簿的工作表（2）中。txtVal也是工作表（1）上文本框的名称

---

如果您能用您尝试的方法添加代码片段，我们可以帮助您改进和修复它。否则我们就无能为力了。那么，在某种程度上，你是在试图显示Sheet2中记录的总数吗？Sheet2有5行，所以文本框应该显示6行？我的记录不确定，我的意思是我的表格中有空白单元格。我需要根据该特定列中的最后一个数据确定我的值（对于文本框），然后将其递增并显示到文本框中！我已经尝试性地编辑了你的问题——不需要像论坛帖子一样喋喋不休。不幸的是，我仍然不确定您到底想要实现什么-您可以从工作表1和工作表2添加一些屏幕打印吗？我无法添加图像，需要更多的声誉。我尝试过这一点，但出现了一个错误，显示溢出并突出显示Sheet1.txtVal.Text等等（我确实更改了sheet1作为我工作表的名称，也更改了txtbox的名称和地址。没有任何内容：（将Cint更改为Clng并再次运行代码。如果您有任何问题，请告诉我。文本框中仍然没有显示。@krynce我已使用屏幕截图更新了答案。请按照相同的过程告诉我它是否适用于您。还请告诉我您使用的excel版本。尝试将

SelectionChange

替换为

Change。）e

。然后在表2中的A1中输入任何值。您应该在我看到结果的同时看到结果。如果需要，可以进行改进。

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    'Assuming A1 is the cell in worksheet 2 and it has numeric value as it should be incremented.

    If Target.Count = 1 And Target.Address = "$A$1" Then
        If IsNumeric(Target.Value) Then Sheet1.txtVal.Text = CInt(Target.Value) + 1
    End If

    Application.EnableEvents = True
End Sub