Új hozzászólás Aktív témák

• #21292 bteebi veterán

  Új Válasz 2014-04-18 10:32:53 #21292

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bteebi

  veterán

  Sziasztok!

  Van egy nagyon sok lapból álló munkafüzetem. A munkalapok adott tartományaiba fixre szeretném beállítani a megjelenített tizedesjegyek számát, attól függően, hogy egy adott cella (B17) értéke milyen nagyságrendbe esik. Az első kérdésem: meg lehet ezt az alábbi makrónál egyszerűbben oldani? Nekem elsősorban az "And"-es összevonás nem tetszik, de azt valószínűleg nem lehet megkerülni.

  Sub tizedesszam()
  If 0.001 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 0.01 Then
  Selection.NumberFormat = "0.00000"
  ElseIf 0.01 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 0.1 Then
  Selection.NumberFormat = "0.0000"
  ElseIf 0.1 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 1 Then
  Selection.NumberFormat = "0.000"
  ElseIf 1 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 10 Then
  Selection.NumberFormat = "0.00"
  ElseIf 10 < Sheets("Adatok").Range("B17").Value And Sheets("Adatok").Range("B17").Value <= 100 Then
  Selection.NumberFormat = "0.0"
  End If
  End Sub

  Az a gond, hogy azok a tartományok, amelyekre a szűrést szeretném elvégezni, a munkalapok különböző részein vannak, ráadásul több tartományban. Van arra ötletetek, hogy hogy lehetne azt viszonylag egyszerűen megoldani, hogy csak a kívánt cellákban állítsam át a formátumot? Esetemben van (lehet) egy viszonylag egyszerű megoldás, mert ezek a cellák feltételes formázással kék színűre vannak állítva (kék színűek, amíg üresek, ha van bennük érték, akkor már nincs háttérszín) - szóval az elvileg működhetne, hogy az összes lapon végigfutva az adott színű cellák formátumát átállítsam.

  Ezen kívül még egy gondom van: hogy tudnám azt elérni, hogy a tizedesjegyek száma ne változzon akkor se, ha máshonnan adatokat illesztek be? Ha irányított beillesztést használnék (akár makróval), az szerintem viszonylag kényelmetlen lenne, úgyhogy nagyon örülnék neki, ha nem lenne muszáj azt használni.

  Előre is köszönöm a segítségeteket!

Új hozzászólás Aktív témák