Дворняжка
Показать полностью
1
Была задача по переносу вычислений из экселя. Чтобы не лезть и не смотреть формулу в каждой ячейке я написал небольшой макрос, который их выводит.
Ниже выделенного диапазона на 10 строк выводятся все формулы и значения из заполненных ячеек.
Получается вот такая штука, которую гораздо проще разобрать и перенести
Сам макрос:
Sub DrawFormulas()
For Each Cell In Selection
CellFormula = Cell.Formula
If Left(CellFormula, 1) <> "=" Then CellFormula = "=" + CellFormula
If Trim(CellFormula) <> "=" Then Cell.Offset(Selection.Rows.Count + 10).Value = Cell.Address + CellFormula
Next
End Sub
Полицейский vs Гражданский