..:: Nasvet/VBA ::..

Centralni računalnik piše negativna števila z minusom na koncu . Ko takšna števila uvozim v Excel jih Excel ne vidi kot negativna števila, temveč kot tekst! Kako ga lahko prepričam drugače?


S preprosto VBA kodo.

Najprej Datoteko uvozite v Excel. Uvozite jo tako, da minuse pri številih upoštevate (čarovniku za uvoz določite dovolj široke kolone).

Ko Excel datoteko uvozi, označite kolone s števili in zaženite makro

''' ''' Procedura : PrevtoriNegativnaStevila ''' Namen : Števila prenesena iz centralnega računalnika, ''' ki imajo minus na koncu, pretvori v prava ''' negativna števila ''' Vrača : Nič ''' Argumenti : Ni ''' Napisal : Matjaž Prtenjak, 08/05/2000 ''' Sub PrevtoriNegativnaStevila() Dim Rng As Range On Error Resume Next ''' sprehodi se samo po celicah s tekstom For Each Rng In Selection.SpecialCells( _ xlCellTypeConstants, xlTextValues) ''' če je minus zadaj ==> pretvori If Right(Rng.Text, 1) = "-" Then Rng.Value = CDbl(Rng.Text) End If Next Rng End Sub



Navigacija

Se splača!

Tekmovanje

Najboljši krotilci kač...

Naključno iz foruma

24.07.2007 07:45:21: Seštevanje ?asa

26.08.2009 07:26:53: Excel...robovi

10.06.2009 14:27:31: Kopiranje dela besedila iz celice v drugo celico