< návrat zpět

MS Excel

Téma: Úprava makra - vkládání sloupců rss

Zaslal/a dontom 18.2.2016 11:08

Ahoj,

mám tu makro, které slouží ke vkládání nových sloupců za každý čtvrtý, ale potřeboval bych ho upravit tak aby vkládání začalo až od patnáctého sloupce a ne od začátku. Dokázal byste mi někdo poradit?
Díky.

Sub insert_column_after_interval_4()
For colx = 4 To 200 Step 5
Columns(colx).Insert Shift:=xlToRight
Next
End Sub

Zaslat odpověď >
Strana:  1 2   další »
vovka.h(18.2.2016 11:22)#030169
avatar
Místo čtyřky zadejte 19. Ale daleko průhlednější, než abyste skákal po pěti, když chcete přidávat po čtyřech sloupcích, by bylo, kdybyste přidával sloupce zprava doleva s krokem -4, aby se vám to celé nehýbalo pod rukama.citovat
dontom(18.2.2016 11:30)#030171
avatar
Rozumím, děkuji. A kdybych chtěl jet zprava doleva, mám přehodit 19 to 200 na 200 to 19?citovat
vovka.h(18.2.2016 12:04)#030173
avatar
Nechce se mi myslet. Každopádně při cestě zprava doleva musíte začít někde o 159 a končit u 19, protože to celé nakvete o 40 přidaných sloupců. Ale to říkám z hlavy a nemusí to být s tím 159 akorát. Vyzkoušet to ale můžete 1citovat
marjankaj(18.2.2016 12:34)#030174
avatar

dontom napsal/a:

Rozumím, děkuji. A kdybych chtěl jet zprava doleva, mám přehodit 19 to 200 na 200 to 19?

Myslím, že to je správne, ísť na to sprava teda "200 to 19 step -5"
Lebo číslovanie stlpcov sa po vložení stlpca mení.citovat
dontom(18.2.2016 14:09)#030178
avatar
Už se mi to podařilo, díky. Ještě bych potřeboval sečíst každý pátý sloupec, vidíte v tom vzorci nějakou chybu?

=SOUČIN.SKALÁRNÍ((MOD(SLOUPEC($N$4:$BFP$4);5)=0)*($N$4:$BFP$4))citovat
vovka.h(18.2.2016 15:01)#030182
avatar
Myslím, že to je správne, ísť na to sprava teda "200 to 19 step -5"
Lebo číslovanie stlpcov sa po vložení stlpca mení.
To se mi nezdá, protože podle původního zadání vznikne 40 pětic sloupců, tj. cca 200 sloupců; Pro 200 to 19 step -5 bude mít první přidaný sloupec nakonec pořadové číslo někde kolem 237 (jestli z hlavy počítám správně). Navíc nevzniknou pětice, ale šestice sloupců.citovat
vovka.h(18.2.2016 15:23)#030183
avatar
Chybu ve vzorci se skalárním součinem nevidím, protože tomu vzorci vůbec nerozumím. Co tím chtěl básník říci?citovat
marjankaj(18.2.2016 15:46)#030184
avatar
@vovka
no zadávateľ asi vie najlepšie, čo chce dosiahnuť.
Ja som vyskúšal dva spôsoby a výsledok je asi rovnaký. Koniec sa mi kontrolovať nechcelo.

Sub insert_column_after_interval_4()
For colx = 16 To 200 Step 5
Columns(colx).Insert Shift:=xlToRight
Next
End Sub

Sub insert_column_after_interval_4()
For colx = 200 To 15 Step -4
Columns(colx).Insert Shift:=xlToRight
Next
End Subcitovat
dontom(18.2.2016 15:59)#030185
avatar

marjankaj napsal/a:

@vovka
no zadávateľ asi vie najlepšie, čo chce dosiahnuť.
Ja som vyskúšal dva spôsoby a výsledok je asi rovnaký. Koniec sa mi kontrolovať nechcelo.

Sub insert_column_after_interval_4()
For colx = 16 To 200 Step 5
Columns(colx).Insert Shift:=xlToRight
Next
End Sub

Sub insert_column_after_interval_4()
For colx = 200 To 15 Step -4
Columns(colx).Insert Shift:=xlToRight
Next
End Sub

Ano, použil jsem ten druhý způsob, s tím že Shift se musí změnit na =xltoLeft.citovat
dontom(18.2.2016 16:01)#030186
avatar

vovka.h napsal/a:

Chybu ve vzorci se skalárním součinem nevidím, protože tomu vzorci vůbec nerozumím. Co tím chtěl básník říci?

Vzorec by měl sčítat každou pátou buňku v řadě, problémem je že v řadě se kromě čísel objevuje i text, a vzorec si s tím neumí poradit.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje