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

• #8052 lasarus1988 tag

  Új Válasz 2010-09-07 13:54:41 #8052

  Ú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

  

  lasarus1988

  tag

  Sziasztok!

  A következő lenne a problémám:

  Sub Workbook_Open()

  Call ExcelForm.DeleteChart("Ping statisztika")
  Call ExcelForm.DeleteChart("Hisztogram")
  Call ExcelForm.DeleteChart("Rövid idejű jitter")
  Call ExcelForm.ClearSheet("Log")
  Call ExcelForm.ClearSheet("Eredmény")
  Call ExcelForm.ClearSheet("Gyakoriság")

  AddIns("Analysis ToolPak").Installed = True
  AddIns("Analysis ToolPak – VBA").Installed = True

  Application.WindowState = xlMaximized
  Sheets("Log").Select
  Range("A1").Select

  Load Ping
  Ping.Show

  End Sub

  Ebben a szubrutinban elvileg hozzáadom automatikusan az Analysis Toolpak csomagokat az excel bővítményeihez, hogy azokat használni tudjam.

  Az eredmény munkalapon adott oszlopból kéne hisztogramhoz adatot generálni. A bemeneti tartomány ez az oszlop, a kimeneti tartomány egy másik munkalap, a rekesz tartomány automatikus.

  Ha megnyitom ezt a rutint tartalmazó xls-t akkor minden lefut csak éppen a hisztogramhoz szükséges adatokat nem generálja le és ezért diagramon sincs ábrázolva. Ezt a jelenséget mindaddig csinálja, amíg egyszer manuálisan végig csinálom a hisztogram adatainak legenerálását, utána már csinálja rendesen. Ha bezárom a munkafüzetet és újra megnyitom akkor kezdi elölről.

  Valakinek valami tippje erre?

  Köszönöm a segítséget!

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