dajte do podmieneneho formatovanie =NOT(ISNUMBER(C6))citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: Podmíněné formátování buněk se vzorcem
MS Excel
Téma: Podmíněné formátování buněk se vzorcem 
Zaslal/a 11.3.2014 8:31
Dobrý den,
chtěla jsem se zeptat jestli jde nastavit podmíněné formátování tak, aby se buňky ve kterých je vzorec podbarvovaly a buňky pouze s čísly ne.
@Palooo: to fungovať nebude
@ppetra: S trochou VBA by to asi šlo.
UDF:Function IsFormula(arg As Range) As Boolean
IsFormula = arg.HasFormula
End FunctionAko validačné pravidlo potom:=IsFormula(A1)=TRUEa nastaviť oblasť, na ktorú sa má vzťahovať, napr:=$A$1:$C$3citovat
@ppetra: S trochou VBA by to asi šlo.
UDF:Function IsFormula(arg As Range) As Boolean
IsFormula = arg.HasFormula
End FunctionAko validačné pravidlo potom:=IsFormula(A1)=TRUEa nastaviť oblasť, na ktorú sa má vzťahovať, napr:=$A$1:$C$3citovat
Al: u mna to funguje
edit: uz chapu to nema rozlisovat text a cislo ale formulu :)) tak potom sa ospravedlnujem
edit: uz chapu to nema rozlisovat text a cislo ale formulu :)) tak potom sa ospravedlnujem
Příloha: 
18210_test.zip (7kB, staženo 33x)
citovat18210_test.zip (7kB, staženo 33x)Toto je sice na jiném principu, ale v některých situacích může usnadnit hledání na listu. Označí všechny použité buňky komentářem s informacemi o konkrétní buňce. Je tam ještě druhé makro pro info o Listu.
Příloha: 18211_vzorec-a-popis-bunky-do-komentare.zip (22kB, staženo 33x)
citovat18211_vzorec-a-popis-bunky-do-komentare.zip (22kB, staženo 33x)(11.3.2014 10:21)#018212
Já bych spíš potřebovala něco co mi na první pohled ukáže, kde je v buňce vzorec a kde ne.
S tím co píše AL si bohužel nedokážu moc poradit
citovat
S tím co píše AL si bohužel nedokážu moc poradit
citovatbudete musiet vytvorit v dokumente makro kde napisete to co vam Al navrhol:
Function IsFormula(arg As Range) As Boolean
IsFormula = arg.HasFormula
End Function
a potom do podmieneneho formatovania len napisete:
=IsFormula(C6)
prikladam prilohu kde je to hned jasne
... do spravca makier sa dostanete s stlacenim F11
... subor musite sajvnut ako XLSM (aby podporoval makra)
Function IsFormula(arg As Range) As Boolean
IsFormula = arg.HasFormula
End Function
a potom do podmieneneho formatovania len napisete:
=IsFormula(C6)
prikladam prilohu kde je to hned jasne
... do spravca makier sa dostanete s stlacenim F11
... subor musite sajvnut ako XLSM (aby podporoval makra)
Příloha: 18213_test.zip (13kB, staženo 35x)
citovat18213_test.zip (13kB, staženo 35x)Já bych spíš potřebovala něco co mi na první pohled ukáže, kde je v buňce vzorec a kde ne.
Na to mimochodom bohate stačí F5->Special->Formulacitovat
Na to mimochodom bohate stačí F5->Special->Formulacitovat
a toto ?
edit:
to co píše AL je jednodušší a elegantnější
Sub najdiVzorce()
x = ActiveCell.Row: y = ActiveCell.Column
Cells.Select
Selection.Interior.Pattern = xlNone
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.Color = 65535
End With
Cells(x, y).Select
End Sub
edit:
to co píše AL je jednodušší a elegantnější
Sub najdiVzorce()
x = ActiveCell.Row: y = ActiveCell.Column
Cells.Select
Selection.Interior.Pattern = xlNone
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.Color = 65535
End With
Cells(x, y).Select
End Sub
Příloha: 18217_kde-je-vzorec.zip (16kB, staženo 32x)
citovat18217_kde-je-vzorec.zip (16kB, staženo 32x)Už jsem tu dlouho nic nenapsal, tak abyste na mně nezapomněli ;)
@Opičák
Select :(
2 řádky a to jen proto, že se může stát, že tam žádný vzorec není:Sub subFormulas()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Interior.Color = vbYellow
End Subcitovat
@Opičák
Select :(
2 řádky a to jen proto, že se může stát, že tam žádný vzorec není:Sub subFormulas()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas).Interior.Color = vbYellow
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nFormulář 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