VBA Çalışma Sayfası Değiştirme Olayı

Question

Excel VBA'daki Çalışma Sayfası Değiştirme Etkinliğini kullanmaya çalışıyorum, ancak işe yaramıyor gibi görünüyor.

Private Sub Worksheet_Change(ByVal Target As Range) 
    Range("J1").Select 
    If Target.Address = "$J$1" And ActiveCell.Value = 1 Then 
     Range("B1").Select 
     Dim c As Integer 
     c = ActiveCell.Value 
     c = c + 1 
     ActiveCell.Value = c 
    End If 
End Sub 

sorun ben bunu tanımlamak gerekiyor tam olarak nerede emin değilim: Ben burada yaptığımız gibi ben toplamak kadarıyla

, sadece taşıma işlevini "Worksheet_Change" tanımlamak için yeterlidir . İlk makroyu oluşturduğumda otomatik olarak oluşturulan "module1" e koymuştum. Bu doğru mu? Ben VBA için oldukça yeni, bu yüzden henüz hakkında fazla bir şey bilmiyorum.

Answer 1

Geçerli olduğu sayfaya koymanız gerekir. Başka bir deyişle, Sayfa1'deki değişiklik olaylarını VBA editörüne kaydetmek isterseniz, bunu VBAProject (Book_Name)> Microsoft Excel Nesneleri> Sayfa1'e eklemeniz gerekir.