Word
Excel
PowerPoint
Access
Outlook
ECDL
Poradna - ako zjednodusit kod
Vložení příspěvkuhlavní kategorie | zpět | + odpovědět na toto téma
| ako zjednodusit kod - diskuze na toto téma |
| Stručne, potrebujem zjednodusit tento kod, pride mi to dost zlozite, a je to aj dost pomale: tu je kod
Sheets("dsp").Range("d62:w76").Copy
With Sheets("ss").Range("g6:z20")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets("dsp").Range("d60:w60").Copy
With Sheets("ss").Range("g4:z4")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets("dsp").Range("x62:aq76").Copy
With Sheets("ss").Range("g39:z53")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets("dsp").Range("x60:aq60").Copy
With Sheets("ss").Range("g37:z37")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Sheets("dsp").Range("ar62:bm76").Copy
With Sheets("ss").Range("g68:ab82")
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
.Font.Size = 14
End With
Určite potrebujete kopírovať formáty ? Písmo sa dá nastaviť naraz. Skúste toto. Ale zvážte verziu 2, kde sa kopírujú iba hodnoty. Reálna príloha by možno pomohla. Odpověď dakujem zatial aspon za toto, ano potrebujem formaty, ide o podfarbenie a tiez hodnoty, problem je ze v jednom riadku mam spojene po dve bunky a tie mi nechce presunut spolu s ostatnymi, inak by to bolo jednoduchsie, pripajam ten vas subor s doplnenim tabulky ktoru mam a potrebujem automaticky preniest, ale pritom rozdelit, bolo by super keby ste mi pomohli vyriesit aj tento problem s tymi spojenymi bunkami Odpověď Modrá oblasť ??? Ako chcete kopírovať modrú oblasť celú a zároveň v nej 3 oblasti na inom mieste tej iste modrej oblasti ? To nejde, buď nepotrebujete kopírovať celú modrú oblasť tak ako je označená, alebo nepotrebujete v nej tie oblasti, kam sa pod seba skopírujú časti pôvodnej modrej oblasti G43:J45, G47:J49. O údaje zo zdrojovej modrej v týchto umiestneniach prídete. A čo s hodnotami a formátmi n pôvodnom mieste minitbl 3-4 a 5-6 v cieľovej modrej? ... Inak na základe čoho sa vyfarbujú/formátujú bunky ? Ak PF, tak by som použil rovnaký PF v celi a ťahal iba hodnoty. Kopírovanie všetkého formátu je stráášne pomalé (mne osobne proti srsti). Skúsil som aj Cells metódu, no rýchlosť je stále zlá. Odpověď |
