MS Excel

Ahoj.
Ve formuláři mám Texbox, kam napíši datum. Obsah tohoto textboxu přenesu do buňky.
Pak mám podmínku kde je: když je vložené datum menší než dnešní datum tak buňku obarvi na červeno ( Cells(2, 8).Interior.ColorIndex = 3 )
To nefunguje.
Když ale upravím datum přímo v buňce (přepíšu na jiné) tak mi obarvování buňky funguje.
Domnívám se, že je to něco s formátem buňky ale nevím jak na to. Schází mi v makru nějaký příkaz při vkládání datumu z Texboxu do buňky?

Děkuji za nápady

Zaslat odpověď >

Opičák(12.3.2014 17:09)#018255

Podle mě je chyba v tom, že textbox do bunky zapíše text , který vypadá jako datum a ne číslo.citovat

Opičák(12.3.2014 17:29)#018256

Musíte text převést na číslo, tedy nějakým způsobem "rozložit" text na den, měsíc a rok a pak použít datevalue na výsledné číslo. Jeden takový způsob je v příloze, ale možná tu někdo dá něco lepšího.
edit:
do TXBoxu zadávat DD.MM.RRRR, pokud jinak, musí se makro upravit.

Příloha: zip

18256_datumtxb.zip (21kB, staženo 17x)

citovat

rvanicek(13.3.2014 7:33)#018262

OK.
jde ta změny barvy udělat i makrem? mám to makrem (viz první příspevěk) a právě to mi nefunguje.citovat

AL(13.3.2014 9:28)#018266

Pokiaľ vyjdem z Opičákovho kódu pre Userform (zakomentoval som riadky, ktoré som zmenil), tak nejako takto:Private Sub CommandButton1_Click()
Dim dat As String
'Dim datX As Long
dat = UserForm1.TextBox1
'dx = Split(dat, ".")
'datX = DateValue(dx(2) & "/" & dx(1) & "/" & dx(0))
'Range("A1") = datX
With Range("A1")
.Value = CDate(dat)
If .Value < Date Then
.Interior.ColorIndex = 3
Else: .Interior.Pattern = xlNone
End If
End With
Unload UserForm1
End Sub, použitím CDate sa vyhnem nutnosti zadávať dátum v tvare DD.MM.RRRR a nemusím použiť ani fc Split.citovat

Téma: formátování buňky - záhada

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje