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

• #6864 Fire/SOUL/CD félisten Delila_1 #6862

  Új Válasz 2010-04-12 21:09:05 #6864

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 #6862 üzenetére

  Hali!

  Pedig elég egyszerű és szerintem már Te is használtad korábban ezt a megoldást, nevezetesen hogy le kell tiltani az eseményeket. Vagy rosszul tévedek?

  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  MsgBox "Ez a cella módosult: " & Target.Address
  MsgBox (Range(Target.Address))
  Range(Target.Address) = Range(Target.Address) * 0.05
  Application.EnableEvents = True
  End Sub

  Fire.

  UI: Persze most hibakezelés nincs, nem nézem meg hogy üres-e az adott cella, vagy ha nem üres, akkor lehet-e értelmezni számként stb stb, de a lényeg benne van...

• #6863 ulrik19 tag Delila_1 #6862

  Új Válasz 2010-04-12 20:18:06 #6863

  Ú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

  

  ulrik19

  tag

  válasz Delila_1 #6862 üzenetére

  Én ezt egy globális (sub-on kívül deklarált) boolean változóval szoktam megoldani. Alapban mondjuk IGAZ értékre van állítva. Amikor a felhasználó beüt egy új értéket, elindul a hozzá kötött esemény, melynek az elején megnézem, hogy ez a változó IGAZ-e. Ha igen, akkor továbbfut, ha nem, akkor IGAZ-ra állítom és kilépek a sub-ból. Ha fut tovább a kód, akkor rögtön HAMIS-ra állítom a változót, megváltoztatom a cella értékét. Mivel HAMIS, nem fog lefutni még egyszer ez a kódrészlet. De biztosan van rá szebb megoldás is

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