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

• #37639 scott_free senior tag

  Új Válasz 2018-03-26 10:05:00 #37639

  Ú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

  

  scott_free

  senior tag

  Sziasztok,

  van egy vba-makróm, ami cellákba ír be képleteket (az oszlopoknak megfelelő kódokkal) - normális az, hogy 100 cellával kb. 10 percig szöszmötöl? (6 magos procival, Excel 2016)
  Vagy esetleg én írtam vmit rosszul?

  Ez a vba-rész csinálja:
  Application.AutoCorrect.AutoFillFormulasInLists = False

For k = 99 To 135 Step 3

If k < 121 Then
aWs.Cells(aRow, 9 + k).Formula = "=IFERROR(ROUND($G" & aRow & "*D" & Chr(k - 30) & aRow & ",2),"" "")"
Else
aWs.Cells(aRow, 9 + k).Formula = "=IFERROR(ROUND($G" & aRow & "*E" & Chr(k - 56) & aRow & ",2),"" "")"
End If
str = aWs.Cells(2, 10 + k).Value
aWs.Cells(aRow, 10 + k).Formula = "=INDEX(a.sz[" & str & "]," & j & ")"

Next k

  Mitől lehet ilyen lassú?

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