• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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

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

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

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 citovat

marjankaj(18.2.2016 12:34)#030174

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

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

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

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

@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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse