Új hozzászólás Aktív témák

• #17478 Delila_1 veterán Barcley #17475

  Új Válasz 2013-03-31 16:18:24 #17478

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Barcley #17475 üzenetére

  A Worksheet_Change eseménye annak a cellának a változását figyelje, ami a kérdéses cella képletét megváltoztatja.

  Pl. A1= B1 * C1

  Private Sub Worksheet_Change(ByVal Target As Range)
  if target.address="$B$1" then
  if range("A1")=100 then msgbox "Kapcsolj"
  endif
  end sub

• #17477 m.zmrzlina senior tag Barcley #17475

  Új Válasz 2013-03-31 16:15:28 #17477

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz Barcley #17475 üzenetére

  Ilyen formában nekem működik

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Range("A1").Value = 100 Then
  MsgBox "kapcsolj"
  End If
  End Sub

Új hozzászólás Aktív témák