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

[Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 19.03.2014. u 08:57 · pre 153 meseca #1

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

Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 19.03.2014. u 09:07 · pre 153 meseca #2

napravi da ti se i celija C1 formatira kao i A1

Code:
ActiveSheet.cells(1,3).NumberFormat= "0000000000.00"

Potpis

[email protected]=

Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 19.03.2014. u 09:34 · pre 153 meseca #3

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

Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 20.03.2014. u 09:51 · pre 153 meseca #4

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

Potpis

[email protected]=

Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 20.03.2014. u 10:56 · pre 153 meseca #5

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?

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] VBA: Konvertovanje Broja sa vodecim nulama u string 20.03.2014. u 15:04 · pre 153 meseca #6

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

Forum kao aplikacija na telefonu

Srodne teme