（VBA-EXCEL）自動改變並遞增的ActiveX文本框的從單元格值

我有一個的ActiveX文本框在worksheet1需要基於所述單元值這在worksheet2自動改變基於值（我的桌子在哪裏）。
該值應爲遞增，如ID號的概念，如果您添加一個客戶，該數字將遞增，遞增的數值必須顯示在文本框上，以備保存。（VBA-EXCEL）自動改變並遞增的ActiveX文本框的從單元格值

有沒有人對此有過任何建設性的建議？

來源

2013-03-19 Krynce

如果你可以添加你的代碼片段與您試了一下，我們可以幫助你改善和修復它。否則我們不能做太多。 – 2013-03-19 00:30:14

因此，您想以某種方式顯示Sheet2中的記錄總數？例如。 Sheet2有5行填充，所以文本框應顯示6？ – 2013-03-19 06:34:52

我的記錄不是確定的，我的意思是表格中有空白單元格。我需要根據該特定列中的最後一個數據爲我的值（用於文本框），然後將其增加並顯示到文本框中。 – Krynce 2013-03-19 08:38:50

請將下面的代碼粘貼到工作簿的工作表（2）中。此外txtVal是文本框的工作表上的名字（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

enter image description here