Ú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...

• #6860 Delila_1 veterán Sickboy25 #6859

  Új Válasz 2010-04-12 16:13:31 #6860

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

  Így nem lehet, de van más megoldás.
  Vegyük, hogy a P3:V25 tartomány 5 százalékát akarod kiszámolni.
  Beírod az eredeti számokat a tartományba.
  Egy cellába (mindegy hova) beírsz 100-at, egy másikba 5-öt.
  Másolod a 100-at (Ctrl+c), kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Osztás.
  Másolod a 5-öt, kijelölöd a tartományt, jobb klikk, Irányított beillesztés, Szorzás.

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