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

• #17498 Delila_1 veterán Barcley #17497

  Új Válasz 2013-03-31 18:44:46 #17498

  Ú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 #17497 üzenetére

  Ha megírod privátban a címedet, elküldök egy gyűjteményt, amiben több változatot találsz.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #17487 Delila_1 veterán Barcley #17486

  Új Válasz 2013-03-31 17:11:45 #17487

  Ú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 #17486 üzenetére

  Ha nem lett volna az egyszerűbb megoldás, akkor is elég lenne 1 cella változását figyelni. Bármelyik cellát módosítod a sok összetevő közül, az A1 értéke változik.
  Pl. A1=(B1*C20)+m2*(h6-g7)

  Itt elég a B1, C20, M2, H6 és G7 közül bármelyik címet beírni a target.address-be. A következő sor feltételében az A1 cella értékét vizsgálod.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #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

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #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