< návrat zpět

MS Excel


Téma: zápis podmínky rss

Zaslal/a 26.8.2022 9:12

Dobrý den,
prosím jak správně napsat podmínu do vba:
chci pro hodnotu C3 <0 a > -14

If Worksheets("dat").Range("C3").Value = and(<0;>-14) Then
díky

Zaslat odpověď >

#053251
avatar
A ještě jedna věc.
Pokouším se kodem změnit barvu podkladu Label, nebo celého form, ale nic se nezmění, a nevyhodí se ani chyba.

Label_Info.ForeColor = &HC000& zmenit písmo mi funguje
Form_Info.ForeColor = &HC000&

ale pozadí se nezmení:

Label_Info.BackColor = &HC000& nebo 16761087.

jak je to se zápisem těch kodu barev?
Musí se přidávat nějaký další příkaz aby se to ve formuláři nějak"znovunačtlo" s tou novou barvou?
díkycitovat
#053252
elninoslov
V čom je presne problém ???
Příloha: zip53252_farba-a-podmienka-vo-forme.zip (18kB, staženo 8x)
citovat
#053253
avatar
no,chci aby se třeba ten Label_Info.BackColor ,zmenil sám po 2sec zdržení na zelenou.

abych popsal situaci:
Po otevření sešitu, nějakého se mi objeví uvodní form, kteří když se Inicializuje, spouští různá makra a jejich výsledky se dopisují do toho uvodního formuláře, např poslední spuštění apod, a když to třeba bylo později než včera /do -14dní/ tak mi to v ´tom Labelu napíše text např "pozor, už se to dlouho nespouštělo", a ten text se vybarví v šedém Labelu jinou barvou písma a ten label se zbarví taky jinak, třeba červeně.

když jsem dopsal ***příkazy tak to nefunguje

Private Sub UserForm_Initialize()
Dim HodnotaC3 As Variant
HodnotaC3 = Worksheets("dat").Range("C3").Value
TextBox1.Text = HodnotaC3
If HodnotaC3 < 0 And HodnotaC3 > -14 Then TextBox1.BackColor = vbYellow


'Application.Wait (Now() + TimeValue("00:00:02"))
**** Label_Info.BackColor = &HC000& 'zeleny ' chci aby se to zmenilo samo po 2sec zdržení
****'call Label_Info.BackColor = &HC000& ' chci aby se to zmenilo samo
End Subcitovat
#053254
avatar
priloha
Příloha: zip53254_farba-a-podmienka-vo-forme.zip (19kB, staženo 6x)
citovat
#053255
avatar
Možná to nemám provádět ve form-initialize ale v activate ?citovat
#053257
elninoslov
Všetko záleží na mnohým veciach. Vyhodnotiť môžete v Initialize a zrušiť po Wait v Activate. Formulárové prvky meníte z makier v Moduloch alebo v Module Formu? Príklad uvarený z vody. Proste si vymýšľam, keď nedáte prílohu. Takto to funguje asi ako chcete, za predpokladu, že chcete z vody varené...
Stačí? Prispôsobíte si to?
Příloha: zip53257_farba-a-podmienka-vo-forme.zip (22kB, staženo 7x)
citovat
#053259
avatar
Musím běžet,mrknu později. Děkuju a hezký víkend.citovat

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

Relativní cesta - zdroje Power Query

Alfan • 25.4. 9:44

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 9:02

Vynásobit hodnoty kurzem - Power Query

elninoslov • 25.4. 8:40

Relativní cesta - zdroje Power Query

Alfan • 25.4. 8:04

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 0:34

Vynásobit hodnoty kurzem - Power Query

Alfan • 24.4. 16:32

Relativní cesta - zdroje Power Query

Alfan • 24.4. 15:44