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

• #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

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