vbaの条件/テキストの変更に基づいてボタンを有効/無効にする方法は？

Question

私はいくつかのアカウントの詳細を自動化しています。ここではダブルダブルを追加したくありません。これについては ボタンクリックイベントを1回に制限して、2回または3回追加しないようにする必要があります。 ボタンのクリックイベントを制限するにはどうすればいいですか？ お願いします。

commandbutton1.enable = true 
commandbutton1.enable = false 

これは機能していますが、アカウントの値がセル内で変更されたときにボタンを戻したいと考えています。

Answer 1

あなたが唯一の特定のセルが変更されたときに、ボタンを有効にしたい場合は、このようにそれを行う、

Private Sub Worksheet_Change(ByVal Target As Range) 
commandbutton1.Enabled = True 
End Sub 

再有効化ボタンにWorksheet_Changeイベントを使用することができます。

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$A$1" Then 'Adjust this Cell Address 
    commandbutton1.Enabled = True 
End If 
End Sub 

あなたが複数のセルをチェックしたい場合、あなたはこのようにそれを行うことができます：チェックするには

Dim testRange As Range 

Set testRange = Range("A1,B3:B10,D5") 

If Not Intersect(Target, testRange) Is Nothing Then 

    'Do something 
    Debug.Print "Target Cell in testRange" 
End If 

私はそれをどのように行うことができ、複数のセルアドレスを与えたい場合は

If Target.Column = 1 Then