Automaticky (pro přesná čísla) jedině s VBA přes událost listu.
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: výška a šířka sloupce
MS Excel
Téma: výška a šířka sloupce 
Zaslal/a davos147 30.12.2015 23:53
Zdravím,měl by někdo typ jak automaticky nastavovat šířku řádku a sloupce z hodnot zadaných v buňkách?!
.Například nějak takto.
P.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").RowHeight = Range("A1").Value
Range("A1").ColumnWidth = Range("A1").Value
End Subcitovat
P.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1").RowHeight = Range("A1").Value
Range("A1").ColumnWidth = Range("A1").Value
End Subcitovat
Napsaný kód sice poskytuje správný námět na způsob řešení, ale použít se v této podobě nedá. Předpokládám, že existují dvě řídící buňky, které při změně hodnoty v nich mají vyvolat změnu velikosti buněk v nějaké úplně jiné oblasti.
Pro takto popsanou úlohu by fungovalo např. toto:
Private Sub Worksheet_Change(ByVal Target As Range)
' změna velikosti buněk v oblasti D10:H20
' pomocí změny řídících hodnot v A1:A2
' buňka A1 obsahuje výšku buněk pro oblast
' buňka A2 obsahuje šířku buněk pro oblast
Select Case Target.Address(0, 0)
Case "A1": Range("D10:H20").RowHeight = Range("A1").Value
Case "A2": Range("D10:H20").ColumnWidth = Range("A2").Value
End Select
End Subcitovat
Pro takto popsanou úlohu by fungovalo např. toto:
Private Sub Worksheet_Change(ByVal Target As Range)
' změna velikosti buněk v oblasti D10:H20
' pomocí změny řídících hodnot v A1:A2
' buňka A1 obsahuje výšku buněk pro oblast
' buňka A2 obsahuje šířku buněk pro oblast
Select Case Target.Address(0, 0)
Case "A1": Range("D10:H20").RowHeight = Range("A1").Value
Case "A2": Range("D10:H20").ColumnWidth = Range("A2").Value
End Select
End Subcitovat
funguje to perfektně,akorát by to chtělo aby makro kontrolovalo i změnu obsahu buňky která byla vyvolána vzorcem protože pak makro nezaregistruje změnu obsahu buňky a nic se nezmění.citovat
Přepočet vzorce kvůli změně hodnot v jeho odkazech nevyvolá žádnou událost Excelu, kterou by bylo možné indikovat. Tudy prostě cesta nevede. Pokud chceme získat reakci, je nutno indikovat změny v těch buňkách, které jsou měněny přímo. Nemohu např. indikovat změnu hodnoty součtu, který je vytvářen vzorcem. Místo toho musím hlídat přímé změny v buňkách, z nichž součet vzniká.
Jiná situace vzniká, když hodnotu buňky nepočítáte pomocí vzorce v ní, ale pomocí srovnatelného výrazu z VBA. Na takovou změnu buňky už Excel reaguje zcela automaticky vznikem události Change.citovat
Jiná situace vzniká, když hodnotu buňky nepočítáte pomocí vzorce v ní, ale pomocí srovnatelného výrazu z VBA. Na takovou změnu buňky už Excel reaguje zcela automaticky vznikem události Change.citovat
No asi by išlo ten vzorec nahradiť makrom, ktoré by tam vložilo hodnotu toho vzorca. Potom by sa udalosť Change spustila. Ale toto asi nebude to "pravé orechové".citovat
On to je vlastně výsledek z ověřování dat kde jsou pouze 2 hodnotycitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Vynásobit hodnoty kurzem - Power Query
Alfan • 26.4. 7:56
Relativní cesta - zdroje Power Query
Alfan • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
elninoslov • 26.4. 7:54
Vynásobit hodnoty kurzem - Power Query
lubo • 25.4. 19:18
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 15:12
Relativní cesta - zdroje Power Query
Alfan • 25.4. 15:08
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 14:21
RSS nejnovější články