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

• #3598 Delila_1 veterán MarDani #3595

  Új Válasz 2008-06-02 10:35:20 #3598

  Ú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 MarDani #3595 üzenetére

  Nem érdemes egy cellába összezsúfolni mindent, mert nehéz követni, és megváltozott feltételeknél javítani.
  Több lépésben:
  D2 -> NUMBER(19,4)
  H2 -> =JOBB(D2;HOSSZ(D2)-7) 19,4)
  I2 -> =BAL(H2;HOSSZ(H2)-1) 19,4
  J2 -> =SZÖVEG.KERES(",";I2) 3 - makróban v változó
  K2 -> =BAL(I2;J2-1) 19 - makróban m változó, a szám vessző előtti része
  L2 -> =JOBB(I2;HOSSZ(I2)-J2) 4 - makróban n változó, a szám vessző utáni része
  M2 -> =HA(BAL(D2;6)="NUMBER";"DEC("&K2+L2&","&L2&")";"") DEC(23,4)

  Ezután az M oszlop képletei helyébe beillesztem az értéküket, a segédoszlopok törölhetők, vagy a segédeket elrejtem.

• #3596 Delila_1 veterán MarDani #3595

  Új Válasz 2008-06-02 10:09:32 #3596

  Ú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 MarDani #3595 üzenetére

  Szívesen.
  A képletbe is be lehet iktatni a kereső függvényt, ami a magyarnál szöveg.keres, az angolnál valószínűleg a search, VBA-ban az instr.

• #3594 Delila_1 veterán MarDani #3592

  Új Válasz 2008-06-02 05:47:58 #3594

  Ú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 MarDani #3592 üzenetére

  Megnéztem a hosszú képletedet. Csak akkor igaz, ha a zárójelek közötti két szám 2+1 hosszúságú, de biztosan úgy van. A makró bármilyen hosszra kiterjed, mert figyeli a vessző helyzetét.

• #3593 Delila_1 veterán MarDani #3592

  Új Válasz 2008-06-02 05:24:12 #3593

  Ú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 MarDani #3592 üzenetére

  Feltételezve, hogy a D oszlopban több ilyen adatod is van, egy ciklusba tettem:

  Sub mn()
  sor = 2
  Do While Cells(sor, 4) <> ""
  If Left(Cells(sor, 4), 6) = "NUMBER" Then
  sz$ = Cells(sor, 4)
  sz$ = Right(sz$, Len(sz$) - 7)
  sz$ = Left(sz$, Len(sz$) - 1)
  v = InStr(sz$, ",") 'A vessző helyét keresi ki
  m = Val(Left(sz$, v - 1))
  n = Val(Right(sz$, Len(sz$) - v))
  Cells(sor, 5) = "DEC(" & m + n & "," & n & ")"
  End If
  sor = sor + 1
  Loop
  End Sub

• #3592 MarDani csendes tag MarDani #3591

  Új Válasz 2008-06-01 17:00:48 #3592

  Ú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

  

  MarDani

  csendes tag

  válasz MarDani #3591 üzenetére

  Függvénnyel megoldottam:
  =IF(LEFT(D2;6)="NUMBER";"DEC("&(LEFT(RIGHT(D2; LEN(D2)-7);2)+LEFT(RIGHT(RIGHT(D2; LEN(D2)-7);2);1))&RIGHT(D2;3);"")

  Azért ha lenne valaki akinek macroval nem nagy fáradtság megoldani, akkor azt szivesen fogadom, sokat tanulnék belőle.

  Köszi

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