Příspěvky uživatele
< návrat zpět
tam treba najprv tie stare format condition zmazat a potom urobit nove:ActiveSheet.Cells.FormatConditions.Delete
ono by to slo naformatovat s makrom takto:
For x = 1 To 7
Set aCondition = Range("B" & x).FormatConditions.Add(Type:=xlExpression, Formula1:="=$B$" & x & " <>" & Range("B" & x))
aCondition.Interior.ThemeColor = xlThemeColorAccent6
Next
R.M napsal/a:
Zabarvení by se mělo projevit při změně výsledku, takže viz váš příklad: původní hodnota je 7 (bez barvy) změna na 8 (zabarví se)....
no jednoducho dal by som podmienene formatovanie na bunku s vysledkom 456 .... takto ked A1<>456 zafarbi na zeleno
... kedze sa nejedna o iny vysledok ... problem je ze taketo bunky by sa museli kazde zvlast napisat
idealne by bolo nato urobit makro co to napise za vas ale kedze nemam prilohu tak ani netusim o co ide presne
asi takto by to vypadalo: (jediny problem by bol ze keby po nejakom case sa dostal zas na 456 tak by sa odfarbil .... ale toto netusim ci by vadilo)
podmienene formatovanie
... len netusim co presne chcete
napriklad mate = 2 + 5 bez zafarbenia
zrazu z toho bude =2 + 6 a uz sa ma zafarbit???
a dalsie zmeny ma ako evidovat?
mozte :)
ano slo by to napr. tak ze im zrusite linky a nahradite ich hodnotou
Cells.Copy
Cells.PasteSpecial xlPasteValues
priloha by bodla :))
no ja by som radsej upravil to makro kde vam premazava bunky a snazil by som sa ho urobit tak aby nevznikal preblem s #ODKAZ
..... je blbe programovat dalej s chybou
skuste toto ... je tam pomocny stlpec
dobre a kedy sa meni stav A2 ???
resp. toto by islo jedine keby sa robila historia zapisovania do bunky A2
chcete take nieco??? (dnes mi to nemysli)
Set aValue = Selection
For x = 1 To aValue.Count
Cells(aValue(x).Row, aValue(x).Column) = Right(aValue(x), 2) & "." & Mid(aValue(x), 5, 2) & "." & Left(aValue(x), 4)
Next
skuste toto makro ... funguje len na ten dany priklad co ste dali a preformatuje selecnutu oblast
Když se A1=A2 tak A3=A2
Když se A1<>A2 tak A3=A2 asi ste chcel dat A1
Když se A2=0 tak A3=A2
skuste nieco pododne ako je to v tom vzorci
hups ja ze tam je ">" a "<"
pardon, tak potom toto ide v pohode :) resp. v tom nevidim ziadny problem
respektive to bude vnorene jedno ifko v ifku :) =if(Podmenka,if(Podmenka,TRUE, FLASE), FLASE)
jaj ludska lenivost nema meze :)
tak tu vam posielam jeden podobny priklad dorobil som tam aj cuplik (samozrejme musite mat nastaveny outlook inac vam to nebude fungovat)
je to massivne posielanie mailu podla toho aku mate v stlpci A nastavenu adresu a posle sheet ktory mate napisane v stlpci B
najprv musite z N4G0012 urobit numeric hodnotu a az potom ich mozte porovnavat
takze otazka znie co je z toho cislo? :)
ato cislo bude mat vzdy tolko cifier a aj istu poziciu?
Uživatelské menu
\nMenu
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.
RSS nejnovější články