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

Question

我worksheet1中的 activex文本框需要自动更改，具体取决于{{>> <{ 1}}（我的桌子在哪里） 此值应递增，就像ID号的概念一样，如果添加客户则递增，增加值必须显示在文本框以备保存。

有没有人对上述内容有任何建设性意见？

Answer 1

请将以下代码粘贴到工作簿的工作表（2）中。此外，txtVal是Worksheets（1）

上文本框的名称

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