VBA - opakujici se parametry

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Nefer
nováček
Příspěvky: 12
Registrován: říjen 06
Bydliště: Nový Jičín
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

VBA - opakujici se parametry

Příspěvekod Nefer » 26 kvě 2017 00:11

Ahoj, potreboval bych poradit, nebo alespon nasmerovat. Stale pridavam do tabulky nove funkce pres VBA, ale cim jich je vice, tim vice mam i radku kodu, ktery bych potreboval zredukovat, protoze se stava neprehlednym a nenabizi moznost hromadne upravy. Pro predstavu napisu o co presne mi vlastne jde. Kuprikladu je potreba pri inicializaci nastavit nekolik parametru pro nektere prvky:

Private Sub UserForm_Initialize()

Label1.BackColor = RGB(255, 255, 255)
Label1.Enabled = True
...
Labeln.BackColor = RGB(255, 255, 255)
Labeln.Enabled = True

End sub

Takhle je to relativne prehledne a vcelku i rychle upravitelne, kdyz je ale potreba pridat IF a vse se zacne vetvit, zacina uz byt kod znacne neprehledny a tezce upravitelny. Existuje nejaka moznost, jak vse definovat drive a pak jen urcit, podle ceho se maji prvky nastavit? Nevim, jestli to uz neni dneska vulgarismus, ale drive se neco takoveho nastavovalo v CSS u HTML, kdy se predepsaly parametry a pak se jen odkazalo do CSS na konkretni styl. Neco v tomhle smyslu:

Styl 1 = ...
Styl n = ...

Predem dekuji za odpoved

Reklama
guest
Pohlaví: Nespecifikováno

Re: VBA - opakujici se parametry

Příspěvekod guest » 26 kvě 2017 07:11

Zkrátka jde o sadu vlastností, kterou si musíte někam ukládat - na listu, do pole, Collection, Type..End Type a tento blok informací pak načítat. Jestliže je tam ale podmínek moc a nedokážete vytvořit pouze několik sad hodnot (stavů prvků), pak to stejně postrádá smysl.

Jinak trochu mimo:
http://excelplus.net/hromadne-blokovani ... formulari/

Nefer
nováček
Příspěvky: 12
Registrován: říjen 06
Bydliště: Nový Jičín
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Re: VBA - opakujici se parametry

Příspěvekod Nefer » 26 kvě 2017 20:01

Perfektni! Ten odkaz je perfektni, neco takoveho jsem mel na mylsi. Dekuji


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Windows 10 - neustále se opakující neúspěšná aktualizace Příloha(y)
    od Ferdinand » 20 pro 2023 21:31 » v Windows 11, 10, 8...
    15
    2458
    od Ferdinand Zobrazit poslední příspěvek
    11 led 2024 18:45

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti