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

• #16455 Mauzes addikt Csontikka #16453

  Új Válasz 2013-01-23 21:11:51 #16455

  Ú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

  

  Mauzes

  addikt

  válasz Csontikka #16453 üzenetére

  De szerintem nem jó megoldás, ha ppt-ben is rendesen kell még formázgatni a tábla méretét, egy sima kép pedig nem úgy viselkedik formázásnál, mint egy enhanced metafájl, a minősége is rosszabb lesz.

  De akkor ez most így "normális", nem lehet valahogy megoldani?

• #3720 Delila_1 veterán Csontikka #3719

  Új Válasz 2008-07-08 14:47:22 #3720

  Ú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 Csontikka #3719 üzenetére

  Úgy nézem, már a txt-ben érdemes a (+szóközt (-re cserélni, és a szóköz+)-t )-re, mégpedig többször - amíg elfogy a cserélni való -, mert változó számú mindenhol a space. Azután elválasztónak a :-ot írni.

• #3715 Delila_1 veterán Csontikka #3714

  Új Válasz 2008-07-08 14:26:06 #3715

  Ú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 Csontikka #3714 üzenetére

  Örülök neki, szívesen.
  Küldd el nekem is azt az emailt. Most néztem a txt-s feladatot, és azt láttam, hogy AS rendszerben (ahogy sikerül) vannak az adatok, ha a szóközt veszem elválasztónak.

• #3710 Delila_1 veterán Csontikka #3708

  Új Válasz 2008-07-07 16:12:52 #3710

  Ú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 Csontikka #3708 üzenetére

  Ugyanazt csinálja mint az előbb, csak kicsit kevesebb sorban leírva:

  Sub Tisztítás()
  usor = Range("A65536").End(xlUp).Row 'változtatás, ha nem A oszlopban van az adat
  For sor = 1 To usor
  név = Cells(sor, 1) 'változtatás, ha nem A oszlopban van az adat
  Do While Mid(név, 1, 1) = " " Or Mid(név, 1, 1) = "!"
  név = Right(név, Len(név) - 1)
  Loop
  k = Len(név)
  Do While Mid(név, k, 1) = " " Or Mid(név, k, 1) = "!"
  név = Left(név, Len(név) - 1)
  k = k - 1
  Loop
  Cells(sor, 2) = név 'változtatás, ha nem B oszlopba kell írni a kigyomlált adatot
  Next
  End Sub

• #3709 Delila_1 veterán Csontikka #3708

  Új Válasz 2008-07-07 15:39:53 #3709

  Ú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 Csontikka #3708 üzenetére

  Nem írtad, melyik oszlopban vannak az adataid.
  A makró az A oszlopban lévő adatokat tisztítja meg a feleslegtől, és a B oszlopba írja az eredményt.

  Sub Tisztítás()
  usor = Range("A65536").End(xlUp).Row 'Itt írd át az A-t, ha nem az A oszlop adatait ellenőrzöd
  For sor = 1 To usor
  név = Cells(sor, 1) 'Itt az 1-et az oszlopod sorszámára
  név = Right(név, Len(név) - 1)
  név = Left(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
  k = 1
  Do While Mid(név, k, 1) = " "
  név = Right(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt is azt az oszlop sorszámot a 2 helyett, ahova a tisztított adat kell
  Loop
  k = Len(név)
  Do While Mid(név, k, 1) = " "
  név = Left(név, Len(név) - 1)
  Cells(sor, 2) = név 'Itt azt az oszlop sorszámot, ahova a tisztított adat kell
  k = k - 1
  Loop
  Next
  End Sub

  A tisztított adatot oda is írathatod, ahol jelenleg a !-es adataid vannak, de jobb máshova, és az eredetit utólag törlöd.

• #3708 Csontikka aktív tag Csontikka #3707

  Új Válasz 2008-07-07 14:01:59 #3708

  Ú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

  

  Csontikka

  aktív tag

  válasz Csontikka #3707 üzenetére

  a HELYETTE sorokat kéretik a következő képp értelmezni:

  HELYETTE(A1;" !";"";1);

  stb...

  fejből írtam, bocsi

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