Příspěvky uživatele
< návrat zpět
Moc Vám všem děkuji, nakonec použiju displayformat ten funguje i u formuláře.
Super ještě jednou díky.
Díky moc všem. V testech mi to funguje, na formuláři, kde má makro rozpoznávat formát tak bohužel ne(stejná chyba v evaluate).
Zkusím teď předělat ten formulář.
Ještě jednou díky a přeju hezký víkend.
Zasekne se přesně na Evaluate. Přiznám se, že hodnotu Formula1 právě nejsem schopen rozklíčovat.
http://www.cpearson.com/excel/CFColors.htm
kod funkce activecondition jsem se snažil pořádně pročíst včera, ale nestačím na něj.
Když dojde na formátované buňky, funkce hlásí error 13: Type mismatch v tomhle bodě:
Case xlExpression
If Application.Evaluate(FC.Formula1) Then
ActiveCondition = Ndx
Exit Function
End If
Case Else
Debug.Print "UNKNOWN TYPE"
End Select
Nenapadá ještě někoho kde může být co špatně?
Díky snad se mi podaří to použít. Takže asi můžeme vlákno zamknout.
Ahoj,
poprosil bych o radu.
Mám formulář vytvořený někým jiným a po mne se chce napsat automatické odemykání/zamykání buněk, které by mělo být vázané na barvu buňky.
Ale: V případech kdy je buňka podbarvena podmíněným formátováním, makro nerozezná její vlastnost(nebo spíš je pro něj stále nepodbarvená) a tím pádem ji nechá zamčenou.
Za každou radu, která mi pomůže předem děkuju!
Kód:
Sub Zamykani()
Dim bunka As Range
Dim oblast As Range
Set oblast = Range("A1:B2")
ActiveSheet.Unprotect Password:="000"
oblast.Select
Selection.Locked = True
For Each bunka In oblast
If bunka.Interior.Color = RGB(51, 204, 51) Then
bunka.Locked = False
End If
Next bunka
ActiveSheet.Protect Password:="000"
End Sub
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