Solun muotoilu ja desmaalien määrä

suurella_tarkkuudella

Minulla tulee kaavan tuottamana soluun lukuavo hyvin laajalta alueella 0,0001- 10000. Minun pitää muotoilla solu lukuarvoksi ja desimaaleja neljä, ettei solu näyttäisi nollaa hyvin pienillä arvoilla. Näyttää kuitenkin hassulta kun lukuarvo on tuhansia ja vielä desimaaleja neljä perässä. Muotoilu "yleinen" tuottaa myös desimaaleja tuhottomasti luvun perään.
Voiko jotenkin määrittää että jos luvussa on kokonaisosa niin näytetään vain esim. kaksi desimaalia, ja vasta kun kokonaisosaa ei ole otetaan useampi desimaali käyttöön?

8

224

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      ko. taulukon moduuliin...
      muuta solualue sopivaksi nyt A -sarake

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim Solu As Range
      For Each Solu In Intersect(Target, Columns("A"))
      If Not Solu.Value Like "*[!0-9]*" Then
      Solu.NumberFormat = "General"
      ElseIf Not Solu.Value Like "*[!0-9,]*" And Not Solu.Value Like "*,*,*" Then
      Solu.NumberFormat = "0.0000"
      Else
      Solu.NumberFormat = "General"
      End If
      Next
      End Sub

      Keep EXCELing
      @Kunde

      • suurella_tarkkuudella

        Tämän siis pitäisi vaikuttaa koko sarakkeen kaikkien rivien muotoiluun? Lisäsin tämän koodin VBA:n moduliin, mutta solukohtainen muotoilu on edelleenkin voimassa. Miten tämän pitäisi oikein toimia, tarvitseeko se jotenkin erikseen käynnistää?

    • kunde

      Huonosti luin ...
      Sulla olikin siis kaava soluissa, joka muuttuu. Muutin nyt alueeksi A1:A100, jolla tekee muutokset....
      helppo fiksata tota solualuetta

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim Solu As Range
      For Each Solu In Range("A1:A100")
      If Not Solu.Value Like "*[!0-9]*" Then
      Solu.NumberFormat = "General"
      ElseIf Not Solu.Value Like "*[!0-9,]*" And Not Solu.Value Like "*,*,*" Then
      Solu.NumberFormat = "0.0000"
      Else
      Solu.NumberFormat = "General"
      End If
      Next
      End Sub

      Keep EXCELing
      @Kunde

      • suurella_tarkkuudella

        Joo kaavat ovat soluissa, jotka tuottavat nämä lukuarvot.
        Ei ollut tällä fiksatullakaan makrolla mitään vaikutusta alueen desimaaleihin, eli menee solukohtaisen muotoilun mukaisesti. Jokin mättää...

    • 3dots

      ElseIf Not Solu.Value Like "*[!0-9,]*" And Not Solu.Value Like "*,*,*" Then

      Eikö ensimmäinen Not ole tarpeeton?

    • ORCL

      Solukohtaisiksi muotoiluksi kaavoja sisältäviin soluihin (=Format Cells, Number Category: Custom, Type kohtaan): [>=1]#####,00;[<1]0,0000

      • suurella_tarkkuudella

        No siinä oli helppo ratkaisu peruskäyttäjälle, tuo litania vain tarvittaviin soluihin "oma muotoilu" listalta. Kiitos!

    • exexel123d

      Ilman makroja.
      Esim
      Sarakkeelle Conditional Formatting -> Format only cells that contain , Cell value, less than, 1 ->
      Format Number, Number , Decimal placess 4

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Saako kaunis ihminen parempaa kohtelua?

      Onko kauniin ihmisen elämä "helpompaa" kuin tavallisen näköisen ihmisen? Olen kuullut väittämän, että kaunis ihminen saa
      Sinkut
      42
      1986

    2. En rehellisesti usko et oisit

      Sekuntiakaan oikeasti mua kaivannut. Tai edes miettinyt miten mulla menee. Jotenkin todennäköisesti hyödyt tästäkin jos
      Ikävä
      31
      1640

    3. Näin sinusta taas unta!

      Unessa olin pakahtuneesti rakastunut sinuun. Olimme vanhassa talossa jossa oli yläkerran huoneissa pyöreät ikkunat. Pöly
      Ikävä
      14
      1424

    4. Suomennettua: professori Jeffrey Sachs avaa Ukrainan sodan taustat luennollaan EU parlamentissa

      Jeffrey Sachs on yhdysvaltalainen ekonomisti. Sachs toimii Columbian yliopiston The Earth Instituten johtajana. Aiemmin
      NATO
      342
      1381

    5. Nainen, olet jotenkin lumoava

      Katselen kauneuttasi kuin kuuta, sen loistoa pimeässä. Sen kaunis valo on kaunista sekä herkkää ja lumoavaa. Olet naisel
      Ikävä
      68
      1285

    6. Ei ole kyllä mennyt

      Kovin hyvin kun alussa pieni sekoaminen hänestä 😏
      Ikävä
      8
      1201

    7. Se sinun kaipauksen kohde

      Ei todellakaan käy täällä höppänä mies.
      Ikävä
      12
      1068

    8. En muuttaisi sinusta mitään

      Ensin olit etäinen ja yritin pysyä tutkan alapuolella. Mutta ei silmiltäsi jää mitään huomaamatta, kuten minulla ei kuul
      Ikävä
      7
      971

    9. Et katso sitä

      Niinkuin minua. Ehkä se luo toivetta
      Ikävä
      20
      959

    10. Olet muutenkin tyhmä

      Ja käyttäydyt epäasiallisesti siinä työssäsi.
      Ikävä
      80
      929
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt