excel - (VBA-EXCEL) セルの値に基づいてアクティブ テキスト ボックスの値を自動的に変更およびインクリメントする

Question

(テーブルがある場所にある)セルの値に基づいて自動的に変更する必要があるactivex テキストボックスがあります。 この値は、顧客を追加すると増加する ID 番号の概念のように、増加する必要があります。増加した値は、保存する準備ができているテキストボックスに表示する必要があります。worksheet1worksheet2

上記に関して建設的な提案はありますか？

Answer 1

ワークブックのworksheets(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