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

283

Ää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. Ruotsalaisuuden Päivän virallinen liputuspäivä poistettava VÄLITTÖMÄSTI!

      Suomen valtion ja suomalaisuuden kannalta ei ole minkäänlaisia perusteita liputtaa virallisesti ruotsalaisuuden päivää,
      Maailman menoa
      105
      5731

    2. Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa

      (Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys
      Maailman menoa
      65
      2572

    3. Nainen aion pilata elämäsi täysin, opetus sulle, että pelasit väärän ihmisen sydämellä.

      Empatiani sua kohtaan katosi siinä kohtaan, kun teit tietoisen valinnan leikkiä mun sydämellä. Luulet olevas joku älykäs
      Ikävä
      241
      1585

    4. Kaivattusi nimi vol.3

      Kaipaajankin nimi olisi kiva. 🥰
      Ikävä
      94
      1380

    5. Alkanut tuntua siltä

      Että taisi olla kusetusta koko homma alusta saakka.
      Ikävä
      124
      1097

    6. 6 vkoa kulunut ilman sua

      …ihme että olen vielä hengissä. 😔 Kyynelillä pessyt lattioita. Rakastan ja odotan sua ikuisesti❤️Projekti jäi kesken jo
      Ikävä
      8
      901

    7. Viestisi kaipaamallesi ihmiselle

      Mitä ajattelet tilanteestanne tänään?
      Ikävä
      65
      882

    8. Nii, mites ne

      Hampaat??
      Ikävä
      66
      857

    9. Joululahja/Jouluntoivotus

      Millainen kaivatulle
      Ikävä
      75
      798

    10. Salailu jatkuu, poliisi tutkii

      Nykyään Pienimäki toimii Ylitornion kaupunginjohtajana. HS tavoitti hänet puhelimitse. Pienimäki korosti, ettei ole enää
      Ähtäri
      17
      741
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt