excel - Format to percent with 10 or a lot of decimals in vba -

-

i've got tricky problem , don't understand happening , why.

i have userform lot of percentage values.

enter image description here

these values come excel sheet, this. user can change these values , put them in excel sheet. user's activity gets saved in log sheet. values saved there well. put values there this:

private sub savev_click()     dim wslog worksheet     dim long     dim j long     dim lastrow long     dim tbnr string     j = 3     = 2     set wslog = thisworkbook.worksheets("log")     wslog         lastrow = findlastrow(wslog)         lastcolumn = findlastcolumn(wslog)         each tb in me.controls             if typename(tb) = "textbox"                 select case                     'case 2 , 3 values fixed , not of interest                     case 2                         .cells(lastrow + 1, 1).value = tb.value                     case 3                         .cells(lastrow + 1, 2).value = tb.value                     'the following cases refer textboxes can see in other picture (there more)                     case 4 46                         .cells(lastrow + 1, j).value = tb.value                     case 47 89                         .cells(lastrow + 2, j).value = format(tb.value, "0.00%")                     case 90 132                         .cells(lastrow + 3, j).value = format(tb.value, "0.00%")                 end select             = + 1             j = j + 1             if j > lastcolumn j = 3             end if         next     end     unload me end sub

the code runs fine in itself, doesn't format values right.

if use format(tb.value, "0.00%") values rounded 101,49316739% turns 101,49%

i tried adding more zeros, if use format(tb.value, "0.000%") value get's multiplied 1000 turns 101493%. (even more more zeros)

how can save values ten (or more) decimals?

the format function converts value string. means code here...

.cells(lastrow + 2, j).value = format(tb.value, "0.00%")

...will take double value of 101,49316739 , convert string value of "101,49%". data type of .cells(lastrow + 2, j).value variant, you're giving variant of subtype string. excel has determine if value you're writing can represented number. remember, format displaying readable version of number - not storing values.

just let excel formatting:

.cells(lastrow + 2, j).value = cdbl(tb.value) \ 100    'cast string double , scale. .cells(lastrow + 2, j).numberformat = "0.000000000000000%"    'format cell.

Comments

Post a Comment

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

-
i trying work entity inside request method of spring boot application. entity in project , pom.xml has dependencies it. why error message?: org.hibernate.unknownentitytypeexception: unable locate persister: com.ric.bill.model.bs.par package com.ric.web; import java.util.concurrent.atomic.atomiclong; import javax.persistence.entitymanager; import javax.persistence.persistencecontext; import net.sf.ehcache.cachemanager; import net.sf.ehcache.management.cache; import net.sf.ehcache.management.cachestatistics; import org.hibernate.stat.statistics; import org.springframework.beans.factory.annotation.autowired; import org.springframework.boot.autoconfigure.domain.entityscan; import org.springframework.cache.annotation.enablecaching; import org.springframework.transaction.annotation.enabletransactionmanagement; import org.springframework.transaction.annotation.propagation; import org.springframework.transaction.annotation.transactional; import org.springframework.web.bind.annotati
Read more

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

-
i implementing go program uses bufio.scanner , bufio.writer have packaged code follows package main import ( "fmt" "player/command" "strings" ) func main() { //enter code here. read input stdin. print output stdout commands.scanner.scan() { //scan new line , send comand variable check command exist or not input := strings.split(strings.trim(commands.scanner.text(), " "), " ") command := input[0] if command == "" { fmt.printf("$ %s:", commands.pwd) continue } if !commands.commands[command] { commands.throwerror("cannot recognize input.") } else { commands.execute(command, input[1:], nil) } fmt.printf("$ %s:", commands.pwd) } } i using init.go file in main package follows package main import ( "flag" "player/sourc
Read more

c - double free or corruption (fasttop) -

-
this code reads null terminated string file (file containing null terminated strings & should provide index wanted string). error: *** error in `./main': double free or corruption (fasttop): 0x090a4a80 *** aborted code: char *tmp_realloc=null; char *sstring=null; int i=1; /*set file pointer point string*/ fseek(fh,index,seek_set); sstring=(char*)malloc(sizeof(char)); if(sstring == null) return null; tmp_realloc=sstring; while( (*(sstring+i-1)=(char)fgetc((file*)fh)) != 0x0 ) { /*reallocate more memory*/ tmp_realloc=(char*)realloc((char*)sstring,++i); /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strcpy((char*)tmp_realloc,(char*)sstring); free(sstring); sstring=tmp_realloc; } } could tell me pointer causing issue (& reason) ? remove part /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strc
Read more