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

• #30489 T_bee aktív tag beers #30483

  Új Válasz 2016-02-09 19:51:41 #30489

  Ú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

  

  T_bee

  aktív tag

  válasz beers #30483 üzenetére

  Szia,

  Lehetne valahogy index függvénnyel csinálni, de inkább egy gyors makrót írtam rá, szerintem egyszerűbb

  Sub tordel()
  
  Dim arRes, arInp As Variant
  Dim x, y As Byte
  Dim i As Integer
  Dim sor, oszlop As Byte
  
  sor = 40
  oszlop = 30
  
  arInp = Selection
  
  ReDim arRes(1 To sor, 1 To oszlop)
  
  For x = 1 To oszlop
  For y = 1 To sor
  i = i + 1
  arRes(y, x) = arInp(i, 1)
  Next y
  Next x
  
  Sheets("Output").Activate
  Range(Cells(1, 1), Cells(sor, oszlop)) = arRes
  
  End Sub

  Hozz létre egy 'output' nevű oldalt, vagy írd át a kódban a lap nevét, majd jelöld ki az adataidat és futtasd a makrót. A sor illetve oszlop változó értékének változtatásával tudod variálni, hogy az output hány sorból, illetve oszlopból álljon (meg lehetne csinálni hogy csak az egyiket kérje, és aztán a kijelölés nagysága alapján a másikat 'kitalálja', de nem inkább maradtam a 'quick and dirty' megoldásnál )

  T_bee

• #30488 T_bee aktív tag beers #30483

  Új Válasz 2016-02-09 19:51:36 #30488

  Ú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

  

  T_bee

  aktív tag

  válasz beers #30483 üzenetére

  dupla, sorry

• #11452 m.zmrzlina senior tag beers #11448

  Új Válasz 2011-09-23 21:31:40 #11452

  Ú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 beers #11448 üzenetére

  Szerintem be van kattintva a Szalag ikonállapotúra kicsinyítése opció. Jobb klikk az Office gombon (vagy bárhol a Menü elemein) és a felugró helyi menüből a legalsó.

• #11450 varsam őstag beers #11448

  Új Válasz 2011-09-23 21:19:19 #11450

  Ú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

  

  varsam

  őstag

  válasz beers #11448 üzenetére

  kattints kettőt valamelyikre és ott maradnak

• #10879 bugizozi őstag beers #10878

  Új Válasz 2011-07-18 10:24:57 #10879

  Ú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

  

  bugizozi

  őstag

  válasz beers #10878 üzenetére

  Fájl/Oldalbeállítás/Élőfej és élőláb fül

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