< návrat zpět

MS Excel


Téma: VBA tab color (format) rss

Zaslal/a 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ší »
#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
#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
#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
#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
#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
#054918
avatar
Kde soudruzi z NDR udělali chybu??? 2citovat
#054919
avatar
.ColorIndex = xlAutomatic sa totiž používa na font a nie pre ušká hárkovcitovat
#054920
avatar
Celkom by ma zaujímalo to video 2citovat
#054921
avatar
Ano, nahra mi presne to čo som postol. Keď budem po obede v robote, skúsim Tvoj kód. Zatiaľ Ďakujem.citovat
#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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21