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

Question

我有一个activex 文本框，worksheet1需要根据其中的单元格值（我的表格所在的位置）自动更改。 这个值应该增加，就像ID号的概念一样，如果你添加一个客户就会增加，增加的值必须显示在准备保存的文本框中。worksheet2

有没有人对上述有建设性的建议？

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