» Poradna » Programy

VBA - selection-> úprava->selection

 |   |  Microsoft Windows 10 Firefox 60.0

Zdravím, mám hrozně snadný kód, který načte 3 označené buňky, pozmění 3tí hodnotu a opěrovně ji vypíše do stejné oblasti. Bohužel to ale nejde provést tímto makrem, protože havaruje právě na kroku "Selection = x". Poradí mi někdo jak to opravit? So vybrané oblasti se totiž vypíše jen jedna(první možnost).Například vzorek označené oblasti:kočkapespštrosOznačím tyto tři bunky, pustím makro a vybraná oblast všechno přepíše na kočka. Potřeboval bych docílit toho, aby se vypsalo kočka,pes,změna.Sub test()Dim x(1 To 3)pocet = 0For Each bunka In Selectionpocet = pocet + 1x(pocet) = bunka.Value2Next bunkax(3) = "změna"Selection = xEnd Sub

Mohlo by vás také zajímat

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 60.0

Aby Jsi dosáhl kýženého výsledku je potřeba pole při vložení zpět do listu transponovat.Takže Selection = x nahradit za Selection = Application.Transpose(x)Ale celkově to makro je takové ..... Když by jsi pořádně popsal funkčnost jistě by se dalo napsat lépe! Pokud se jedná o souvislou oblast buněk není potřeba k naplnění pole cyklus ....

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Kočka, Vybraná oblast, První možnost, Vzorek