davos147 napsal/a:
Poradí někdo jak vyřešit zmíněný problém?
Naozaj neviem, čo sa snažíš riešiť.
To tam musíš mať výsledok na 15 miest? Veď si ten výsledok zaokrúhli.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
Naozaj neviem, čo sa snažíš riešiť. To tam musíš mať výsledok na 15 miest? Veď si ten výsledok zaokrúhli.citovat
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?!
Strana: « předchozí 1
2
Naozaj neviem, čo sa snažíš riešiť.
To tam musíš mať výsledok na 15 miest? Veď si ten výsledok zaokrúhli.citovatzkratka potřebuji přepínat dvě velikosti buněk skrze tisk a bohužel ověřováním dat se seznamem na tyto dvě hodnoty velikosti buněk nefunguje automaticky.!citovat
Obdivuji to, že se vlákno dočkalo 12 odpovědí bez ukázky toho, o co vlastně tazateli jde. Když se neumím srozumitelně zeptat, mám na to alespoň ukázat prstem!citovat
připojuji soubor pro představu o co mi vlastně jde!chtěl bych aby se velikost buněk měnila po změně v rozevíracím seznamu,ale výběr nemusí být za každou cenu přes ověřování dat.
Děkuji všem
Děkuji všem
Příloha: 
29349_ukazka.zip (11kB, staženo 23x)
citovat29349_ukazka.zip (11kB, staženo 23x)Daj tam toto a bude ti to robiť stále.
Private Sub Worksheet_Change(ByVal Target As Range)
' změna velikosti buněk v oblasti D10:H20
' buňka A1 obsahuje výšku buněk pro oblast
' buňka A2 obsahuje šířku buněk pro oblast
Range("D10:H20").RowHeight = Range("A1").Value
Range("D10:H20").ColumnWidth = Range("A2").Value
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
' změna velikosti buněk v oblasti D10:H20
' buňka A1 obsahuje výšku buněk pro oblast
' buňka A2 obsahuje šířku buněk pro oblast
Range("D10:H20").RowHeight = Range("A1").Value
Range("D10:H20").ColumnWidth = Range("A2").Value
End Subcitovat
Tak, jak je ta ukázka napsaná, žádné hodnoty v A1:A2 nepotřebuji. Stačí rovnou testovat obsah B1, a to jenom když se B1 změní:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Velikost As Single
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If Range("B1") = "malá" Then Velikost = 50 Else Velikost = 100
With Range("D10:H20")
.RowHeight = Velikost: .ColumnWidth = Velikost
End With
End Sub
Trochu mne jenom zaráží ta šířka buněk. Já mám standardní výšku buněk = 15 a šířku = 8,43. Ale tak ta ukázka zní
citovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Velikost As Single
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
If Range("B1") = "malá" Then Velikost = 50 Else Velikost = 100
With Range("D10:H20")
.RowHeight = Velikost: .ColumnWidth = Velikost
End With
End Sub
Trochu mne jenom zaráží ta šířka buněk. Já mám standardní výšku buněk = 15 a šířku = 8,43. Ale tak ta ukázka zní
citovatNechtěl jste náhodou něco takového, co je na Listu2 v ukázce? Buňka B2 se plní s ověřením ze seznamu možností.
Změna hodnoty v B2 vyvolá událost Change, která si podle vybrané možnosti v B2 nastaví potřebnou výšku a šířku buněk, kterou pak promítne do řízené oblasti.
Změna hodnoty v B2 vyvolá událost Change, která si podle vybrané možnosti v B2 nastaví potřebnou výšku a šířku buněk, kterou pak promítne do řízené oblasti.
Příloha: 29356_velikostoblasti.zip (16kB, staženo 25x)
citovat29356_velikostoblasti.zip (16kB, staženo 25x)
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články