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

• #31170 Nowitzki csendes tag PowerBuldog #31169

  Új Válasz 2016-03-30 06:29:14 #31170

  Ú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

  

  Nowitzki

  csendes tag

  válasz PowerBuldog #31169 üzenetére

  Vagy ha a részleteket is ki akarod íratni akkor:

  Sub pizza()
  sor = 1
  For pizza1 = 1 To 45
  For pizza2 = 1 To 45
  Cells(sor, "B") = "pizza" & pizza1 & "+" & "pizza" & pizza2 'pizzák sorszámai
  Cells(sor, "C") = Cells(pizza1, "A") & "+" & Cells(pizza2, "A") ' pizzák árai
  Cells(sor, "D") = Cells(pizza1, "A") + Cells(pizza2, "A") 'pizzák összege
  Cells(sor, "E") = "=" & Cells(pizza1, "A").Address & "+" & Cells(pizza2, "A").Address 'pizzák összege képlettel
  sor = sor + 1
  Next pizza2
  Next pizza1
  End Sub

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