Napsat funkci:
Function UkazVzorec(Cell As Range) As String
UkazVzorec = Cell.Formula
End Function
Function UkazVzorecCesky(Cell As Range) As String
UkazVzorecCesky = Cell.FormulaLocal
End Function
a do příslušné buňky vložit:
=UkazVzorecCesky(bunka)
nebo=ukazvzorec(bunka)
citovat
Function UkazVzorec(Cell As Range) As String
UkazVzorec = Cell.Formula
End Function
Function UkazVzorecCesky(Cell As Range) As String
UkazVzorecCesky = Cell.FormulaLocal
End Function
a do příslušné buňky vložit:
=UkazVzorecCesky(bunka)
nebo=ukazvzorec(bunka)
citovat
\n
RSS nejnovější články