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

• #23355 slashing senior tag Fboy #23350

  Új Válasz 2014-09-20 20:11:31 #23355

  Ú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

  

  slashing

  senior tag

  válasz Fboy #23350 üzenetére

  találtam a neten egy ilyet...

  Sub test()
  Dim e, s
  With CreateObject("System.Collections.ArrayList")
  For Each e In Range("a2", Range("a" & Rows.Count).End(xlUp)).Value
  If Not IsEmpty(e) Then
  For Each s In Split(e, ";")
  .Add s
  Next
  End If
  Next
  .Sort
  Range("b2").Resize(.Count).Value = _
  Application.Transpose(.ToArray)
  End With
  End Sub

  a pontos vesszőt írd át vesszőre a .Sort sort meg töröld hogy ne rendezze....

• #23354 Fferi50 Topikgazda Fboy #23350

  Új Válasz 2014-09-20 20:05:35 #23354

  Ú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 Fboy #23350 üzenetére

  Szia!

  A szövegből először oszlopokat csinálsz a "megtalált opcióval" mondjuk az A1-től kezdődően.
  Azután kijelölöd a kivánt adatokat a sorban.
  Másolás
  Kijelölöd az A2 cellát.
  Irányított beillesztés - transzponálás
  Máris oszlopban sorakoznak a számaid.
  Utána még nyomj egy ESC-t, hogy kilépj a másolás módból.

  Üdv.

• #8217 Delila_1 veterán Fboy #8216

  Új Válasz 2010-09-21 15:52:12 #8217

  Ú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 Fboy #8216 üzenetére

  Lehet, az zavart meg, hogy az előző válaszomnál nem figyeltem a megjelenést, és benne maradtak a formázásra vonatkozó, szögletes zárójelek között lévő M, és a zárójelben lévő C.
  Azok elhagyásával működik a makró.
  A diagram is jó megoldás.

• #8215 Delila_1 veterán Fboy #8214

  Új Válasz 2010-09-21 15:16:46 #8215

  Ú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 Fboy #8214 üzenetére

  Kicsit kibővítve az előző:

  [M](C)Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  With Selection
  .ShapeRange.Height = Cells(a, 2) / 50
  .ShapeRange.Width = Cells(a, 2) / 50
  .Characters.Text = Cells(a, 1) & Chr(10) & Cells(a, 2) & " MFt"
  .HorizontalAlignment = xlCenter
  .VerticalAlignment = xlCenter
  .ReadingOrder = xlContext
  .Orientation = xlHorizontal
  .Characters.Font.Size = 6
  End With
  Next
  End Sub(/C)[/M]

• #8213 Delila_1 veterán Fboy #8211

  Új Válasz 2010-09-21 14:48:55 #8213

  Ú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 Fboy #8211 üzenetére

  Makróval megoldható.
  Beszúrtam egy térképet, aminek az Excel automatikusan a Kép 1 nevet adta. Utána elhelyeztem a térképen 12 kört, amiknek a neve Ellipszis 2 -Ellipszis 13 lett. A makróban Oval 2 - Oval 13 néven kell rájuk hivatkozni.
  Az első kör a piros, az óramutató járásával ellenkező irányban helyeztem el a többit.

  Makró:
  Sub Nagysag()
  Dim a As Integer
  Dim nev As String
  
  For a = 2 To 13
  nev = "Oval " & a
  ActiveSheet.Shapes(nev).Select
  Selection.ShapeRange.Height = Cells(a, 2) / 80
  Selection.ShapeRange.Width = Cells(a, 2) / 80
  Next
  End Sub

  Kép:
  

  Szerk.: a Cells(a,2)/80 helyett olyan osztót adj, ami egy jó méretet ad az ábrán.

• #8212 m.zmrzlina senior tag Fboy #8211

  Új Válasz 2010-09-21 14:40:45 #8212

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Fboy #8211 üzenetére

  A térképet képként beillesztenéd excel munkalapra és azon szeretnéd elhelyezni az árat szimbolizáló köröket?

• #6482 Fire/SOUL/CD félisten Fboy #6481

  Új Válasz 2010-03-07 21:11:59 #6482

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fboy #6481 üzenetére

  Hali!

  Ja, így már más. Ha egy munkalapon belül vannak az adatok(külön oszlopokban pl), akkor lehet folytonos pl vonal-diagramot készíteni több tartomány megadásával egy azon adatsoron belül, ezt biztos és gondolom ez neked sem okoz problémát. De hogy más-más munkalapon vannak az adatok, amik ugyanahhoz az adatsorhoz tartoznak, az már gázosabb.

  Most már nincs kedvem kipróbálni, de lehet, hogy a tartomány elnevezése megoldás lehet, bár úgy rémlik, hogy azt még annyira sem fogadja el.

  Fire.

• #6480 Fire/SOUL/CD félisten Fboy #6479

  Új Válasz 2010-03-07 19:54:09 #6480

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fboy #6479 üzenetére

  Hali!

  Igen, lehet: Ebben a példában a Munka2-3-4 lapokról származnak az adatok.
  Persze ennek feltétele, hogy olyan diagramtípust válassz, ami meg is tudja jeleníteni a több adatsort.

  Fire.

• #6471 Delila_1 veterán Fboy #6470

  Új Válasz 2010-03-06 14:15:30 #6471

  Ú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 Fboy #6470 üzenetére

  Szivi.

• #6469 Delila_1 veterán Fboy #6466

  Új Válasz 2010-03-06 08:08:20 #6469

  Ú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 Fboy #6466 üzenetére

  Ha egy lapon van a másolandó terület és a beillesztés helye, áthúzhatod, használd közben a Ctrl és a Shift billentyűtket.

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