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

• #21249 bteebi veterán mulli86 #21240

  Új Válasz 2014-04-12 09:38:00 #21249

  Ú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

  

  bteebi

  veterán

  válasz mulli86 #21240 üzenetére

  Törölni kell az üres (y) értékekhez tartozó adatcellák (x) értékét. Vegyük úgy, hogy az A sorban vannak az x értékek, a B-ben pedig az y értékek. Ez a makró megoldja a gondot:

  Sub diagram()
  Dim sor As Long, usor As Long
  usor = Range("A" & Rows.Count).End(xlUp).Row
  For sor = 1 To usor
  If Range("B" & sor) = "" Then
  Range("A" & sor) = ""
  End If
  Next sor
  End Sub

  Annyi, hogy csak akkor működik, ha már ábrázoltad a diagramot, mivel ha az ábrázolás előtt futtatod le, akkor nem lesz egybefüggő az ábrázolandó tartomány, több tartományt pedig (tudtommal) nem tudsz egyben ábrázolni. Ha esetleg valamiért a jövőben még szükséged lenne az üres y értékekhez tartalmazó x értékekre, akkor (a fenti példánál maradva) érdemes az A oszlopot átmásolnod a B-be, elkészíteni a diagramot a B és a C oszloppal, majd a B oszlopon elvégezni a szűrést a makróval.

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