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

• #22737 slashing senior tag

  Új Válasz 2014-08-04 06:08:52 #22737

  Ú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

  Az alábbi kódot hogy kell átírni úgy hogy ha egy tartományon belül legyen az mondjuk A10:A végtelenig és beírok egy értéket 12 15 azt automatikusan átalakítsa nekem ne kelljen külön futtatni a makrót? szóval ahogy leenterezem rögtön átalakítja.

  A következőt csinálja most a makró beírom a következő formátumban a fok-ot és a szögpercet pl. 12 15 egy szóközzel elválasztva. Futtatom rá a makrót és átalakítja a szögpercet értékké hogy számolni tudjak vele így lesz a 12°15' -ből 12,25.

  Sub fokToErtek()
  
  Dim perc As Double
  Dim szog As Double
  szog = Left(ActiveCell.Value, InStr(1, ActiveCell.Value, " "))
  perc = Mid(ActiveCell.Value, InStr(1, ActiveCell.Value, " "))
  
  
  Range("d9") = szog + perc / 60
  
  End Sub

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