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

• #42697 Fferi50 Topikgazda bagyulajuve #42696

  Új Válasz 2020-01-08 18:02:18 #42697

  Ú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

  

  Fferi50

  Topikgazda

  válasz bagyulajuve #42696 üzenetére

  Szia!
  Ez "csak" azért izgalmas kérdés, mert ha pl. 2.5 megjelenik febr. 5-ként, ha azt átállítod általános formátumra, már 43866 lesz az amit látsz. Szóval soha többet nem láthatod viszont a 2.5-öt, mert azonnal dátummá konvertálta az Excel! (Fújj Redmond!)
  Üdv.

• #42695 Fferi50 Topikgazda bagyulajuve #42690

  Új Válasz 2020-01-08 16:51:17 #42695

  Ú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

  

  Fferi50

  Topikgazda

  válasz bagyulajuve #42690 üzenetére

  Szia!
  "biztos rém egyszerű a megoldás"
  Hát sajnos nem. Angol Exceled van? Mert a magyar a pontokkal való elválasztást "szereti így".
  Egy lehetséges megoldás: A fájlt egyetlen oszlopba olvasod be. Utána Adatok - szövegből oszlopok - tagolt - a tagolás jelének beírod a vesszőt, a szövegjelölőhöz pedig az idézőjelet. Ezután oszlopról oszlopra megadhatod, hogy milyen típusú az oszlopban levő adat.
  Üdv.

• #4218 Fehér Mancs tag bagyulajuve #4217

  Új Válasz 2008-12-19 17:15:25 #4218

  Ú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

  

  Fehér Mancs

  tag

  válasz bagyulajuve #4217 üzenetére

  Ezt a formázást csak makróval lehet megoldani. Először 3 oszlopba fel kell vinni az adatokat, majd készíteni rá egy egyszerű oszlopos diagrammot, és utána a lenti makró megformázza azt.

  Sub Macro8()
  ' 2. adatsor
  With ActiveChart.SeriesCollection(2)
  .ChartType = xlLineMarkers
  .AxisGroup = 2
  .MarkerForegroundColorIndex = 3
  .MarkerStyle = xlDash
  .MarkerSize = 10
  .Border.LineStyle = xlNone
  End With
  
  ' 3. adatsor
  With ActiveChart.SeriesCollection(3)
  .ChartType = xlLineMarkers
  .AxisGroup = 2
  .MarkerForegroundColorIndex = 3
  .MarkerStyle = xlDash
  .MarkerSize = 10
  .Border.LineStyle = xlNone
  End With
  
  ' Dropdown lines
  With ActiveChart.ChartGroups(2)
  .HasDropLines = False
  .HasHiLoLines = True
  .HasUpDownBars = False
  End With
  
  ' Minimum és maximum tengelyértékek megadása
  If ActiveChart.Axes(xlValue).MinimumScale < ActiveChart.Axes(xlValue, xlSecondary).MinimumScale Then
  ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = ActiveChart.Axes(xlValue).MinimumScale
  Else
  ActiveChart.Axes(xlValue).MinimumScale = ActiveChart.Axes(xlValue, xlSecondary).MinimumScale
  End If
  If ActiveChart.Axes(xlValue).MaximumScale > ActiveChart.Axes(xlValue, xlSecondary).MaximumScale Then
  ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = ActiveChart.Axes(xlValue).MaximumScale
  Else
  ActiveChart.Axes(xlValue).MaximumScale = ActiveChart.Axes(xlValue, xlSecondary).MaximumScale
  End If
  
  End Sub

• #4216 Delila_1 veterán bagyulajuve #4215

  Új Válasz 2008-12-19 08:39:28 #4216

  Ú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

  

  Delila_1

  veterán

  válasz bagyulajuve #4215 üzenetére

  Erre gondoltál?

  

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