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

• lasarus1988 tag

  #8059

  #8053 Fire/SOUL/CD

  2010-09-07 17:40:50

  Új Válasz

  Ú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

  

  lasarus1988

  tag

  #8053 Fire/SOUL/CD

  Hello,

  miután megvannak az adatok amiket kiolvastam, akkor meghívom a hisztogram rutint, hogy készítse el a gyakoriság táblázatot illetve a hozzá tartozó oszlop diagramot.

  Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$A$2:$A$30") _
  , ActiveSheet.Range("$B$1"), , False, False, False, False

  ActiveSheet.Shapes.AddChart.Select
  ActiveChart.SetSourceData Source:=Range("'Munka2'!$A$1:$B$7")
  ActiveChart.ChartType = xlColumnClustered
  ActiveChart.Location Where:=xlLocationAsNewSheet
  Sheets("Diagram1").Select
  Sheets("Diagram1").Move After:=Sheets(4)
  Sheets("Munka1").Select
  Range("A1").Select

  Ha csak megnyitom az xls-t akkor hiba nélkül lefut a program, épp csak a gyakoriság táblázatot nem készíti el, de ha utána manuálisan újra lépésről lépésre megcsinálom, majd újra elindítom a programot, akkor már automatikusan megcsinálja ahogyan kéne.

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

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