Želeo bih da napravim Custom Event da kada neko selektuje ćeliju A1 (Sheet1), da se u ćeliji A2 (Sheet1) pojavi reč "MMM".
Ja imam jedan primer u knjizi i ovde sam pronašao još jedan primer:
http://msdn.microsoft.com/en-us/library/gg264327.aspx
i probao sam sve kombinacije ali ne mogu da rešim zadatak.
Ovo sam stavio u class modul koji se zove NazivKlase:
Code:
Public Event CelijaJeOdabrana()
Sub subEventa(instancaKlase As Range)
Set instancaKlase = Worksheets("Sheet1").Range("A1")
If instancaKlase.Selection = True Then
RaiseEvent CelijaJeOdabrana
End If
End Sub
Public Event CelijaJeOdabrana()
Sub subEventa(instancaKlase As Range)
Set instancaKlase = Worksheets("Sheet1").Range("A1")
If instancaKlase.Selection = True Then
RaiseEvent CelijaJeOdabrana
End If
End Sub
Ovo sam stavio u Sheet1 modul:
Code:
Private WithEvents instancaKlase As NazivKlase
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set instancaKlase = New NazivKlase
End Sub
Private Sub instancaKlase_CelijaJeOdabrana()
Worksheets("Sheet1").Range("A2").Value = "MMM"
End Sub
Private WithEvents instancaKlase As NazivKlase
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set instancaKlase = New NazivKlase
End Sub
Private Sub instancaKlase_CelijaJeOdabrana()
Worksheets("Sheet1").Range("A2").Value = "MMM"
End Sub