Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

[Excel] VBA: Konvertovanje Broja sa vodecim nulama u string

[es] :: Office :: Excel :: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string

[ Pregleda: 1723 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

miLOSm

Član broj: 9411
Poruke: 314



+11 Profil

icon [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string19.03.2014. u 07:57 - pre 122 meseci
U nekoj celiji imam numericki podatak definisan kao :

Code:

ActiveSheet.cells(1,1).NumberFormat= "0000000000.00"


i zelim da visualni sadrzaj te celije u String obliku prekopiram u novu celiju.

kako to izvesti


dakle:

U celiji A1 je npr broj : 000000256.64

Zelim da u celiji C1 bude String : 000000256.64
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string19.03.2014. u 08:07 - pre 122 meseci
napravi da ti se i celija C1 formatira kao i A1

Code:
ActiveSheet.cells(1,3).NumberFormat= "0000000000.00"
[email protected]=
 
Odgovor na temu

miLOSm

Član broj: 9411
Poruke: 314



+11 Profil

icon Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string19.03.2014. u 08:34 - pre 122 meseci
da ali bi u tom slucaju i ta nova celija bila istog formata kao i prva, a ja zelim da bude tekst.

kad se klikne celija sa tim podatkom zelim da se gore u formula baru pokaze vrednost SA nulama ne bez njih
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string20.03.2014. u 08:51 - pre 122 meseci
onda mozda ovako nesto zavrsi posao

Code:
Dim ceo As Integer
Dim dec As Single
Dim cifara As Integer

With ActiveSheet
    .Cells(1, 1).NumberFormat = "0000000000.00"
    ceo = Int(.Cells(1, 1))
    dec = .Cells(1, 1) - ceo
    dec = Int(Right(dec, Len(Str(dec)) - 2))
    cifara = Len(Str(ceo))
    .Cells(1, 3) = Right("0000000000", 10 - cifara) & Trim(Str(ceo)) & "," & dec   'umesto zareza mozes staviti tacku, kako tebi odgovara

End With
[email protected]=
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs


+109 Profil

icon Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string20.03.2014. u 09:56 - pre 122 meseci
Formula
Code:
=TEXT(A1;"0000000000.00")

će pretvoriti sadržaj A1 u tekst u odvarajućem formatu, ali nisam siguran šta tebi treba, jer u polju formule će biti naravno upisana formula, a ne tekst sa nulama?
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

miLOSm

Član broj: 9411
Poruke: 314



+11 Profil

icon Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string20.03.2014. u 14:04 - pre 122 meseci
Citat:
FOX028

Code:
Dim ceo As Integer
Dim dec As Single
Dim cifara As Integer

With ActiveSheet
    .Cells(1, 1).NumberFormat = "0000000000.00"
    ceo = Int(.Cells(1, 1))
    dec = .Cells(1, 1) - ceo
    dec = Int(Right(dec, Len(Str(dec)) - 2))
    cifara = Len(Str(ceo))
    .Cells(1, 3) = Right("0000000000", 10 - cifara + 1) & Trim(Str(ceo)) & "," & dec   'umesto zareza mozes staviti tacku, kako tebi odgovara

End With


Cisto ova mala ispravka dole sa jedinicom u okviru komande Right () pri upisu u polje C1, ali to je to. Hvala
 
Odgovor na temu

[es] :: Office :: Excel :: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string

[ Pregleda: 1723 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.