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

• #6768 Delila_1 veterán zsotesz81 #6767

  Új Válasz 2010-04-03 14:33:51 #6768

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

  1.
  Sub maksz()
  Cells(2, 1) = Application.Max(Range("D5:D14"))
  End Sub

  2. Ezt ahhoz a laphoz kell rendelned, ahol a bevitt adatot akarod figyeltetni. Vagy a lapfülön jobb klikk, és kód megjelenítésére, vagy a VBE-ben a munkalapon duplaklikkre jön elő a szerkesztő felület.
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$1" And Target.Value > Cells(2, 1) Then
  MsgBox "Hibás adat"
  Cells(1, 6).Select 'itt visszaállítom az F1-re a bevitel helyét
  End If
  End Sub

  Az F1-be bevitt adatot ellenőrzi, és az A2 értékével hasonlítja össze.
  Ha nem egyetlen cellába történő bevitelt, hanem mondjuk az F oszlop bármelyik celláját kell figyeltetni, akkor a feltétel

  if target.column=6 and ...

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