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

• #21824 bagira82 csendes tag Delila_1 #21823

  Új Válasz 2014-05-30 13:32:24 #21824

  Ú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

  

  bagira82

  csendes tag

  válasz Delila_1 #21823 üzenetére

  Szupi! Köszi szépen a segítséged!

• #21818 bagira82 csendes tag Delila_1 #21817

  Új Válasz 2014-05-30 10:23:26 #21818

  Ú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

  

  bagira82

  csendes tag

  válasz Delila_1 #21817 üzenetére

  Szia,

  A megoldásodat az alábbira formáltam. Hogyan tudnám meghatározni, hogy mennyi ilyen Tomb változó keletkezett? A lényege az egésznek az lenne, hogy a vesszőig beolvasott karaktereket az "a"változóban tárolnám, addig, amig egy másik munkalapon megkeresem az "a" változóban lévő értéket. Utána jöhet a következő vessző előtti 10 vagy 11 karakter, amit szintén "a" váltzóban tárolnám, és ez az egész addig megy, amíg el nem fogynak a karakterek a cellában.

  Do

  lep = ActiveSheet.Cells(i, 4).Value

  Dim Tomb
  Tomb = Split(ActiveSheet.Cells(i, 4).Value, ",")

  Do
  a = Tomb(j)
  j = j + 1
  Loop Until Tomb(j) = Empty ' HIBAÜZENET ITT (subscript out of range)

  i = i + 1

  Loop Until lep = Empty

  Köszi

• #21816 bagira82 csendes tag

  Új Válasz 2014-05-30 09:47:16 #21816

  Ú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

  

  bagira82

  csendes tag

  Sziasztok

  Excel makró írásban szeretném újra a segítségeteket kérni:

  Van egy cellám, aminek a tartalma pl.: a következő:

  155367A-01L,193135D-01,193135E-01L

  Hogyan tudnám a vessző előtt lévő 11 vagy 10 karaktereket beolvasni jelen esetben 3 (a, b, c) változóba?

  Köszi szépen előre is!
  Üdv
  Jani

• #21790 bagira82 csendes tag Delila_1 #21789

  Új Válasz 2014-05-26 17:13:16 #21790

  Ú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

  

  bagira82

  csendes tag

  válasz Delila_1 #21789 üzenetére

  Szuper, köszi szépen!

• #21788 bagira82 csendes tag Delila_1 #21787

  Új Válasz 2014-05-26 16:45:00 #21788

  Ú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

  

  bagira82

  csendes tag

  válasz Delila_1 #21787 üzenetére

  Szia Delila_1,

  Köszi szépen a gyors választ!

  Még egy olyan kérdesem lenne, hogy ha a lenti 4 szám helyett változók lennének, pl: ertekek = Array(a, b, c, d), melyek a program elején kapnak kezdő értéket, akkor az úgy is működne, ahogy én megadtam?

  Köszi
  Jani

• #21784 bagira82 csendes tag

  Új Válasz 2014-05-26 15:08:06 #21784

  Ú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

  

  bagira82

  csendes tag

  Sziasztok!

  Excel makró írásban szeretném a segítségeteket kérni.

  Négy integer típusú változóban lévő egész számokat szeretnék kördiagramban ábrázolni.
  Mivel nem vagyok excel expert, ezért makró rögzítéssel próbáltam elindulni, hogy mégis milyen parancsok kellenek (ezt láthatjátok lentébb)

  A kérdésem pedig az lenne, hogy hogyan tudok az ActiveChart.SeriesCollection(1).Values függvény után változókat megadni, ha egyáltalán meg lehet ezt így oldani. Ha van más ötlet, azt is szívesen veszem .

  ActiveSheet.Shapes.AddChart.Select
  ActiveChart.ChartType = xl3DPieExploded
  ActiveChart.SeriesCollection.NewSeries
  ActiveChart.SeriesCollection(1).Name = "='Munka5'!$B$1"
  ActiveChart.SeriesCollection(1).Values = "='Munka5'!$B$2:$B$7" 'itt szeretnék változókban tárolt számokat megadni
  ActiveChart.SeriesCollection(1).XValues = "='Munka5'!$A$2:$A$7" ' itt pedig tengelyfeliratotkat szeretnék szövegesen megdani
  ActiveChart.SeriesCollection(1).Select
  ActiveChart.SeriesCollection(1).ApplyDataLabels

  Köszi szépen előre is!

  Üdv
  Jani

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