Pakko jo kysyy helppii. Mikä tos oikeen tökkii, kun ei vaan onnistu.
Ilmottaa EPÄTOSI. Joten mitä pitää muuttaa, että näyttäs solun tyhjänä, sillon kun siihen tulee 0
Cells(vika 1, i 3).Formula = "=JOS(SUMMA(" & ColName & 14 & ":" & ColName & vika & ")" _
& "= 0; """";" & Cells(vika 1, i 3).Formula = "=SUMMA(" & ColName & 14 & ":" & ColName _
& vika & "))"
Ilmottaa EPÄTOSI. Joten mitä pitää muuttaa, että näyttäs solun tyhjänä, sillon kun siihen tulee 0
Cells(vika 1, i 3).Formula = "=JOS(SUMMA(" & ColName & 14 & ":" & ColName & vika & ")" _
& "= 0; """";" & Cells(vika 1, i 3).Formula = "=SUMMA(" & ColName & 14 & ":" & ColName _
& vika & "))"
Vastaukset 5
Vanhimmat
Soluun tuleva kaava ei varmaan ole toivomasi näköinen. En testannut, mutta kokeilepa jättää tämä pois:
" & Cells(vika 1, i 3).Formula = "=
Yksi vaihtoehto on käydä ottamassa lisäasetuksista täppä pois kohdasta "Näytä nolla soluissa, jotka sisältävät nolla-arvon". Sen jälkeen solu näytetään tyhjänä, jos sen arvo on nolla.
En tiedä miten toi täppä autta VBA koodiin korjaamiseen , jota kysyjä halusi ;-)
Noi kaavojen kirjoitusvirheet on itsellekin aika hankalia välillä löytää. Kun ei tietoja noista muuttujista niin toi nyt ainakin toimii nyt
Sub Testi()
vika = 20
'b-sarake jos numerolla
ColName = 2
'tai sitten jos ei ole numeroa, vaan kirjain
'ColName = "B"
'ColName = Range(ColName & 1).Column
Range("D3").Select
Cells(vika 1, i 3).Formula = "=JOS(SUMMA(R14C" & ColName & ":R" & vika & "C" & ColName & " )=0,"""",SUMMA(R14C" & ColName & ":R" & vika & "C" & ColName & " ))"
'solun kaavaksi tulee nyt
'=IF(SUM($B$14:$B$20 )=0;"";SUM($B$14:$B$20 ))
End Sub
Ei sinun tarvitse sitä tietääkkään, se on katos lyhyestä virsi kaunis ;-) ;-)
Ei näköjään tyhjennäkään EPÄTOSI-arvon sisältäviä soluja. Oletuksena kuvittelin arvon rinnastettavan nollaan, mutta niin ei näköjään ole.
Ehdollista muotoiluakin voi käyttää. Eli jos solun arvo on EPÄTOSI, niin solun kirjasimen väri vaihdetaan samaksi kuin taustaväri.