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

• #3823 Delila_1 veterán takyka77 #3822

  Új Válasz 2008-08-29 13:58:02 #3823

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

  Sub Worksheet_Change(ByVal Target As Excel.Range)
  If (Target.Column = 2 And Target.Row = 3 And Target.Value > 100) _
  Then MsgBox "Elérte a maximumot"
  End Sub

  Ez a makró a B3 cella (Column 2, Row 3) értékét figyeli. Ha meghaladta a 100-at, akkor üzenetdobozban figyelmeztet.

  A makrót a kérdéses laphoz rendeld hozzá. Lapfülön jobb klikk, kód megjelenítése. A VB szerkesztő jobb oldalán kapott üres lapra másold át, és értelemszerűen végezd el a módosításokat.

  Ehelyett a feltételes formázással is ki lehet emelni a cella értékét.

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