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

• #6865 Fire/SOUL/CD félisten Sickboy25 #6859

  Új Válasz 2010-04-12 22:42:09 #6865

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

  Hali!

  Képen

  Makró-kód

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  X = Range(Target.Address)
  Y = 50
  On Error Resume Next
  If Not Intersect(Range("P3:V25"), Range(Target.Address)) Is Nothing Then
  If X <> "" Then
  Application.EnableEvents = False
  Range(Target.Address) = Y / X * 100
  Application.EnableEvents = True
  End If
  End If
  On Error GoTo 0
  
  End Sub

  Amit állíthatsz, az az Y(állandó, én most 50-nek vettem) illetve az adattartomány(esetünkben P3:V25). Természetesen ebben a tartományban nem lehet a táblázat fejléce csak számadatok. Amennyiben pl betűt is tartalmaz a cella(mert véletlenül melléütsz), akkor nem történik semmi, bekerül amit beírtál, nyilván nem lehet vele számolni.

  Fire.

  UI: Ha azt akarod kiszámolni, hogy hány százaléka X-nek Y, akkor korábban rossz képletet adtál meg. Helyesen Y/X*100...

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