< návrat zpět

MS Excel

Téma: VBA tab color (format) rss

Zaslal/a misocko 7.5.2023 9:15

Ahojte
excel 365
Vedel by mi niekto poradiť ako vo VBA zmenim farbu záložky tak aby vyzerala ako povodna keď otvorim nový subor?
Keď si zaznamenam makro kde menim "Tab color" na "No color" vznikne mi makro ktore vyhadzuje chybu na riadku ".ColorIndex = xlAutomatic"
Sub Macro1()
Sheets("300 E2002 (2)").Select
With ActiveWorkbook.Sheets("300 E2002 (2)").Tab
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
End Sub
chyba run time error 9, subscript out of range,
Vopred Ďakujem

Zaslat odpověď >
Strana:  1 2   další »
r13(7.5.2023 9:30)#054913
avatar
Všetkým takýmto dotazovateľom, ktorí už veľmi narábajú s kódom:
ZÁZNAMNÍKOM MAKIER SI NAHRAJ MAKRO, V KTOROM UROBÍŠ POŽADOVANÝ ÚKON A POZRI, AKO SI TO MAKRO ZAPÍSALO. TAM NÁJDEŠ ODPOVEĎcitovat
misocko(7.5.2023 9:41)#054914
avatar
Ahoj
Áno, môj osobný a celoživotný problem je že mi ľudia nerozumeju (mám asi divne myslenie). Ale snažil som sa to popisať dostatočne jasne.
Takže znova: Zaznamenam makro, spustim ho a chyba!
Priložené je zaznamenané makro.

BTW - veľké písmena sa na forach nepouživajú, vyzera to divne.citovat
r13(7.5.2023 9:51)#054915
avatar
Veľké písmená? Len som sa nechal vytočiť... OK, tak poďme na to postupne:
Je divné, ako môže záznamník makier zaznamenať chybu. Rás by som vedel, ako si makro mohlo zaznamenať príkaz .ColorIndex=xlAutomatic, ktorý je chybný
Môžeš mi popísať, čo si robil, aby to makro takýmto spôsobom zaznamenalo?citovat
misocko(7.5.2023 10:05)#054916
avatar
Takže Ťa vytáča že si si poriadne neprečítal čo som napisal ? 5 (srandujem)
S makrami už "chviľku" robim, a ak niečo neviem, používam záznam. Nieje to prvykrát čo sa mi stalo že makro zaznamená niečo čo následne vyhodi chybu, takže sa tomu nedivím.
čo sa tyka postupu zaznamu:
oznacim inu zalozku
makra / zaznamenat
kliknem na zalozku kde chcem zmenit farbu
tab color - NO Color
koniec záznamu makra. (video mozem spravit večer, keď sa budem nudit)citovat
r13(7.5.2023 10:17)#054917
avatar
A výber "Farba uška - Bez farieb" Ti nahrá
.ColorIndex = xlAutomatic ????? 4
Mne totiž makro zaznamená:
Sub Makro1()
Sheets("300 E2002 (2)").Select
With ActiveWorkbook.Sheets("300 E2002 (2)").Tab
.ColorIndex = xlColorIndexNone
.TintAndShade = 0
End With
End Sub
citovat
r13(7.5.2023 10:19)#054918
avatar
Kde soudruzi z NDR udělali chybu??? 2citovat
r13(7.5.2023 10:23)#054919
avatar
.ColorIndex = xlAutomatic sa totiž používa na font a nie pre ušká hárkovcitovat
r13(7.5.2023 10:24)#054920
avatar
Celkom by ma zaujímalo to video 2citovat
misocko(7.5.2023 10:47)#054921
avatar
Ano, nahra mi presne to čo som postol. Keď budem po obede v robote, skúsim Tvoj kód. Zatiaľ Ďakujem.citovat
misocko(7.5.2023 10:51)#054922
avatar
Tak som to skusil na domácom PC a nahrá mi to tak ako Tebe. Neviem čo mám v robote pokašlane. Fakt spravím to video 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