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

• #13455 Fire/SOUL/CD félisten DopeBob #13453

  Új Válasz 2012-04-18 12:01:08 #13455

  Ú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 DopeBob #13453 üzenetére

  Private Sub CommandButton1_Click()
  
  Dim MyParamsRateValue As Integer
  Dim MyParamsValue As Integer
  Dim MyParamsCount As Integer
  Dim MyRange As Range
  Dim MyParams As Variant
  
  'NMÉ képlet RÁTA paraméterének értéke
  MyParamsRateValue = 25
  'NMÉ képlet ÉRTÉK paramétereinek értéke
  MyParamsValue = 1000
  'NMÉ képlet ÉRTÉK paraméterinek a száma
  MyParamsCount = 1
  'A CELLA címe, ahova képletet szánod
  Set MyRange = Range("A5")
  
  MyParams = "=NPV(" & MyParamsRateValue
  For i = 1 To MyParamsCount
  MyParams = MyParams & "," & MyParamsValue
  Next i
  MyParams = MyParams & ")"
  MyRange.Formula = MyParams
  
  End Sub

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