< návrat zpět

MS Excel


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

Zaslal/a 12.3.2014 16:55

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? 7
Děkuji za nápady

Zaslat odpověď >

#018255
Opičák
Podle mě je chyba v tom, že textbox do bunky zapíše text , který vypadá jako datum a ne číslo.citovat
#018256
Opičák
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: zip18256_datumtxb.zip (21kB, staženo 17x)
citovat
#018262
avatar
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
icon #018266
avatar
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

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