(テーブルがある場所にある)セルの値に基づいて自動的に変更する必要があるactivex テキストボックスがあります。
この値は、顧客を追加すると増加する ID 番号の概念のように、増加する必要があります。増加した値は、保存する準備ができているテキストボックスに表示する必要があります。worksheet1
worksheet2
上記に関して建設的な提案はありますか?
(テーブルがある場所にある)セルの値に基づいて自動的に変更する必要があるactivex テキストボックスがあります。
この値は、顧客を追加すると増加する ID 番号の概念のように、増加する必要があります。増加した値は、保存する準備ができているテキストボックスに表示する必要があります。worksheet1
worksheet2
上記に関して建設的な提案はありますか?
ワークブックの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