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

262

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ää?


    • 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ä.

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      89
      5978
    2. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      3557
    3. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      161
      2101
    4. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      231
      2022
    5. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      177
      1768
    6. Martinan bisnekset rajusti tappiolla

      Seiska 28.7: nousukiito katkesi, yritykset C-luokkaa.
      Kotimaiset julkkisjuorut
      284
      1523
    7. Tiedätkö mitä kaivattusi harrastaa?

      Minä en tiedä.
      Ikävä
      67
      1041
    8. Voiko olla, onko se tosiaan niin että

      Kumpikin rakastetaan toisiamme. Nyt pitää sukeltaa pakastimeen ❤️🥵
      Ikävä
      57
      1041
    9. Metsa Man Extra kanava toimii hyvin

      ja sieltä voipi kahta vanhoja vitejoita pahimpaan puutteeseen. Peukalot ylös.
      Tuusniemi
      21
      1020
    10. Mitkä yleiset huonot tavat ihmisillä ärsyttävät sinua ?

      Aloitukseen saa vapaasti purkaa tuntojaan. Itseäni hiukan kiusaa, kun saman talon asukkaat eivät vastaa tervehdykseen.
      80 plus
      113
      971
    Aihe